perl tricks
时间：2007-05-21 来源：digex
how to find those installed modules?
[code]find `perl -e 'print "@INC"'` -name '*.pm' -print[/code]
how to kill zombie processes?
[code]
$username =`whoami`;
chomp($username);
@aa = `ps -ef|grep $username|grep -v grep |grep -v ps|cut -c8-14`;
for(@aa){
chomp;
next unless /^\d+$/;
unless( kill 0 =>;$_){
kill 9 =>; $_;
}
}[/code]
[code]find `perl -e 'print "@INC"'` -name '*.pm' -print[/code]
how to kill zombie processes?
[code]
$username =`whoami`;
chomp($username);
@aa = `ps -ef|grep $username|grep -v grep |grep -v ps|cut -c8-14`;
for(@aa){
chomp;
next unless /^\d+$/;
unless( kill 0 =>;$_){
kill 9 =>; $_;
}
}[/code]
相关阅读 更多 +
