比较打印文件的内容

Miketanbin

下面是我的代码:

open (LOGFILE,"number.txt") or die "$!";
while(<LOGFILE>){
$line = <LOGFILE>;
print $line;
        }
$input = <STDIN>;
chomp($input);

foreach my $openlog($line){
       
         if ($input = $line){
                  print $line;
         
        }
}

number.txt 有：
1987
1987
1987
1987
1987
1987
1987
1987
2005
2005
2005
2005
2005
2005

预期的结果: 在命令输入2005把2005全部显示出来.   
不知道那位高人能否帮我修改一下.

sunrocs

#!/usr/bin/perl -w
use strict;
print "Please enter the number that you want to display: \n";
chomp(my $input=<STDIN>);
open (LOGFILE,"number.txt") or die "$!";
while(<LOGFILE>){
    chomp;
    print $_."\n" if($_ eq $input);
    }

[ 本帖最后由 sunrocs 于 2008-8-22 17:18 编辑 ]

forlorngenius

动作快

churchmice

这个还是好好看看小骆驼吧

Miketanbin

谢谢.

lifeistrue

open (LOGFILE,"number.txt") or die "$!";
@line = <LOGFILE>;
$input = <STDIN>;

foreach my $openlog(@line){
         if ($input eq $openlog){
                  print $openlog;

        }

}

Miketanbin

谢谢