關(guān)于 hash 的問題

shintoky

請教各位一個關(guān)于hash的問題.

想通過hash 實現(xiàn)一個功能。

比如現(xiàn)有一個文件file 的列 作為hash 的key,
然后希望通過調(diào)用另外一個腳本，return一個值 作為hash 的value，追加到文件file中
應該怎么寫比較好 ？

cat file
server1
server2
server3
...

實現(xiàn)后變成：
cat file
server1 pass
server2 not pass
server3 pass
...

hailongchang

你要調(diào)用的腳本是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
    

復制代碼