perl 日期比较

Miketanbin

如题:　我现在有一个TXT文件里面有日期:

2008-08-12 14:29:21
1980-01-01 00:00:00
2008-07-23 17:12:25
2008-07-24 16:45:18

通过<STDIN>的输入跟txt文件的日期进行比较,如果符合条件，则输出txt文件的日期.

不死草

你想干什么呢？问怎么做，还是做的过程中出了问题？

wellfroggy

$input=<STDIN>;
while(<>)
{print if(/$input/)}

Miketanbin

不知道怎么写代码去完成,能否给代码,感谢！

Miketanbin

已实现情况如下:

$input = <STDIN>;
   
    open (LOGFILE,"d:\\perl\\logfile.txt") or die "$!";
             if ($input eq LOGFILE){
                       print $LOGFILE;
                     }

hwxo

perldoc Time::Local

9119111

我都是用split分开了单独比q \

爱哭dē魔女

perldoc Time::Local

detemidy

while(<>)
{
    push(@array,split(/ /,$_));
}
$input = <STDIN>;
chomp($input);
foreach(@array)
{
    chomp($_);
    print $_ if($_ eq $input);
}
我这个可以跑

yingweixu

晕菜...
我怎么看了全部的回复包括问题，还是不知道LZ问的是什么问题？