sub getDate{
my $time = time() + ($time_zone * 3600);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime ($time);
#Agrega digitos para a�o 2000
$year += ($year < 90) ? 2000 : 1900;
my $am = "AM";
$am = "PM" if($hour>12);
$hour -= 12 if($hour>12);
my $mins = sprintf("%02d:%02d %s",$hour,$min,$am);
$dateNumber = sprintf("%02d/%02d/%04d %s",$mon+1,$mday,$year,$mins);
$dateShort = sprintf("%02d/%02d/%04d",$mon+1,$mday,$year);
my @RealDay = ("Domingo","Lunes","Martes","Mi�rcoles",
"Jueves","Viernes","S�bado");
my @RealMonth = ("Enero","Febrero","Marzo","Abril","Mayo","Junio",
"Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre");
my $daweek = $RealDay[$wday]; # Monday, Tuesday, etc.
my $month = $RealMonth[$mon]; # January, February, etc.
$dateString ="$daweek $mday de $month del $year $mins";
}
Atentamente
Gerardo Carvallo V.
From: "Spitzer, Robert \(T05\)" <[EMAIL PROTECTED]>You
To: "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]>, [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED]
Subject: RE: How can I get the date of today in perl
Date: Tue, 12 Nov 2002 08:03:22 -0500
You can grab the individual items out of localtime by doing something like:
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
Rob Spitzer
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:Cai_Lixin@;emc.com]
Sent: Monday, November 11, 2002 5:51 PM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: How can I get the date of today in perl
It looks like localtime() function returns both Date and time, I only want
to get date. How can I do that in perl?
Thanks
Lixin
_______________________________________________
Perl-Win32-Admin mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_________________________________________________________________
MSN Fotos: la forma m�s f�cil de compartir e imprimir fotos. http://photos.msn.es/support/worldwide.aspx
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
