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

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

1^# mouse.rice 发表于 2008-01-17 00:40

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

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

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

2^# Lonki 发表于 2008-01-17 00:51

描述下do sth.吧

duhast

UID: 4411
帖子: 83
积分: 190
在线时间: 9 小时

3^# duhast 发表于 2008-01-17 04:27

QUOTE:

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;

QUOTE:

原帖由 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

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

4^# mouse.rice 发表于 2008-01-17 08:20

回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;

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

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

5^# ly5066113 发表于 2008-01-17 09:38

QUOTE:

原帖由 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

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

6^# perljoker 发表于 2008-01-17 09:39

QUOTE:

原帖由 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里面呢？

所以可以这样考虑

[Copy to clipboard] [ - ]

CODE:

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

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

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

7^# mouse.rice 发表于 2008-01-17 10:03

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

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

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

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

8^# ly5066113 发表于 2008-01-17 10:25

QUOTE:

原帖由 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

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

9^# mouse.rice 发表于 2008-01-17 10:35

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

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

10^# mouse.rice 发表于 2008-01-17 11:46

QUOTE:

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

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

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

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