求助perl解决excel中不能完成的排序问题

badsunday

文件A如下      文件B如下            文件C如下
1                        3_vc
2                        6_ed
3                        7_sd                 3_vc
4                        8_gh
5                        10_c
6                                                6_ed
7                                                7_sd
8                                                8_gh
9
10                                              10_c

我想用excel来解决，相当于第一列是A，第二列是B，怎么得到第三列C，我试了试可是怎么也不行。这种情况如果用perl处理，怎么得到文件C

badsunday

我自己的代码如下，经过多次尝试一个是找不到，还有就是后面  _字母也不能写出。
open a, '<', "a.txt";
open b, '<', "b.txt";
open c, '>', "c.txt";

@line=<b>;

while (<a>){
chomp;
if ($_=~ @line){
print c "$_\n";
}else{
print c "\n";
}
}

为了方便大家拷贝
A文件
1
2
3
4
5
6
7
8
9
10
B文件
3_vc
6_ed
7_sd
8_gh
10_c

yestreenstars

1. awk -F_ 'NR==FNR{a[$1]=$0;next}{$0=a[$0]}1' B A > C

复制代码

badsunday

你的这个代码我复制到我的perl中不行回复 3# yestreenstars


   

yestreenstars

回复 4# badsunday

这不是perl~{:2_166:}