自己寫的一個哈希操作的小程序

xiucai315

1. #!/usr/bin/perl -w
   
2. open(HASH,"hash.txt") ;
   
3. 
   
4. while($line=readline(HASH)){
   
5.      ($key,$value)=split(" ",$line);
   
6.         push @chip,$key;
   
7.         push @chip,$value;
   
8. }
   
9. %shop=@chip;
   
10. #print $shop{1001};
    
11. close(HASH);
    
12. open(TXT,"321.txt");
    
13. 
    
14. open(LIE,">>lie.txt");
    
15. while($line=readline(TXT)){
    
16.         @mm=split(" ",$line);
    
17.         print $mm[4];
    
18.         print "$shop{$mm[4]}\n";
    
19.         print LIE ("$shop{$mm[4]}\n");
    

復制代碼

因為文本是中文的，索引是數(shù)字，懶得一個一個找好了，就把文本讀到hash表里，然后讀文件里面的索引值，把對應的中文輸出到一個文件里面在貼到要編輯的文件里面去，哈哈，有點笨，但是能解決問題。

zhlong8

能用上 use strict; 和鉆石操作符來讀文件就完美了

xiucai315

以后會改進的，別人急著要結果，啥也不管了。哈哈，謝謝指教

2gua

小小鼓勵鼓勵，哈哈哈。