El viernes 10 de septiembre de 1999 a la(s) 14:34:40 -0600, Marcelo E. Magallon
contaba:
Learning Perl (2da ed); Randal L. Schwartz
Programming Perl (2da ed); Larry Wall et al
ambos de O'Reilly, como US$20 cada uno.
:^/ ¿No son demasiado baratos?
--
Just do it.
David Serrano
On Fri, 10 Sep 1999 14:54:19 +0200, Javier Viñuales Gutiérrez
[EMAIL PROTECTED] wrote:
Hola y ante todo perdón por el tema pues se sale de la temática de la lista
pero como se que aquí hay más de uno que domina el tema de las expresiones
regulares dejo mi questión.
Veamos, necesito procesar todo
On vie, sep 10, 1999 at 02:36:46 -0600, Marcelo E. Magallon wrote:
son ` no ' (backticks como en à), en mi teclado ` está al lado del 1.
Efectívamente, eso era :)
Ahora corre más rápido que con el 'open/close'.
Exacto, mira el otro mensaje que mandé...
Lo miré, gracias... iré corriendo mañana
Hola y ante todo perdón por el tema pues se sale de la temática de la lista
pero como se que aquí hay más de uno que domina el tema de las expresiones
regulares dejo mi questión.
Veamos, necesito procesar todo un directorio de ficheros que contienen
N líneas tal que:
etiqueta[espacios o
Javier Viñuales Gutiérrez escribió:
etiqueta[espacios o tab]dato[espacios o tab]arg1 arg2 arg3 arg4
donde: etiqueta=[A-Z ó a-z][00-500]_[0-2000]['X' ó 'x' ó '']
dato=número en coma flotante (xxx.xx)
argi= cadenas de caracteres
demasiado a prisa, en perl:
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
De que autores?
Marcelo E. Magallon escribió:
demasiado a prisa, en perl:
^
[...]
perl puede ser muy simple, si te interesa, un buen libro es 'Learning
Perl',
y por supuesto 'Programming Perl'.
Marcelo
On vie, sep 10, 1999 at 08:30:17 -0600, Marcelo E. Magallon wrote:
demasiado a prisa, en perl:
[a-zA-Z]+\d{3}_\d{1,4}[xX]?\s+[0-9]+.[0-9]+\s+\S+\s+\S+\s+\S+\s+\S+
Efectívamente, depurando un poco funciona perfecto si hago:
#!/usr/bin/perl -w
open(FICHENT,$ARGV[0]) || die Error: No puede
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
On Fri, Sep 10, 1999 at 03:14:48PM -0300, [EMAIL PROTECTED] wrote:
De que autores?
Learning Perl (2da ed); Randal L. Schwartz
Programming Perl (2da ed); Larry Wall et al
ambos de O'Reilly, como US$20 cada uno.
Marcelo
On Fri, Sep 10, 1999 at 09:43:45PM +0200, Javier Viñuales Gutiérrez wrote:
print $1, , `programa $2`;
De todas formas Marcelo, 'print $1, , 'programa $2';'
son ` no ' (backticks como en à), en mi teclado ` está al lado del 1.
Pues si que me interesa, veré a ver dónde los consigo,
On Fri, Sep 10, 1999 at 07:28:23PM +0200, Javier Viñuales Gutiérrez wrote:
P.D1: ¿Cómo implementaría en perl el análogo a 'if(argcNUMARGS) exit(1);'
de C?.
Lo más parecido a C sería, $#ARGV
@ARGV The array @ARGV contains the command line
arguments intended for the
12 matches
Mail list logo