用perl怎么实现如下功能？

oldwell

file1 的内容如下：
111 aaa
344 ddd
744 ccc

file2 的内容如下：
233 bbb
677 ccc
888 aaa
932 fff
892 eee

需求:
当file1中$2部分与file2中$2部分相同的,将file1的$1部分附加成file2的$3显示输出或>file3
用perl怎么实现?

[ 本帖最后由 oldwell 于 2005-12-14 10:21 编辑 ]

apile

Hint:
1.用split...
2.判断第二个element是否相同
3.重整...
4.输出....
请试着动手去写......代码跑不出来再问..

HonestQiao

原帖由 oldwell 于 2005-12-14 08:48 发表
file1 的内容如下：
111 aaa
344 ddd
744 ccc

file2 的内容如下：
233 bbb
677 ccc
888 aaa
932 fff
892 eee

需求:
当file1中$2部分与file2中$2部分相同的,将file1的$1部分附加成file2的$3显示输出 ...

呵呵，这个我用DOS批处理作过。

但是仔细想想，其实这个不复杂。
最简单的，你可以用二次循环

oldwell

用awk 实现的代码如下：

1. 
   
2. #!/usr/bin/awk -f
   
3. 
   
4. BEGIN {
   
5.     while (getline < "file1") {
   
6.         index[$2] = $1
   
7.     }
   
8. 
   
9.     while (getline < "file2") {
   
10.         if (index[$2]) {
    
11.             print $1, $2, index[$2]
    
12.         }    }
    
13. }
    

复制代码