Question

用perl 提取根据第一列名字提取第二列的数据，求可实现的程序

从文件：
aa lsa
ab dfjd
ce dish
4d he 中根据第一列名字提取行
如我要提取aa ce 则输出（要提取的名字也在一个文件中）
aa lsa
ce dish

Answer 1

简单，用哈希就行了
open(IN,$file);
while(<IN>){
chomp;
my $name=(split /\s+/,$_)[0];
$hash{$name}=$_;
}
close IN;
#####
假如你要某一行的内容，就print $hash{$name};###$name是某一列的名字

追问

我是有两个文件，一个是file1，存储：
aa lsa
ab dfjd
ce dish
一个file2，存储：
aa
ce
我具体应该怎么操作？

追答

open(FILE1,$file1);
while(){
chomp;
my $name=(split /\s+/,$_)[0];
$hash{$name}=$_;
}
close FILE1;
open(FILE2,$file2);
while(){
chomp;
print $hash{$_};
}
close FILE2;

Answer 2

open(IN,"file1");
open(NAME,"file2");
open(OUT,">result");
while(<IN>){
chomp;
@data=split / /,$_;
$hash{$data[0]}=$data[1];
}
while(<NAME>){
chomp;
print OUT "$_ $hash{$_}\n";
}
close IN;
close NAME;
close OUT;

Answer 3

。

Answer 4

用hash表就行。