Alvaro Herrera wrote: > On Thu, Apr 01, 2004 at 09:46:32PM -0400, Roberto Bonvallet wrote: >> En Thu, Apr 01, 2004 at 06:15:19PM -0400, Alvaro Herrera escribio: >>> Puede ser, pero yo soy perlero asà que TIMTOWTDI :-) >> >> Entonces espero su venia para esta otra solucion :) >> >> perl -e's/^\w+:[^:]*:\d+:\d+:([^,]*),.*$/\1/&&print while<>' < /etc/passwd > > Muy ineficiente :-( Mejor > > perl -ne 'print "", ((split /,/, ((split /:/)[4]))[0]), "\n"' /etc/passwd
Pero en Perl, no en LISP... ;-) perl -F: -anle '$F[2]<500or print$F[4]' /etc/passwd -- Cristian Gutierrez http://www.dcc.uchile.cl/~crgutier [EMAIL PROTECTED] Jabber:[EMAIL PROTECTED] "Perl - The only language that looks the same before and after RSA encryption." -- Keith Bostic

