root/misc/pskill

Revision 1917 (checked in by miyagawa, 13 years ago)

use STDIN

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