回文筛选

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]"}}
}

 

以上是关于回文筛选的主要内容,如果未能解决你的问题,请参考以下文章

SQLite的LIKE语句实现字符片段筛选的功能

SQLite的LIKE语句实现字符片段筛选的功能

SQLite的LIKE语句实现字符片段筛选的功能

LeetCode 125. 验证回文串

LeetCode 125. 验证回文串

Python实现获取回文素数