perl 日期比较

Miketanbin

1^# Miketanbin 发表于 2008-08-12 14:51

如题:　我现在有一个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文件的日期.

不死草

2^# 不死草发表于 2008-08-12 14:53

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

wellfroggy

3^# wellfroggy 发表于 2008-08-12 14:59

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

Miketanbin

4^# Miketanbin 发表于 2008-08-12 15:13

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

Miketanbin

5^# Miketanbin 发表于 2008-08-12 15:25

已实现情况如下:

$input = <STDIN>;

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

hwxo

6^# hwxo 发表于 2008-08-12 15:41

perldoc Time::Local

9119111

7^# 9119111 发表于 2008-08-12 15:45

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

爱哭dē魔女

8^# 爱哭dē魔女发表于 2008-08-12 19:39

perldoc Time::Local

detemidy

9^# detemidy 发表于 2008-08-12 22:58

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

yingweixu

10^# yingweixu 发表于 2008-08-12 23:45

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