[Perl] Porque no corre

[Jose Antonio Galicia]

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.

--=20

 Saludos,
 To=F1o
---
Wedding is destiny, and hanging likewise.
		-- John Heywood