初学perl，请教文件关联问题

w61655

a.txt:
1|wyw|
2|lxl|

b.txt
1|100|
2|90|

a.txt和b.txt的第1列关联（以|分隔），如果关联到，则输出b.txt的第1、2列及a.txt的第2列到c.txt,即c.txt的内容如下：
c.txt
1|100|wyw|
2|90|lxl|

以前习惯用awk来做：
awk 'BEGIN {
FS = "|"
}
{
        if (NR == FNR)
        {
                arr[$1] = $2
        }
        else
        {
                if ($1 in arr)
                {
                        print $0 arr[$1] "|"  > "c.txt"
                }
        }
}' a.txt b.txt

请教perl如何实现？多谢。

DQP

man a2p
........

兰花仙子

这个在perl里貌似有几十种做法。
凡人如我会用一个hash去匹配：

# perl -e '               
$f1 = "1|wyw|\n2|lxl|";
$f2 = "1|100|\n2|90|";
%hash1 = map { my @x=split/\|/,$_; $x[0],\@x } split/\n/,$f1;
%hash2 = map { my @x=split/\|/,$_; $x[0],\@x } split/\n/,$f2;
for (keys %hash2 ) {
  $out = join "|", @{$hash2{$_}}, $hash1{$_}->[1];
  print $out . "|", "\n";
}'

1|100|wyw|
2|90|lxl|

w61655

多谢DQP及兰花仙子！

to DQP:
我的环境中man a2p可以查到帮助信息，但执行a2p报找不到命令
<77 lan1 [hurh] :/home/hurh/wyw2>a2p
/usr/bin/sh/a2p: Not a directory.

to 兰花仙子
用perl实现貌似很复杂，还不太好懂（对像我这样的初学者来说）
awk的方法我感觉很简单，清晰，perl中有没有逻辑上比较简单的方法，不用关注技巧，性能等问题，只需要好懂。

ly5066113

1. perl -F'\|' -lane 'if($#ARGV==0){$h{$F[0]}=$F[1]}else{print "$_$h{$F[0]}|"}' a.txt b.txt > c.txt

复制代码

ulmer

原帖由 ly5066113 于 2009-12-2 13:14 发表
perl -F'\|' -lane 'if($#ARGV==0){$h{$F[0]}=$F[1]}else{print "$_$h{$F[0]}|"}' a.txt b.txt > c.txt

good!
C:\>perl -F"\|" -lane "$#ARGV==0?$h{$F[0]}=$F[1]:print(qq($_|$h{$F[0]}))" b.txt a.txt >c.txt