Ubuntu中文论坛

代码： 全选

#!/usr/bin/perl
# FILE: /home/linkto/pid.pl
#
# find the pid of java, then write it to "java.pid".
# ---cat java.pid---
# 16542 16565
# -------------------

use strict;

my @lines = `ps -e |grep java`;
open JAVAPID,">/home/linkto/java.pid";
foreach my $pid_num (@lines) {
    if ($pid_num =~ /\s*(\d+)\s+/) {
        print JAVAPID "$1 ";
    }
}
print JAVAPID "\n";
close JAVAPID;