[perl] seleccionar de caracteres

[lrgallardo@abl.com.mx]

Ricardo Cumberbatch L. writes:
 > Hola q tal,
 > 
 > Espero no quitarles el tiempo con mi problema talvez parece sencillo pero
 > no doy con este. Me explico
 > 
 > Tengo un archivo DATO.TXT el cual contiene unas lineas parecidas a esto:
 > 
 > pc1.nam.cu   12/01/2001
 > mio.dat.vi     12/01/2001
 > cp2.mio.pc  14/05/2000 
 > 
 > lo que quiero es que despues de yo abrir el archivo DATO.TXT buscar la
 > linea q me interesa y obtener la fecha. 
 > Ejemplo si busco mio.dat.vi quiero la fecha 12/01/2001 que pase a una
 > variable.

perl -ne '/^mio.dat.vi\s/ and print ((split)[1], "\n")' <DATO.TXT

O si lo quieres usar adentro de un programa mas grande:

open DATO, "DATO.TXT";
$cadena = "mio.dat.vi";
while (<DATO>) {
      /^$cadena\s/ and (undef, $a) = split
      #haz lo que quieras con $a
}
close DATO

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