[Perl] linea de comandos...

[Gunnar Wolf]

> > > > cat usuarios.txt | perl -e 'while (<>) {chomp;print "$_\@midominio.=
com\n"}'
> > >
> > >  Nopo, dice mi am=E1 que as=ED no:
> > >
> > > =09cat usuarios.txt | perl -ne 'split(/:/); print "$_[0]\@dominio.com=
\n"'
> >
> > 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
> usar un script, comentado, firmado y listo para que pase a la posteridad,
> =BFno?

Ummm... No. Parte de los mejores scripts de Perl son un one-liner
(inclu=EDdos los famos=EDsimos YAPH) aptos para ser inclu=EDdos en tu cront=
ab:

0 * * * * cat /etc/passwd | /usr/bin/perl -ne 'split(/:/);unlink("/var/mail=
/$_[0]") if $bofh'

--=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