Bill Akins
SSS III
Emory Healthcare
(404) 712-2879 - Office
12674 - PIC
[EMAIL PROTECTED]>>> "[EMAIL PROTECTED]" 10/10/03 08:57AM >>> 
>Hi, 

>i search hiw can i work on time. 
>i want to get day number and make -1 


Try this:
#!/usr/bin/perl -w
 
my @now     = localtime;
my $sec     = ( $now[0] );
my $min     = ( $now[1] );
my $hr      = ( $now[2] );
my $day     = ( $now[3] );
my $mth     = ( $now[4] + 1 );
my $yr      = ( $now[5] + 1900 );
 
$day = ($day -1);
print "Yesterday was $mth/$day/$yr\nor if on the other side of the pond, 
$day/$mth/$yr\n";

 
I hope that helps!

Reply via email to