root/misc/pskill

Revision 1913 (checked in by miyagawa, 14 years ago)

add pskill

  • Property svn:executable set to *
Line 
1 #!/usr/bin/perl
2 my $sig = $ARGV[0] || 2;
3    $sig =~ s/^-(\d+)/$1/;
4
5 while (<>) {
6     my($pid) = (split /\s+/)[1];
7     kill $sig, $pid;
8 }
Note: See TracBrowser for help on using the browser.