>> 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
