Help for this page

Select Code to Download

Select or download this

sub getPids{
   my ($processName,$owner) = @_;
...
   }
}

Select or download this

 if ($line =~ qr|$owner\s+(\w+)\w+\s+\d+.+processName=$processName|){
  $pid = $line =~ qr|$owner\s+(\w+)\w+\s+\d+.+processName=$processName
+|;
...
}else{
  say "Loser";
}