求文本处理

perlnewbie

晚上好,有如下文本:

a,1,2,e,2
b,q
a,9,2
需要处理为:
a,1,9,--,--,e,2
b,q
也就是说按第一列进行列比较,相同的项输出为-- 不同则放在一起

我最开始是以逗号为分隔符号,第一列为哈希key,然后指向一个数组,
但没折腾出想要的结果,因为
push @{$hash{$_}},@array[1..$#array];后,所得到的数组不是按列顺序的,所以不好处理,就卡在这一步了,烦请大侠指点

kk861123

what about this?

1. push @{$hash{$_}},[ @array[1..$#array] ];

复制代码

rubyish

如下文本:
a,1,2,e,2
b,q
a,9,2
c,8
a,9,3

想要的结果为??需要处理为??

kk861123

rubyish 发表于 2012-10-18 09:20
如下文本:
a,1,2,e,2
b,q

希望楼主不要处理这种文本

perlnewbie

回复 3# rubyish

  现在的情况只有两行第一列相同的
,你那样的话
就处理成
a,1,--,--,--,--3,e,2
b,q
c,8
好了.
先教我怎么处理我的情况吧实在不懂

   

kk861123

回复 5# perlnewbie


    我按照一楼对比的逻辑无法得到这个结果，请指出逻辑错误：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. use List::Util qw( max );
   
6. 
   
7. my %hash;
   
8. while (<DATA>) {
   
9.     chomp;
   
10.     my ($k,@left) = split /,/ => $_;
    
11.     push @{ $hash{$k} }, [ @left ];
    
12. }
    
13. 
    
14. foreach my $k ( sort keys %hash) {
    
15.     my @values = @{ $hash{$k} };
    
16.     my $z = shift @values;
    
17. 
    
18.     foreach my $v (@values) {
    
19.         $z = merge($z,$v);
    
20.     }
    
21.     print join( ',' => $k, @{$z} ), "\n";
    
22. }
    
23. 
    
24. sub merge {
    
25.     my ($x,$y) = @_;
    
26.     my $max = max( $#{$x}, $#{$y} );
    
27.     my $z = [];
    
28.     foreach my $i ( 0..$max ) {
    
29.         push @$z => grep { $_ } ( $x->[$i] eq $y->[$i] )
    
30.                               ? ( '--', '--' )
    
31.                               : ( $x->[$i]  , $y->[$i] )
    
32.                               ;
    
33.     }
    
34.     return $z;
    
35. }
    
36. 
    
37. __DATA__
    
38. a,1,2,e,2
    
39. b,q
    
40. a,9,2
    
41. c,8
    
42. a,9,3

复制代码

rubyish

只有两行第一列相同的:

1. #!/usr/bin/perl
   
2. 
   
3. use 5.016;
   
4. my ( %h, @a );
   
5. while (<DATA>) {
   
6.     my ( $a, @b ) = split /,|\n/;
   
7.     push @a, $a unless $h{$a};
   
8.     push @{ $h{$a} }, \@b;
   
9. }
   
10. 
    
11. for my $k (@a) {
    
12.     my ( $i, $j ) = @{ $h{$k} };
    
13.     my ($z) = sort { $b <=> $a } map $#$_, $i, $j;
    
14.     say join ',', $k, map {
    
15.         @_ = grep $_, @$i[$_], @$j[$_];
    
16.         @_ > 1 && ( $_[0] eq $_[1] ) ? '--' : @_
    
17.     } 0 .. $z;
    
18. }
    
19. 
    
20. __DATA__
    
21. a,1,2,e,2
    
22. b,q
    
23. a,9,2

复制代码

perlnewbie

回复 7# rubyish

大哥,你应该叫perlish
现在没电脑,找了个网站跑了下你的代码.是不是只能5.16啊,网站perl版本是5.8
Unrecognized character \xC2 at line 5.


   

perlnewbie

谢谢帅哥啊

perlnewbie

谢谢眼镜哥