perl 日期比较

gawk

就是输入和文件中的内容比较
匹配就打印

a_789_123

我验证了一下上面发的程序，都不对，我写了一个，仅供参考：
#!/usr/bin/perl

use strict;

my (@array,$input);
open (LOGFILE,"D:\\perlexe\\aaa.txt" or die "$!";
while(my $bb=<LOGFILE>{
        #push(@array,split(/ /,$bb));
        push(@array,$bb);
}

#print "@array\n";
#print $array[0]." ".$array[1];
$input = <STDIN>;
chomp($input);
print "inputinput\n";

foreach my $aa(@array)
{
    chomp($aa);
    if($aa eq $input){
            print "$input\n";
    }else{
            print "input not equal in file!\n";
    }
   
}

wgyzhechao

参照书上写出：
#!c:\perl\bin\perl.exe

use strict;

chomp(my $input=<STDIN>);
open(LOG,"c:\\Perl\\test.log");
while (<LOG>){
        print $input,"\n"        if (/$input/);
}

[ 本帖最后由 wgyzhechao 于 2008-8-13 16:46 编辑 ]