比较两段CODE，请您帮修改！谢谢～

perljoker

原帖由 mouse.rice 于 2008-1-17 08:20 发表
回Lonki：
希望通过后面一个代码实现前者代码的结果。用ID.txt替换qw//中的内容，方便用户维护ID，谢谢！
ID.txt的内容如下：
001 002 004 006 008......(近3K个ID）

#!/usr/bin/perl

use strict;
my ...

如果你的array仅仅提供查询hash作为key使用，那这个数组完全是多余的啊
你后面写法也有问题，你直接使用$hash{$key}，如果$key不在hash里面呢？

所以可以这样考虑

1. while(<ID>){
   
2.    print "$_\t$hash{$_}\n" if exists($hash{$_});
   
3. }

复制代码

而且你还得考虑，如果不巧，你那个id后面写了空值""，你可能打印出空白

perljoker

你把你全部代码贴出来看看，那写法，如果没有输出，连空行都没有
那就说明exists为假，就说hash里面没这些ID
大概和文件格式或者读写操作有关吧，为了保险起见
print前面最好加句 $_=~s/\s//g;

改一下吧：

1. 
   
2. while(<ID>){
   
3.     s/\s//g;
   
4.     if(exists($hash{$_})){
   
5.       print "$_\t$hash{$_}\n";
   
6.     }else{ warn "****$_****\n";
   
7. }

复制代码

这样就清晰了

[ 本帖最后由 perljoker 于 2008-1-17 12:57 编辑 ]

perljoker

Lonki代码确实漂亮……，不过
my %id_all = map { /(\d+)\s+(.*)\s*/ } <ID_ALL>;
这句话我确实没看懂，map左边是hash，map里面是个正则
这样做会得到什么结果呢？还是竟然能得到$1和$2？

to LZ，我那个s/\s//g 因为后面有个g，所有会把所有空白替换掉……

perljoker

那个不是都能用@ARGV识别么？

perljoker

确实如此
map会自动返回后面正则表达式得到的$1和$2作为对值返回
他第二个表达式要容易看懂