显示闰年的perl脚本

KornLee

[php]
#!perl -w
#perl version:5.8.0
@year=(0..2004);
foreach(@year){
        if($_%4==0 and $_%100!=0 or $_%400==0){
        push @Ryear,$_;
        }
}
print join (' ',"公元0--2004年中所有的闰年:\n",@Ryear,"\n");
print "总计共有$#Ryear个闰年\n";
[/php]
ps:初学乍练,请各位兄弟指教 :thank

BBDD

小错误，应该是$#Ryear+1个闰年。
另外@year其实没什么用，直接写foreach (0..2004)就可以了。

redspider

顶
perl版人气有待提升，devel MM呐

roby

1. 
   
2. #!/usr/bin/perl -w
   
3. foreach(0..2004){ printf "%5d",$_ if($_%4==0 && $_%100!=0 || $_%400==0)}
   

复制代码

redspider

接受命令行参数的版本  :p

1. #!/usr/bin/perl -w
   
2.       
   
3. @ARGV;
   
4. foreach($ARGV[0]..$ARGV[1])
   
5. {
   
6.    if($_%4==0 and $_%100!=0 or $_%400==0)
   
7.    {
   
8.    push @Ryear,$_;
   
9.     }
   
10. }
    
11. print join (' ',"公元$ARGV[0]--$ARGV[1]年中所有的闰年:\n",@Ryear,"\n");
    
12. print "总计共有$#Ryear个闰年\n";

复制代码

KornLee

最初由 BBDD 发表
小错误，应该是$#Ryear+1个闰年。
另外@year其实没什么用，直接写foreach (0..2004)就可以了。

:thank

seablue

lee的程序更高级些，要是可以接受上下限日期输入就更完善了。
:thank