On 5/2/2001 07:48 AM, Oki DZ wrote:
>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,
itu buat daemonize alias kalo kita buat program daemon. intinya
gak susah kok, gini doang:
if (($pid=fork) == 0) { exec "/path/ke/program/yg/ingin/dijalankan" }
# dapet deh...
>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 :-)
yah.. ini cara 'kasar' sih, kadang2 bisa dapet pid salah/
gak dapet loh. hehe :)
>Oki
--
sh
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
