Steven Haryanto wrote:
> lakukan dengan mem-fork command tsb dari skrip perl anda.
> skrip perl anda sebagai induk proses akan memperoleh pid
> child tersebut. jelasnya, man perlipc.
Sudah lihat man-nya, ada contoh:
sub daemonize {
chdir '/' or die "Can't chdir to /: $!";
open STDIN, '/dev/null' or die "Can't read /dev/null:
$!";
open STDOUT, '>/dev/null'
or die "Can't write to /dev/null:
$!";
defined(my $pid = fork) or die "Can't fork: $!";
exit if $pid;
setsid or die "Can't start a new
session: $!";
open STDERR, '>&STDOUT' or die "Can't dup stdout: $!";
}
tapi kok sepertinya susah, jadinya pakai cara yang agak merakyat saja
dikit:
pstree -ap | grep java | grep Avalon | head -1 | cut -f 2 -d '(' | cut
-f 1 -d ')'
Yang penting, dapat aja itu pid :-)
Oki
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
