On vie, sep 10, 1999 at 09:09:38 -0600, Marcelo E. Magallon wrote:
> #!/usr/bin/perl
>
> while (<>) {
> if (m/^[a-zA-Z]+\d{3}_\d{1,4}[xX]?
> \s+([0-9]+\.[0-9]+)
> ((?:\s+\S+){4})$/x) {
> print $1, " ", `programa $2`;
> }
> }
Gracias de nuevo, con gente as� da gusto.
De todas formas Marcelo, 'print $1, " ", 'programa $2';' me imprime bien el
dato pero no la salida del programa pues me saca por pantalla literalmente
'programa $2', es decir _esa cadena_ y no _la salida_. Lo tuve que resolver
como ves en el a-mail posterior mio con un 'open' para que el perl esperara la
generaci�n de la salida (tarda un poquito) �he hecho una tonter�a?, lo
pregunto porque soy novato total en perl.
> desde la l�nea de comando:
>
> $ perl -ne \
> 'if (m/^[a-zA-Z]+\d{3}_\d{1,4}[xX]?\s+([0-9]+\.[0-9]+)((?:\s+\S+){4})$/)
> { print $1, " ", `programa $2`; }' < entrada > salida
�Excelente!.
> perl puede ser muy simple, si te interesa, un buen libro es 'Learning Perl',
> y por supuesto 'Programming Perl'.
Pues si que me interesa, ver� a ver d�nde los consigo, �O'Really quiz�s?.
Saludos y gracias otra vez.
--
Javier Vi�uales Guti�rrez <[EMAIL PROTECTED]>
Webs: http://www.ctv.es/USERS/vigu Personal
http://www.ctv.es/USERS/vigu/linux/ ViguLinux
PGP public key: http://www.ctv.es/USERS/vigu/vigu.pubkey
