pass argument (ex. time) to perl CGI script
Saturday, May 8, 2010 7:46:13 AM
#! /usr/bin/perl
my $input=$ARGV[0];
# get localtime via perl function
($sec,$min,$hour,$day,$mon,$year)=localtime(time+86400*$input);
$mon++;
if (length ($mon) == 1) {$mon = '0'.$mon;}
if (length ($day) == 1) {$day = '0'.$day;}
$year+=1900;
my $input=$ARGV[0];
# get localtime via perl function
($sec,$min,$hour,$day,$mon,$year)=localtime(time+86400*$input);
$mon++;
if (length ($mon) == 1) {$mon = '0'.$mon;}
if (length ($day) == 1) {$day = '0'.$day;}
$year+=1900;






