寻求文件处理问题，根据表头处理文件问题

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. use List::MoreUtils qw( first_index );
   
7. 
   
8. my @names = qw( no_ext exe dat cab );
   
9. my %hash;
   
10. 
    
11. @hash{@names} = ([], [], [], []);
    
12. 
    
13. while (1) {
    
14.     last if not defined(my $line1 = <DATA>);
    
15.     last if not defined(my $line2 = <DATA>);
    
16.     my @headers = split /,/, $line1;
    
17.     my @datas = split /,/, $line2;
    
18.     for my $key (keys %hash) {
    
19.         my $val = 0;
    
20.         my $i = first_index { lc($_) eq $key } @headers;
    
21.         if ($i >= 0) {
    
22.             $val = $datas[$i];
    
23.         }
    
24.         push @{$hash{$key}}, $val;
    
25.     }
    
26. }
    
27. 
    
28. foreach my $name (@names) {
    
29.     print "$name\t\t";
    
30. }
    
31. print "\n";
    
32. 
    
33. foreach my $i (0..4) {
    
34.     foreach my $key (@names) {
    
35.         print "$hash{$key}->[$i]\t\t";
    
36.     }
    
37.     print "\n";
    
38. }
    
39. 
    
40. __DATA__
    
41. no_ext,jpg,swf,png,zip,xml,EXE,mp3,jsp,kprar,
    
42. 12,2170772,148620,401807,98198,18612,8504,300,4,1,
    
43. no_ext,dat,html,1 ,xml,php ,bin,
    
44. 2337488,58234,27,9,4,1,1,
    
45. no_ext,swf,jpg,xml,cab,
    
46. 1459109,1832,2,3,1,
    
47. no_ext,cab,ini,exe,png,zip,jpg,txt,z,7z,dd,ico,php ,
    
48. 675,1333487,8949,52260,658,549,154,11,76,60,1,5,1,
    
49. no_ext,fcg,xml,jpg,php,js,
    
50. 22,1286870,4,1,2,1,

复制代码

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @names = qw( no_ext exe dat cab EXE);
   
7. my %hash;
   
8. 
   
9. while (my $line1 = <DATA>) {
   
10.     my %tmp;
    
11.     my $line2 = <DATA>;
    
12.     @tmp{split /,/, $line1} = split /,/, $line2;
    
13.     for my $name (@names) {
    
14.         push @{$hash{$name}}, $tmp{$name} || 0;
    
15.     }
    
16. }
    
17. 
    
18. print join("\t\t", @names), "\n";
    
19. foreach my $i (0..$#{$hash{$names[0]}}) {
    
20.     print join("\t\t", (map {$hash{$_}->[$i]} @names)), "\n";
    
21. }
    
22. 
    
23. __DATA__
    
24. no_ext,jpg,swf,png,zip,xml,EXE,mp3,jsp,kprar,
    
25. 12,2170772,148620,401807,98198,18612,8504,300,4,1,
    
26. no_ext,dat,html,1 ,xml,php ,bin,
    
27. 2337488,58234,27,9,4,1,1,
    
28. no_ext,swf,jpg,xml,cab,
    
29. 1459109,1832,2,3,1,
    
30. no_ext,cab,ini,exe,png,zip,jpg,txt,z,7z,dd,ico,php ,
    
31. 675,1333487,8949,52260,658,549,154,11,76,60,1,5,1,
    
32. no_ext,fcg,xml,jpg,php,js,
    
33. 22,1286870,4,1,2,1,

复制代码