Hola Gerardo, Por que no usan Date::Manip. Tiene acceso a fechas en castillano tambien.
-----Original Message----- From: Gerardo Carvallo Velasco [mailto:gerardo_carvallo@;hotmail.com] Sent: Tuesday, November 12, 2002 9:42 AM To: [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: RE: How can I get the date of today in perl Puedes Utilizar una subrutina como esta: 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]> >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 You _________________________________________________________________ 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 _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
