ripiar etc/passwd

[Cristian Gutierrez]

Alvaro Herrera wrote:
> On Fri, Apr 02, 2004 at 01:46:31AM -0400, Cristian Gutierrez wrote:
>> Alvaro Herrera wrote:
>
>>> 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
>
> Yo habia partido con algo semejante, pero resulta que tienes que
> imprimir solo lo que esta antes de la primera , dentro del quinto
> campo (por eso hay dos split).

Uh, right.

  perl -F: -anle'$F[2]<500or$F[4]=~/^([^,]*),/&&print$1' /etc/passwd

Igual cai en una regexp :-(

> OTOH, eres bastante amarrete con los espacios :-D

Ah, si, la idea es dejar menos espacio para que aparezcan bugs ;-)

-- 
Cristian Gutierrez			http://www.dcc.uchile.cl/~crgutier
crgutier[@]dcc.uchile.cl                        Jabber:crgutier en jabber.org

"Perl - The only language that looks the same before and after RSA
encryption."                  -- Keith Bostic