Foro - Perl en Español

por **Jsargiotto** » 2006-12-20 20:09 @881

¡¡¡Hola comunidad!!!

He recurrido a uds. porque estoy empezando Perl...

y bueno...ya empezaron las dificultades.

Mi problema es que necesito mostrar la fecha con el siguiente formato:
Día, XX de Mes de XXXX.
Ej: Miércoles, 20 de Diciembre de 2006

Tengo algo hecho... pero me muestra solamente la última parte, es decir, 20 de Diciembre de 2006.

Mi pregunta es: ¿cómo consigo el día?

Aquí les dejo lo que hice:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use warnings;

# Arreglo con los meses del año
@meses=("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre");

$fecha=`date/t`;

($dia,$mes,$anio)=split(/\//,$fecha);

$mes--;
print"Hoy es: ".$dia." de ".$meses[$mes]." de ".$anio."\n";Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/env perl
use strict;
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

my@abbr=qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
my@dias=qw( Dom  Lun Mar Mier Jue Vie Sab );
$year+=1900;
print"Hoy es $abbr[$mon] $dias[$wday] $mday de $year\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Tomado (parte) de perldoc :idea:

por **explorer** » 2006-12-20 21:00 @917

Bienvenido a los foros de Perl en Español.

Primero, comentar que obtener la fecha llamando al comando 'date' puede ser un poco peligroso, porque depende del sistema en que nos encontremos. En unos casos te devolverá la fecha separado con '/' pero en otros, no.

Es mejor usar localtime o gmtime.

Y en cuanto a sacar el nombre del día, se hace de la misma forma que has sacado el nombre del mes. Es decir, creando un array con los nombres de los días, como te ha mostrado creating021.

De todas maneras, esta es una operación tan normal que hay múltiples formas de conseguirla. Si consultas la ayuda de Perl, con el comando perldoc en unix o Linux o la ayuda en html en Windows, verás al final de localtime una forma de obtener la fecha que depende directamente del idioma en que está corriendo tu sistema:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -l
use POSIX 'strftime';
print strftime "%A, %e de %B de %Y",localtime;# jueves, 21 de diciembre de 2006Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2006-12-21 06:52 @328

Seguro que hay una opción en ese comando date de tu sistema para sacar el día de la semana.

Tendrás que sacar la ayuda de ese comando.

Foro - Perl en Español

Fecha: obtener el día de la semana

Fecha: obtener el día de la semana

Publicidad

¿Quién está conectado?