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

dida2000

文件格式为:
no_ext,jpg,swf,png,zip,xml,EXE,mp3,jsp,kprar,
12,2170772,148620,401807,98198,18612,8504,300,4,1,
no_ext,dat,html,1 ,xml,php ,bin,
2337488,58234,27,9,4,1,1,
no_ext,swf,jpg,xml,cab,
1459109,1832,2,3,1,
no_ext,cab,ini,exe,png,zip,jpg,txt,z,7z,dd,ico,php ,
675,1333487,8949,52260,658,549,154,11,76,60,1,5,1,
no_ext,fcg,xml,jpg,php,js,
22,1286870,4,1,2,1,

格式解释：
第一行为表头部分，第二行为数据部分，两行为一个整体。
要求：
把ext,dat,cab分别放到第二~第四个域中，并且用逗号分隔，第一行只有表头，其他行只是数据，不没有内容的部分，用0表示。
最后效果如下：
no_ext,exe,dat,cab
12,8504,0,0
2337488,58234,0,0
1459109,0,0,1
675,52260,0,1333487
22,0,0,0
求perl处理程序。谢谢

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,

复制代码

dida2000

感谢，我先试试

kk861123

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

复制代码

yinyuemi

1. 
   
2. perl -MData::Dumper -nle 'BEGIN{@title=qw/no_ext exe dat cab/;print join ",", @title};
   
3. $i=0;
   
4. if(/^\D/){map{$hash1{++$i}=$_}split /,/, lc($_)}
   
5. else{map{$hash2{$hash1{++$i}}=$_} split /,/;
   
6. print join ",", map{$_+0} @hash2{@title};
   
7. undef %hash1; undef %hash2;
   
8. }' file
   
9. 
   

复制代码

dida2000

谢谢！
可能我没说清楚，里面需要把大小写的内容都统计一下，还有逗号之间可能有前后空格。
就我举的例子中，第一组中exe是大写的，

yizhengming

请问
push @{ $data{$h} },$fields_of{$h}  

这是什么意思？   

dida2000

yizhengming 发表于 2012-06-19 16:27
请问
push @{ $data{$h} },$fields_of{$h}  

这个有点像堆栈的调子，push从数组中取出数据

rubyish

我试试:

1. #!/usr/bin/perl
   
2. 
   
3. use 5.014;
   
4. say join ',', my @p = qw/no_ext exe dat cab/;
   
5. while (<DATA>) {
   
6.     my %h;
   
7.     @h{ map { lc } /\w+/g } = <DATA> =~ /\d+/g;
   
8.     say join ',', map { $_ ||= 0 } @h{@p};
   
9. }
   
10. __DATA__
    
11. no_ext,jpg,swf,png,zip,xml,EXE,mp3,jsp,kprar,
    
12. 12,2170772,148620,401807,98198,18612,8504,300,4,1,
    
13. no_ext,dat,html,1 ,xml,php ,bin,
    
14. 2337488,58234,27,9,4,1,1,
    
15. no_ext,swf,jpg,xml,cab,
    
16. 1459109,1832,2,3,1,
    
17. no_ext,cab,ini,exe,png,zip,jpg,txt,z,7z,dd,ico,php ,
    
18. 675,1333487,8949,52260,658,549,154,11,76,60,1,5,1,
    
19. no_ext,fcg,xml,jpg,php,js,
    
20. 22,1286870,4,1,2,1,
    

复制代码

kk861123

dida2000 发表于 2012-06-19 16:51
这个有点像堆栈的调子，push从数组中取出数据

push是压入数据