如何得到相同列的行！

mousejsh

1.txt
a4c3 141
a3s1 3
b4c3 111
s21a 5
b92x 3
a3s1 52
62ae 2
a4c3 1
7z5y 9
我想要得到下面这个结果。
2.txt
a3s1 3
a3s1 52
a4c3 1
a4c3 141
请问perl怎么写才能达到！谢谢！

junchen2

C:\Documents and Settings\wjc\桌面>perl -e "open(A,'1.txt');foreach(<A>){if(m/^a
3s1/||m/^a4c3/){print;}}"
a4c3 141
a3s1 3
a3s1 52
a4c3 1

churchmice

原帖由 mousejsh 于 2008-2-20 22:16 发表
1.txt
a4c3 141
a3s1 3
b4c3 111
s21a 5
b92x 3
a3s1 52
62ae 2
a4c3 1
7z5y 9
我想要得到下面这个结果。
2.txt
a3s1 3
a3s1 52
a4c3 1
a4c3 141
请问perl怎么写才能达到！谢谢！

1. 
   
2. #!/usr/bin/perl
   
3. #use strict;
   
4. use warnings;
   
5. 
   
6. my $text = shift;
   
7. my %hash;
   
8. open my $file,"<","$text" or die "Fail to open $text $!";
   
9. while(<$file>){
   
10.   chomp;
    
11.   my ($key,$value) = split/\s+/;
    
12.   $hash{$key} .= "$value ";
    
13.   }
    
14. 
    
15. foreach ( sort keys %hash){
    
16.   my @array = split /\s+/,$hash{$_};
    
17.   my $key = $_;
    
18.   next if (@array < 2);
    
19.   foreach (@array){
    
20.     print "$key  $_\n";
    
21.     }
    
22.     }
    
23. 
    

复制代码

<lig@other-server:~/chinaunix>$ ./identical a
a3s1  3
a3s1  52
a4c3  141
a4c3  1

mousejsh

谢谢！

mousejsh

if(@array < 2)
这个是什么意思呀？不太懂了！

mouse0301

用hash指向一个列表的引用 该列表中存放 第二列的数据

mouse.rice

#!/usr/bin/perl use strict; use warnings; open FH, "<same.txt" || die "$!"; while (<FH>) {     s/\s+$//g;     my %hash = map { /(a\d\S+)\s+(\d+)/ } <FH>;     foreach ( sort keys %hash ) {         print "$_\t$hash{$_}\n";     } } close FH;

g:/home/perl-exercise # ./same.pl
a3s1    52
a4c3    1

最初是这样想的，结果错了，第二次匹配的结果覆盖了第一次的。
大家有什么巧妙的方法实现么？交流交流，长长见识！

[ 本帖最后由 mouse.rice 于 2008-2-26 00:41 编辑 ]

churchmice

原帖由 mousejsh 于 2008-2-21 14:58 发表
if(@array < 2)
这个是什么意思呀？不太懂了！

在scalar的环境中
@array返回的是数组中元素的个数

linuxnextyear

1. 
   
2. my $text = shift;
   
3. my %hash;
   
4. open my $file,"<","$text" or die "Fail to open $text $!";
   
5. while(<$file>){
   
6.   chomp;
   
7.   my ($key,$value) = split/\s+/;
   
8.   $hash{$key} .= "$value ";
   
9.   }
   

复制代码

请问这个如何保证同样的key的value的值不被下一个替换？

churchmice

原帖由 linuxnextyear 于 2008-2-26 13:17 发表

my $text = shift;
my %hash;
open my $file,"

注意看
$hash{$key} .= "$value "

相同的key,不同的value之间以空格分割,并且连在一起作为一个新的value
比如说
a b
a c
一开始
$hash{a} = b
接着
$hash{a} = "b c"