当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 3 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 在多个文件中进行查找匹配的问题
帖子发表于 : 2008-12-31 16:49 
头像

注册: 2008-07-13 23:19
帖子: 19
送出感谢: 0 次
接收感谢: 0 次
文件A中为:

代码:
bob 1234
frank 56798
yui 345678

也就是‘名字+空格+电话’的组合

文件B中为:
代码:
1234
MATH
56798
ENGLISH
345678
FRENCH

也就是‘电话’换行‘科目’的组合,其中‘电话’和文件A中的顺序不是对应的;还可以有电话后面没有科目的情况,也就是
代码:
电话1
电话2
科目


现要合成一文件得到名字 + 空格 + 电话 + 科目的组合,我的想法是在B中取到电话,然后在电话接下来的一行中取到科目,然后在A中查找 电话与B中的对应,再把科目加在后面。但是不知道怎么换行,也就是查找到电话之后就查找接下来的一行中的科目,如果没有就是空。

请教论坛高手或者给个实例。谢谢。


页首
 用户资料  
 
2 楼 
 文章标题 : Re: 在多个文件中进行查找匹配的问题
帖子发表于 : 2008-12-31 21:39 
头像

注册: 2007-09-29 3:09
帖子: 5773
送出感谢: 0 次
接收感谢: 3
初学perl,抛砖引玉了...
太特殊的情况就没考虑...
代码:
#!/usr/bin/perl -w
use strict;

my $num;
my %numname;
open (FILE1, $ARGV[0]);
while (<FILE1>) {
    chomp;
    /(\w+)\s(\d+)/;
    $numname{$2} = $1;
}
open (FILE2, $ARGV[1]);
while (<FILE2>) {
    chomp;
    if (/\d+/) {
    $num = $_;
    }
    elsif (exists $numname{$num}) {
   print $numname{$num}." ".$num." ".$_."\n";
    }
}


附件:
2008-12-31-214604_724x548_scrot.png
2008-12-31-214604_724x548_scrot.png [ 31.93 KiB | 被浏览 261 次 ]



_________________
HUNT Unfortunately No Talent...
页首
 用户资料  
 
3 楼 
 文章标题 : Re: 在多个文件中进行查找匹配的问题
帖子发表于 : 2009-01-01 13:07 

注册: 2007-04-29 13:15
帖子: 44
送出感谢: 0 次
接收感谢: 0 次
用paste 命令即可


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 3 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 3 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译