回文筛选
Posted xlij1205
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了回文筛选相关的知识,希望对你有一定的参考价值。
^(.*) (.*) S+ S+( .*)+ 2 1
#!/usr/bin/perl use warnings; use strict; open IN,"<",$ARGV[0]; my $header=<IN>; my %name_hash; while(<IN>){ chomp; my @line_list=split/ /; $name_hash{"$line_list[0]$line_list[1]"}++; } close IN; open INPUT,"<",$ARGV[0]; my $header2=<INPUT>; print $header2; while(<INPUT>){ chomp; my @line_list=split/ /; if(!($name_hash{"$line_list[0]$line_list[1]"} && $name_hash{"$line_list[1]$line_list[0]"})){ print "$line_list[0]$line_list[1] $line_list[1]$line_list[0] "; }else{delete $name_hash{"$line_list[1]$line_list[0]"}} }
以上是关于回文筛选的主要内容,如果未能解决你的问题,请参考以下文章