随笔分类 -  草稿箱

未发布草稿
回文筛选
摘要：^\(.*\)\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 阅读(136) 评论(0) 推荐(0)