[Perl] linea de comandos...

[Adrian Galindo]

On Tue, 18 Jun 2002, Gunnar Wolf wrote:

> > > > cat usuarios.txt | awk -F: {'print $1"\@midominio.com"'}
> >
> > > Traducci=F3n literal:
> >
> > > cat usuarios.txt | perl -e 'while (<>) {chomp;print "$_\@midominio.=
com\n"}'
> >
> >  Nopo, dice mi am=E1 que as=ED no:
> >
> > 	cat usuarios.txt | perl -ne 'split(/:/); print "$_[0]\@dominio.com\n=
"'
>=20
> Ummm... =BF?

Versi=F3n simplista, pa' que no se pelien (bueno, ni tanto):

cut -f1 -d: /etc/passwd |perl -ne 'chop; print "$_\@midominio.com\n"'

Aunque creo que estamos de acuerdo que s=ED se va a usar Perl, lo mejor e=
s=20
usar un script, comentado, firmado y listo para que pase a la posteridad,=
=20
=BFno?

Saludos.
Adri=E1n.