[perl] seleccionar de caracteres

[Jose Antonio Galicia]

On Mon, 15 Jan 2001, Ricardo Cumberbatch L. wrote:

> 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 

 cat DATO.TXT | perl -e '$cadena="mio.dat.vi"; while(<>) {@F=split; if ($F[0] eq $cadena) {print "$F[1]\n"}}'

 Saludos,
 Toņo.
---
 mailto: jcgalici@cbbanorte.com.mx

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