2019年3月24日
回文筛选
摘要： ^\(.*\)\t\(.*\)\t\S\+\t\S\+\(\n.*\)\+\n\2\t\1 #!/usr/bin/perl use warnings; use strict; open IN,"; my %name_hash; while(){ chomp; my @line_list=split/\t/; $name_hash{"$line_list[0]$lin... 阅读全文
posted @ 2019-03-24 19:38 xlfj1205 阅读(134) 评论(0) 推荐(0) 编辑