哈希求助

静女，其姝

file1：
C
X
A
F

file2：
A      3      2
C      6      5
F      1      2
X      2      4

输出：
C      6      5
X      2      4
A      3      2
F      1      2

程序：
while (<IN2>)
{chomp;
my @a=split /\t/,$_;
$hash{$a[0]}=[$a[2],$a[2]];
}

my @b=<IN1>;
chomp @b;
foreach my $c(@b)
{print "$s\t$hash{$s}";}

哈希好像用错了

q1208c

回复 1# 静女，其姝

1. --- 1.pl        2014-07-22 08:44:31.381310889 +0800
   
2. +++ 2.pl        2014-07-22 08:45:00.374317751 +0800
   
3. @@ -1,10 +1,10 @@
   
4. while (<IN2>)
   
5. {chomp;
   
6. my @a=split /\t/,$_;
   
7. -$hash{$a[0]}=[$a[2],$a[2]];
   
8. +$hash{$a[0]}=[$a[1],$a[2]];
   
9. }
   
10. 
    
11. my @b=<IN1>;
    
12. chomp @b;
    
13. foreach my $c(@b)
    
14. -{print "$s\t$hash{$s}";}
    
15. +{print "$c\t$hash{$c}";}
    

复制代码

萌情公方

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. my $file_1=shift;
   
5. my $file_2=shift;
   
6. open(IN2,"$file_2")||die"$!\n";
   
7. my %hash;
   
8. while (<IN2>){
   
9.         chomp;
   
10.         my @a=split /\t/;
    
11.         push @{$hash{$a[0]}}, ($a[1],$a[2]);
    
12. }close IN2;
    
13. 
    
14. open(IN1,"$file_1")||die"$!\n";
    
15. my @b=<IN1>;
    
16. chomp @b;
    
17. foreach my $c(@b){
    
18.         print "$c";
    
19.         foreach my $s(@{$hash{$c}}){
    
20.                 print "\t$s"
    
21.         }
    
22.         print "\n";
    
23. }
    
24. close IN1;
    

复制代码

这个数据比较简单，存数据时如果用[]就是二元数组，我记得这样的情况输出不是简单的print就行，引用学的不好，还是改成一元数组比较简单
回复 1# 静女，其姝


   

hubenxia

#!/usr/bin/perl -w
my %hash;
my $value;
open IN2,"<2.txt";
open OUT1,">out1.txt";
open IN1,"<1.txt";
my @value;
while (<IN2>) {
        chomp;
        my($key,@value)=split/ /,$_,2;
        $value=join "t",@value;
        $hash{$key}=$value;
}
while (<IN1>) {
        chomp;
        if (exists $hash{$_}) {
                $value=$hash{$_};
        }
}
foreach my $key (keys %hash) {
print OUT1 "$key\t$hash{$key}\n";
}
close IN2;
close IN1;
close OUT1;

hubenxia

#!/usr/bin/perl -w
my %hash;
my $value;
open IN2,"<2.txt";
open OUT1,">out1.txt";
open IN1,"<1.txt";
my @value;
while (<IN2>) {
        chomp;
        my($key,@value)=split/ /,$_,2;
        $value=join "t",@value;
        $hash{$key}=$value;
}
foreach my $key(<IN1>) {
        chomp $key;
        print "$key\n";
        print OUT1 "$key\t$hash{$key}\n";
}
close IN2;
close IN1;
close OUT1;   这个比较简单。

reyleon

1. awk 'NR==FNR{a[$1]=$0;next}{print a[$1]}' file2 file1

复制代码

这问题貌似 awk 最简单搞定呀.

Monday0

为什么运行不出结果来 我看代码 没看到哪有问题啊 请教大神回复 3# 萌情公方


   

清泉一边

没看懂什么意思呀~输出结果不就是file2吗？

Monday0

不是的，我运行3楼 萌情公方 的代码，只显示C X A F，而结果是输出
C      6      5
X      2      4
A      3      2
F      1      2
可是我检查了他的代码，找不到哪里出错，大神帮帮忙

清泉一边

不知道有没有猜对哦~

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. my $file_1=shift;
   
5. my $file_2=shift;
   
6. open(IN2,"$file_2")||die"$!\n";
   
7. my %hash;
   
8. while (<IN2>){
   
9.         chomp;
   
10.         my @a=split /\t/,2;
    
11.         $hash{$all[0]} = $all[1];
    
12. }close IN2;
    
13. 
    
14. open(IN1,"$file_1")||die"$!\n";
    
15. while (<IN1>)
    
16. {
    
17. chomp;
    
18. print "$_\t$hash{$_}\n" if exists $hash{$_};
    
19. }
    
20. close IN1;

复制代码

回复 9# Monday0