xiaui520 发表于 2015-12-28 09:46:06

perl 正则匹配代码

　　36   chomp $line;
37   my @vec = split /\t/, $line;
38   my @vec2 = ($vec=~/+/g);
39   my $size = scalar @vec2;
40   if ($size ==1)                                                                                                
41   {   
42         print FOUT "$line\n";                                                         
43   }                                                                                 
44
页: [1]
查看完整版本: perl 正则匹配代码