哈希求助

靜女，其姝

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}";}

哈希好像用錯(cuò)了

q1208c

回復(fù) 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}";}
    

復(fù)制代碼

萌情公方

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;
    

復(fù)制代碼

這個(gè)數(shù)據(jù)比較簡(jiǎn)單，存數(shù)據(jù)時(shí)如果用[]就是二元數(shù)組，我記得這樣的情況輸出不是簡(jiǎn)單的print就行，引用學(xué)的不好，還是改成一元數(shù)組比較簡(jiǎn)單
回復(fù) 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;   這個(gè)比較簡(jiǎn)單。

reyleon

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

復(fù)制代碼

這問(wèn)題貌似 awk 最簡(jiǎn)單搞定呀.

Monday0

為什么運(yùn)行不出結(jié)果來(lái) 我看代碼 沒(méi)看到哪有問(wèn)題啊 請(qǐng)教大神回復(fù) 3# 萌情公方


   

清泉一邊

沒(méi)看懂什么意思呀~輸出結(jié)果不就是file2嗎？

Monday0

不是的，我運(yùn)行3樓 萌情公方 的代碼，只顯示C X A F，而結(jié)果是輸出
C      6      5
X      2      4
A      3      2
F      1      2
可是我檢查了他的代碼，找不到哪里出錯(cuò)，大神幫幫忙

清泉一邊

不知道有沒(méi)有猜對(duì)哦~

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;

復(fù)制代碼

回復(fù) 9# Monday0