2015年1月5日
perl 正则匹配代码
摘要： 36 chomp $line;37 my @vec = split /\t/, $line;38 my @vec2 = ($vec[1]=~/[a-z]+/g);39 my $size = scalar @vec2;40 if ($size ==1) 41 { 42 print FOUT "$lin... 阅读全文
posted @ 2015-01-05 14:51 finallyly 阅读(286) 评论(0) 推荐(0) 编辑