For those that don't speak Spanish, and especially those that speak English
as their second language, I'd like to encourage you to make all of your
posts in English. It's not that there's anything wrong with other
languages, but more of the people on this list speak English than any other
language, and it would be a shame to deprive them of the chance to learn
from your questions and solutions. Noone cares if your English is perfect,
but since this is a list for beginners, it is important that your
communications are received and understood by the people on this list.
Thanks for understanding.
-----Original Message-----
From: Norris, Joseph
To: 'Gerardo Carvallo Velasco'; [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED];
[EMAIL PROTECTED]
Sent: 11/13/02 8:27 AM
Subject: RE: How can I get the date of today in perl
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-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
