perl文字内容处理

ymhui520

   

下面是记事本里面的内容.当用户输出aa3的时候怎么输出c8???
aa1 c2
aa2 c3
aa3 c8
aa4 c0

nixiaoweihunter

用哈希

ymhui520

刚学PERL不会写

yinyuemi_cu

1. 
   
2. #!/bin/perl
   
3. 
   
4. use strict;
   
5. use Data::Dumper;
   
6. my @array=(<DATA>);
   
7. my %hash=map {split /\s/} @array;
   
8. print Dumper \%hash;
   
9. 
   
10. 
    
11. __DATA__
    
12. aa1 c2
    
13. aa2 c3
    
14. aa3 c8
    
15. aa4 c0
    

复制代码