Re: Offtopic: Expresiones regulares, ¡ayudadme!

["Marcelo E. Magallon" <mmagallo@efis.ucr.ac.cr>]

>> Marcelo E. Magallon escribió:

 >  demasiado a prisa, en perl:
    ^^^^^^^^^^^^^^^^^

 Esto trabaja bien:
 
 #!/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`;
     }
 }

 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

 perl puede ser muy simple, si te interesa, un buen libro es 'Learning Perl',
 y por supuesto 'Programming Perl'.

        Marcelo