向大牛请教这个算法....

cxfcxf

文本如下:
1300018   a1
1300019   a1
1300100   a2
1300101   a2
1300126   a2
1300127   a2
1300128   a2
1300129   a2
1300130   a3
1300131   a3
1300132   a3
1300133   a3

如何可以得到如下输出

a1 2file
1300018
1300019

a2 6file
1300100   
1300101   
1300126   
1300127   
1300128   
1300129   

a3 4file
1300130
1300131  
1300132
1300133

有没有算法.....
想到一种..但是估计我这烂水平 很难实现..
吧2列都加入到hash 然后
用数字做key
如果
$hash[1300018] =  $hash[1300019]
那么 吧$hash[1300018] 的value 提出来 就是a1 变量....
但是后面碰到a2 怎么在处理...

yashiro_lj

还是用hash，建议用a1, a2, a3做为key，value为array，记录每个key对应的数字

cxfcxf

用a1 a2 a3做key 怎么让他唯一呢

yashiro_lj

a1, a2, a3分别作的key，不是3个一起做key，不唯一吗？

cxfcxf

顿悟......

my $prev;
while (<$fh>) {
    my ($field1, $field2) = split;

    if (!defined($prev) || $prev ne $field2) {
        print("\n") if !defined($prev);
        $prev = $field2;
        print("$field2\n");
    }

    print("$field1\n");
}

arccos2002

#!/usr/bin/perl -w
my ($list,$key);
my $hash={};
open (FD,"txt") or die "cant open";
while(<FD>)
{
($list,$key)=split(/\s+/,$_);
push(@{$hash->{$key}},$list);
}
foreach (sort keys %{$hash}){
print "$_",scalar(@{$hash->{$_}})," files\n";
print "@{$hash->{$_}}\n";
}

Lonki

原帖由 cxfcxf 于 2009-7-23 12:25 发表
顿悟......

my $prev;
while () {
    my ($field1, $field2) = split;

    if (!defined($prev) || $prev ne $field2) {
        print("\n") if !defined($prev);
        $prev = $field2;
      ...

这样的话就是说默认a1 a2 a3已经排序过了哦？

iLRainyday

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. 
   
5. my %format;
   
6. open FH, "test.txt";
   
7. 
   
8. while( <FH> ) {
   
9.     my($field_1, $field_2) = split;
   
10.     push @{ $format{$field_2} }, $field_1;
    
11. }
    
12. 
    
13. while ((my $key, my $value_ref) = each %format) {
    
14.     my $counts = @$value_ref = sort @$value_ref;
    
15.     print "$key  $counts files\n";
    
16.     foreach my $row (@$value_ref) {
    
17.         print "$row\n";
    
18.     }
    
19.     print "\n";
    
20. }
    

复制代码

lokchungk

Perl M群的?

[ 本帖最后由 lokchungk 于 2009-7-31 16:29 编辑 ]

ulmer

原帖由 arccos2002 于 2009-7-30 11:38 发表
#!/usr/bin/perl -w
my ($list,$key);
my $hash={};
open (FD,"txt" or die "cant open";
while()
{
($list,$key)=split(/\s+/,$_);
push(@{$hash->{$key}},$list);
}
foreach (sort keys %{$hash}){ ...

arccos2002 has very clearly explained howto

....
    ($list,$key)=split(/\s+/,$_);    # split 2 fields
   
    push(@{$hash->{$key}},$list);     # create HOA (hash of Array) data structure:
    # such as:
    # { a1 => [1300018, 1300019  ],
    #     ...
    # }
......