数字比较

nicaijin

1. #!/usr/bin/perl-w
   
2. my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   
3. $year=$year+1900;
   
4. $mon=$mon+1;
   
5. printf "%04d%02d%02d\n",$year,$mon,$mday;
   
6. $sday=printf "%04d%02d%02d",$year,$mon,$mday;
   
7. print "$sday\n";
   
8. 
   
9. if($sday <= 20111018){
   
10.         print"ABC\n";
    
11. }
    
12. if($sday >= 20111018){
    
13. print"123\n";
    
14. }
    

复制代码

奇怪 明明今天的日期是大于20111018 打印出来 ABC 可是“为什么是打印出来123”

yinyuemi

sprintf

zhlong8

Perl 有专门的时间运算模块

yybmsrs

$sday=printf  错了 结果为1

kexinqw

按照LZ代码的意思：日期大于20111018 打印“123”，日期小于20111018 打印“ABC”。所以输入今天的日期，是应该打印“123”

leve1031

嗯 。应该是
$sday=sprintf "%04d%02d%02d",$year,$mon,$mday;
你原来写的得出来的$sday是201110191
不知道你有没有注意到。。。。

kk861123

回复 1# nicaijin


   在版内搜一下吧，很多关于时间比较的帖子。我一般都是转换成秒再进行比较。使用time获得当前的秒，使用timelocal年月日时分秒转换成秒。

gaoyang636

这个就是没有区分sprintf 和printf的原因了，你应该把第六行双引号里面也加上个\n，然后再跑就能看出来了；
即实际上你的代码中第六行的作用和第五行作用是一样滴，输出也是一样的；
由于操作成功，返回值1，并赋给了$sday，所以输出是ABC