关于 hash 的问题

shintoky

请教各位一个关于hash的问题.

想通过hash 实现一个功能。

比如现有一个文件file 的列 作为hash 的key,
然后希望通过调用另外一个脚本，return一个值 作为hash 的value，追加到文件file中
应该怎么写比较好 ？

cat file
server1
server2
server3
...

实现后变成：
cat file
server1 pass
server2 not pass
server3 pass
...

hailongchang

你要调用的脚本是Perl的，还是其他语言写的？

rubyish

no hash
biru:

1. #!/usr/bin/perl -i
   
2. 
   
3. @ARGV = 'file';
   
4. 
   
5. sub run_script {
   
6.     my $data = shift;
   
7.     my ($num) = $data =~ /(\d+)/;
   
8.     $num % 2 ? 'PASS' : 'NOT PASS';
   
9. }
   
10. 
    
11. while (<>) {
    
12.     chomp;
    
13.     my $result = run_script($_);
    
14.     print "$_\t$result\n";
    
15. }
    
16. 
    
17. __DATA__
    
18. server1
    
19. server2
    
20. server3
    
21. server4
    

复制代码