[Perl] Porque no corre

[=?iso-8859-1?Q?Benjamin_Huitr=F3n_Solar?=]

Gracias por la ayuda,
Salvador: no use precisamente el  getpwuid porque como el programa se cor=
reo
bajo root, cuando se corre el programa da un resultado asi:
Eres root en /dev/pts/10 y lo que quiero saber es quien fue el se convirt=
io
en root.
Antonio: No se porque no corrio me marcaba:
Can't find string terminator "'" anywhere before EOF at ./prueba line 6.

En fin gracias por su copearcion, es bueno saber que ahi personas que nos
pueden ayudar a los novatos como yop
Feliz a=F1o

Asi quedo el programitia, a lo mejor no es  muy optimo pero me funciono:

Saludos
#!/usr/bin/perl
$Terminal=3D`tty| cut -c6-12`;
$aux=3D`ps -Af| grep -v root | grep $Terminal `;
$UserShell=3Dsubstr($aux,0,8);
printf "Tu terminal es $Terminal y tu eres $UserShell";

                              ,,,,,,
                            ( o  o )
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3DoOO=3D=3D(_)=3D=3DOOo=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
         B e n j a m i n - H u i t r =F3 n - S o l a r
                   G e m t e l - I n t e r n e t
                          # ICQ 58196854
      Web Site: http://gemtel.com.mx/~benjamin/
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

"Mensaje enviado intencionalmente sin acentos para facilitar su lectura e=
n
cualquier programa de correo=AE"
----- Original Message -----
From: "Jose Antonio Galicia" <jcgalici@cbbanorte.com.mx>
To: "Benjamin Huitr=F3n Solar" <benjamin@gemtel.com.mx>
Cc: "lista perl" <perl@tlali.iztacala.unam.mx>
Sent: Saturday, January 05, 2002 2:20 AM
Subject: Re: [Perl] Porque no corre


> On Fri, 4 Jan 2002, Benjamin Huitr=F3n Solar wrote:
>
> > $Terminal=3D`tty | cut -c6-11`;
> > $UserShell=3D`ps -Af | grep -v root | cut -c1-8| grep $Terminal `;
> > printf "Hola tu terminal es $Terminal y tu eres $UserShell";
> >
> >
> > Ejecutandolo desde el shell pongo lo pongo asi:
> > ps -Af | grep pts/9 | grep -v root  | cut -c1-8
>
>  =BFY si lo ejecutas igual en perl?
>
> #!/usr/bin/perl
> chomp($a=3D`tty`);
> $a =3D~ s|^/dev/||;
> chomp($b=3D`ps -Af | grep $a | grep -v root | cut -c1-8`);
> print ".$b.\n";'
>
>  primero el grep a lo que buscas y despues eliminas lo que
> no necesitas.
>
> --
>
>  Saludos,
>  To=F1o
> ---
> Wedding is destiny, and hanging likewise.
> -- John Heywood
>
>
>
>
> _______________________________________________
> Perl mailing list
> Perl@tlali.iztacala.unam.mx
> http://tlali.iztacala.unam.mx/mailman/listinfo/perl
>