Help for this page

Select Code to Download

Select or download this

my $logname = `logname`; chomp($logname);
my $output = `ps -ef | grep $logname`;
if ($output =~ /.*\/export\/home\/$logname\/(.*)\/bin\/.*/m){
print "$`\n";
}

Select or download this

^.*\/export\/home\/$logname\/(.*)\/bin\/.*$