Help for this page

Select Code to Download


  1. or download this
    $tme=localtime();
my ($d,$m,$y) = (localtime)[3,4,5];
my $mdy1 = sprintf '%d-%d-%d', $d, $m+1, $y+1900;
print "\nDate is:$mdy1\n";
if ($mdy1 eq "0-3-2015") {$mdy1 = "28-2-2015";}
print "\nDate is:$mdy1\n";
  2. or download this
     
#!/usr/bin/perl --
use strict; use warnings;
...
"0\n1\n"
"0\n1\n2\n"
"0\n1\n2\n3\n"