[Perl] linea de comandos...

[Jose Antonio Galicia]

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"'

 Saludos,
 To=F1o
---
Computers are useless.  They can only give you answers.
		-- Pablo Picasso