my $new_name = 'terrences_process'; $0 = $new_name; my $login = getlogin || 'tmbranno'; warn $login; my %ps = ( 'Darwin' => [qw(ps aux)], 'SunOS' => [qw(ps -eaf)] ); my $uname = `uname`; chomp $uname; my $cmd = join ' ', @{$ps{$uname}}, '|', 'grep', $login , '|', 'grep', + $new_nam\ e; warn $cmd; my $ps = `$cmd`; warn $ps;
In reply to changing title of a process under Solaris by princepawn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |