4亿行数据,挑出长度不合要求的行

zhxm0624

学习啦

xiaobing927

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. my $start_time=`date +%H-%M-%S`;
   
5. print "$start_time\n";
   
6. my $file = shift;
   
7. my %count;
   
8. open(FH,$file);
   
9. while(<FH>){
   
10.       $count{$_}++unless(/\d{10}/)
    
11. }
    
12. my $c = keys %count;
    
13. my $end_time=`date +%H-%M-%S`;
    
14. print "$end_time\n";
    
15. print "$c\n";

复制代码

不知道这样行不行？

blackold

回复 26# beginner-bj


   

blackold

回复 31# ly5066113


    严重同意！