[perl] Re: Fecha

[Gunnar Wolf]

> Hola!
> 
> Estoy usando el modulo Date-Calc, pero no se como imprimir solo los dos 
> ultimos digitos del año.
> Por ejemplo,
> usando:       | me da como resultado:
> Date_to_Text  | Mar 21-Mar-2000
> Today         | 2000421
> 
> Alguien me puede ayudar (usando Date-Calc) para imprimir solo los dos ultimos 
> digitos del año?
> Necesito que quede la fecha como 000421 y no como 20000421
> 
> Gracias!
> 
> P.D. perdon por la ignorancia!

Si tienes una cadena 20000421 en $fecha, podrias hacer:

$fecha =~ s/\d\d(.+)/$1/;

y ya esta. Claro, hay otros modos, pero a mi me encantan las expresiones
regulares :)

Salu!

-------------------------------------------------------------------
           Gunnar Wolf    gwolf@campus.iztacala.unam.mx
     Universidad Nacional Autónoma de México, Campus Iztacala
   Jefatura de Sección de Desarrollo y Admon. de Sistemas en Red
        Area de Seguridad en Computo - DCI - DGSCA - UNAM
-------------------------------------------------------------------
  Beginner thinks 1Kb == 1000 bytes.   Master knows 1Km == 1024m

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl