怎样按照我输入的编号去读取一行数据。

freefall

原帖由 "oraclelangzi" 发表：
我想在perl程序运行的时候我去输入一个编号 就去读取对应编号的数据。
把读取的数据赋予一个变量。


please input num： 2

他就应该去读去的是：102.13.20.8  

……………………………………………………..........

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. open FH,"yourfile" or die;
   
7. my %hash = map {(split)[0]=>;(split)[1]} <FH>;;
   
8. close FH;
   
9. 
   
10. print "Enter the line number...\n";
    
11. chomp (my $num = <STDIN>;);
    
12. 
    
13. print "What you want is $hash{$num}\n" if exists $hash{$num};
    

复制代码