ripiar etc/passwd

[Alvaro Herrera]

On Fri, Apr 02, 2004 at 10:19:11PM -0400, Cristian Gutierrez wrote:

Ref: https://listas.inf.utfsm.cl/pipermail/linux/2004-April/001684.html

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

Puedes usar esto sin regexp con split:

perl -F: -anle'$F[2]<500or(@a=split/,/,$F[4])&&print$a[0]' /etc/passwd

(Observa que los () alrededor de la asignacion a @a son requeridos por
un problema de precedencia)

O bien

perl -F: -anle'$F[2]<500||print((split/,/,$F[4])[0])' /etc/passwd

(cambié "or" por "||" para ahorrar un espacio)

-- 
Alvaro Herrera (<alvherre[a]dcc.uchile.cl>)
"Those who use electric razors are infidels destined to burn in hell while
we drink from rivers of beer, download free vids and mingle with naked
well shaved babes." (http://slashdot.org/comments.pl?sid=44793&cid=4647152)