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

Responder a