自己写的一个哈希操作的小程序

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");
    

复制代码

因为文本是中文的，索引是数字，懒得一个一个找好了，就把文本读到hash表里，然后读文件里面的索引值，把对应的中文输出到一个文件里面在贴到要编辑的文件里面去，哈哈，有点笨，但是能解决问题。

zhlong8

能用上 use strict; 和钻石操作符来读文件就完美了

xiucai315

以后会改进的，别人急着要结果，啥也不管了。哈哈，谢谢指教

2gua

小小鼓励鼓励，哈哈哈。