[Perl] linea de comandos...

[Rodrigo Gallardo]

>>>>> "Adrian" =3D=3D Adrian Galindo <agalindo@liceaga.facmed.unam.mx> writ=
es:

    Adrian> 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?

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

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

Pero si a esas vamos, pues ya mejor te botas perl, y usas el puro
shell, =BFno?

cut -f1 -d: /etc/passwd|while read i; do echo "$i@midominio.com";done

--=20
Rodrigo
PGP key 1024D/ADC9BC28 2002-02-26 [expires 2004-02-26]
Fingerprint: 7C81 E60C 442E 8FBC D975  2F49 0199 8318 ADC9 BC28