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

oraclelangzi

我想在perl程序运行的时候我去输入一个编号 就去读取对应编号的数据。
把读取的数据赋予一个变量。


please input num： 2

他就应该去读去的是：102.13.20.8  

………………………………………………………………
b.ini  文件中的

1      210. 102.13. 17

2      102.13.20.8
  
由于刚学习perl  是采鸟  我有了这个思路但是不知具体的怎么写
请前辈们给个大致的框架写法好吗？指条路。

谢谢了！！

superdoctor

while ,设一个自变量就可以读到想要的那一行

oraclelangzi

open FH , "/opt/MM/b.ini" || die "can't open file!" ;

print" please input num:";
   my $input=<STDIN>;;
    print "ok!$input";

while(<FH>
{   
}
不行还是 写不了 请高手给指导怎么写的

deathcult

你的需求也太简略了啊，从哪里读？文件内容格式是什么样的？？

oraclelangzi

我的意思就是 我输入一个表号 他就去文件中找到对应的一条数据赋予 变量
我上面 写了 我的文件的格式。

b.ini  文件中的

1      210. 102.13. 17

2      102.13.20.8


如果你输入了的编号是1  他就把 210. 102.13. 17  给变量 $num

（$num=210. 102.13. 17 )  就行了。

谢谢了！！

oraclelangzi

open FH , "/opt/MM/b.ini" || die "can't open file!" ;

print" please input num:";
  my $input=<STDIN>;;
   print "ok!$input";

while ($line = <FH> {
    print ($line);
    }
我这样写他能把整个文件都给打印出来了
但是我怎么样让他显示我 输入编号的那行数据对应起来呢？

gtlxx

# This script receive a number from console then extract a IP address corresponding to the number.As following:
#                 somefile.ini
#                                1      210.102.13.17
#                                2           102.13.20.8
# If the input is "2",then "102.13.20.8" is what I want.

print "Input a number:";
$n = <STDIN>;;
chop($n);
print "You input number :" . $n;

open( HFILE, "somefile.ini" );

while ($line = <HFILE>
{
        @fields = split( /\s+/, $line );
        if ( $fields[0] == $n )
        {
                $target = $fields[1];
                last;
        }
}

print "\nThe corresponding IP is " . $target;

测试文件somefile.ini:

1                210.102.13.17
2                102.13.20.8
3                192.168.1.2
4                23.67.222.110

superdoctor

不要$line=<FILEHANDLER>;,直接while(<FILEHANDLER>，然后设一个$i,每WHILE一次$i++，然后判断$i是否等于你预设的number，等于的话print $_

flw

[quote]原帖由 "superdoctor"]不要$line=<FILEHANDLER>;,直接while(<FILEHANDLER>，然后设一个$i,每WHILE一次$i++，然后判断$i是否等于你预设的number，等于的话print $_[/quote 发表：

不用 $i 加加吧？$. 就好。

superdoctor

原帖由 "flw" 发表：

不用 $i 加加吧？$. 就好。

是的