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

mouse.rice

CODE：

#!/usr/bin/perl use strict; my %hash=( '001' =>  'A', '002' =>  'B', '003' =>  'C', '004' =>  'D', ); my @key=qw/001 002 004 005/; foreach my $key(@key){ print "$key\t$hash{$key}\n"; ｝

上面这个写法没有问题，但是当@key非常大时，qw//内容太多，程序冗长，且用户不方便维护，所以我想利用ID.txt管理ID，有了如下CODE：

#!/usr/bin/perl use strict; my %hash=( '001' =>  'A', '002' =>  'B', '003' =>  'C', '004' =>  'D', ); open (ID,"ID.txt") or die "$!"; foreach{ do something...... } close ID;

请问，这个do something该如何写？或许有更好的方法，请您赐教。
另，这个%hash的内容也相当大，程序冗长，有什么解决方案么？3Q

[ 本帖最后由 mouse.rice 于 2008-1-17 00:44 编辑 ]

Lonki

描述下do sth.吧

duhast

use Tie::File::AsHash;

tie my %hash, 'Tie::File::AsHash', '$all_id_file', split => ','  or die $!;

while (($key,$val) = each %hash) {
# do something evil.......
}

untie %hash;                    

原帖由 mouse.rice 于 2008-1-17 00:40 发表
CODE：
#!/usr/bin/perl

use strict;
my %hash=(
'001' =>  'A',
'002' =>  'B',
'003' =>  'C',
'004' =>  'D',
);
my @key=qw/001 002 004 005/;
foreach my $key(@key){
print "$key\t$hash{$k ...

mouse.rice

回Lonki：
希望通过后面一个代码实现前者代码的结果。用ID.txt替换qw//中的内容，方便用户维护ID，谢谢！
ID.txt的内容如下：
001 002 004 006 008......(近3K个ID）

#!/usr/bin/perl use strict; my %hash=( '001' =>  'A', '002' =>  'B', '003' =>  'C', '004' =>  'D', ); open (ID,"ID.txt") or die "$!"; my @key; while (<ID>){ @key=push @key, $_; } foreach my $key(@key){ print "$key\t$hash{$key}\n"; } close ID;

请问，该程序哪里出了问题，如何修改？谢谢！

[ 本帖最后由 mouse.rice 于 2008-1-17 09:13 编辑 ]

ly5066113

原帖由 mouse.rice 于 2008-1-17 00:40 发表
CODE：
#!/usr/bin/perl

use strict;
my %hash=(
'001' =>  'A',
'002' =>  'B',
'003' =>  'C',
'004' =>  'D',
);
my @key=qw/001 002 004 005/;
foreach my $key(@key){
print "$key\t$hash{$k ...

没看明白，已经有%hash了，@key这个还要它有什么用？

foreach(keys %hash) {
        print "$_\t$hash{$_}\n";
}
不就可以了么？

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后面写了空值""，你可能打印出空白

mouse.rice

两位老大，故事是这样的：
我有一个ID和员工姓名的对应（固定资料）如：
0001  张三
0002  李四
.....
3000 陈六

人事给出一份名单，刷卡异常的有这些ID（假设有近2K个异常ID）：
0136
0468
....

我需要知道这些刷卡异常ID对用的员工姓名，所以有了顶楼的CODE。
我不是系统管理员，不过有点兴趣，所以自己尝试用PERL处理下。
请老大们指教！

ly5066113

原帖由 mouse.rice 于 2008-1-17 10:03 发表
两位老大，故事是这样的：
我有一个ID和员工姓名的对应（固定资料）如：
0001  张三
0002  李四
.....
3000 陈六

人事给出一份名单，刷卡异常的有这些ID（假设有近2K个异常ID）：
0136
0468
....

...

那你就参考6楼的吧。
只是这个问题的话，可能shell会更简单：
awk '{if(NR==FNR)a[$1]=$2;else print $1,a[$1]}' file1 file2

mouse.rice

谢谢老大，SHELL的确是简单些～正打算学！

mouse.rice

原帖由 perljoker 于 2008-1-17 09:39 发表

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

所以可以这样考虑
while(){
   print "$_\t$hash{$_}\n" ...

回perljoker：
  照您的改了，程序执行后没有任何结果显示，WHY？