[Perl] linea de comandos...

[Gunnar Wolf]

> Como hago en perl algo parecido a esto:
>
> cat usuarios.txt | awk -F: {'print $1"\@midominio.com"'}
>
> la salida es
>
> usuario1@midominio.com
> usuario2@midominio.com
> usuario3@midominio.com
> usuario4@midominio.com
> usuario5@midominio.com
>
> Si alguien tiene alguna referecia de como ejecutar en linea de comandos
> se lo voy a agradecer :)

Traducci=F3n literal:

cat usuarios.txt | perl -e 'while (<>) {chomp;print "$_\@midominio.com\n"}'

--=20
Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52-55)5623-1118
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF