Foro - Perl en Español

por **Kiloko** » 2008-06-11 16:52 @744

Una pregunta algo básica, pero tengo mi código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use POSIX;
#**************************************************
my$AYER= strftime("%Y%m%d",localtime(time- 86400));
#**************************************************Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

En donde $AYER, me da la fecha, pero necesito buscar X archivos y
necesito que $AYER2 = "ejemplo_$AYER.dat" ;
donde (*) son todos los demás números, o letras que le sigan después de ahí.

Se podría hacer un while, definiendo los rangos, de esos espacios, pero no existe algún comodín que me permita hacer esto; ¿cómo se haría normalmente en una terminal?

Saludos

#!/usr/bin/ksh

. $HOME/.profile
exportCOLECTORHOME=/export/home/thread
exportAYER=`perl$COLECTORHOME/bin/ayer2.pl `;
exportprefix=pruebas
cd${COLECTORHOME}/historico/

echo${AYER}0
gzip${prefix}${AYER}0*
tar-cvf Tar_PRUEBAS_LAT_${AYER}0.tar  ${prefix}${AYER}0*
rm${prefix}${AYER}0*

echo${AYER}1
gzip${prefix}${AYER}1*
tar-cvf Tar_PRUEBAS_LAT_${AYER}1.tar  ${prefix}${AYER}1*
rm${prefix}${AYER}1*

echo${AYER}2
gzip${prefix}${AYER}2*
tar-cvf Tar_PRUEBAS_LAT_${AYER}2.tar  ${prefix}${AYER}2*
rm${prefix}${AYER}2*
gzip*.tar
echo TerminoColoreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Y listo, con eso comprimo todo en 3 archivos por comodidad y uso así lo hago en vez de uno solo... y con la función de Perl ayer.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use POSIX;
#**************************************************
my$AYER= strftime("%Y%m%d",localtime(time- 86400));
#**************************************************
print"$AYER";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

establezco la fecha. Y listo... por el momento está funcionado bien...

por **explorer** » 2008-06-27 13:23 @599

Desde luego, es factible hacerlo todo en Perl.

Y si solo estás usando Perl para calcular el día de ayer, yo hubiera usado en su lugar el comando date(1) del sistema.

Foro - Perl en Español

Comodín

Comodín

Publicidad

¿Quién está conectado?