如何利用PERL对文件中同样的数据进行调取

jingwu110

有一个文件，其中有一些数据的前缀是重复的，需要将这些前缀相同的数据完整的名字提取出来。 不是很懂。

name01.rar (879 Bytes, 下载次数: 8)

2013-02-05 16:37 上传

点击文件名下载附件

文件中，“_”前面是数据前缀，绿色框中我标出了前缀相同的两个数据，就是需要将这些前缀相同的数据连带“_”后面的数据输出到一个新的文本文件。

cdtits

1. my %name;
   
2. open my $fd, '<', 'name01.txt' or die $!;
   
3. while (<$fd>) {
   
4.     chomp;
   
5.     my ($n) = split /_/;
   
6.     push @{$name{$n}}, $_;
   
7. }
   
8. close $fd;
   
9. do { my $d = $name{$_}; print "$_ => ", join(', ', @$d), "\n" if @$d > 1; } for (keys %name);

复制代码

jingwu110

嗯 谢谢！！！

rubyish

1. #!/usr/bin/perl
   
2. my %h;
   
3. 
   
4. open my $f, 'name01.txt';
   
5. open my $n, '>', 'new.txt';
   
6. 
   
7. /(.*)_/ and push @{$h{$1}}, $_ while <$f>;
   
8. print $n @$_ for grep @$_> 1,values %h;

复制代码