• Publicidad

Concatenación

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Concatenación

Notapor mulambo » 2007-08-14 10:12 @466

Buenas tardes.

Estoy comenzando a conocer Perl y requiero hacer una tarea que es muy importante.

Me conecto a un servidor vía FTP para buscar un archivo, lo cierto es que el archivo cambia de nombre diariamente de esta manera:

Código: Seleccionar todo
im140807.tml
im150807.tml


Lo que quiero hacer es concatenar la fecha del sistema de la siguiente manera:

IM ddmmyy .TML

¡Si alguien tiene una respuesta a mi planteamiento lo agradeceré mucho...!

Saludos,

¡Mulambo!
mulambo
Perlero nuevo
Perlero nuevo
 
Mensajes: 22
Registrado: 2007-08-14 10:06 @462

Publicidad

Notapor explorer » 2007-08-14 10:21 @473

Hola, Mulambo.

Bienvenido a los foros de Perl en Español.

Esta es una de las múltiples soluciones a tu problema:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
my ($dia,$mes,$anno) = (localtime)[3,4,5];
$mes++;
$anno= substr($anno + 1900, -2);

$fichero = sprintf("im%02d%02d%02d.tml", $dia,$mes,$anno);

print "$fichero\n";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
No dices si debe ser la fecha del sistema con respecto a la hora local o la hora GMT, pero bueno, es solo cuestión de cambiar localtime() por gmtime().

La forma de extraer los valores de localtime() es un poco obscura, pero al menos, es breve. Si tienes algún problema, ya sabes, aquí.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor explorer » 2007-08-14 10:26 @476

Esta es otra versión... mucho más corta... usando el módulo POSIX:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
use POSIX 'strftime';
$fichero = strftime("im%d%m%y.tml", localtime);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor mulambo » 2007-08-14 10:42 @487

Gracias por sus respuestas...
Explorer, no necesito la hora exacta, solo necesito el día, mes y año. Esto será en el futuro en batch que correrá en las madrugadas. Entonces necesitaría que si se corre a determinada hora del día me dé diaMesAno (ddmmyy).
De todas formas tus ejemplos me sirvieron de mucho y ya los coloqué en mis script.

Mil gracias...

Saludos,

¡Mulambo!
mulambo
Perlero nuevo
Perlero nuevo
 
Mensajes: 22
Registrado: 2007-08-14 10:06 @462


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 25 invitados