nohup in perl

[justme]

hi

is there an equivalent implementation of nohup in perl, something
like system("nohup $command" ) ??

thanks

 

[Jaap Karssenberg]

How about:

sub nohup {
local $SIG{HUP} = 'IGNORE';
my $pid = fork;
if ($pid) { return $pid } # parent
else { # child
#.... command code here
}
}

of course I have no idea what you are trying to do, so I can't really
say if this would be wise to use

 

[Steven N. Hirsch]

How about:

use POSIX;

sub nohup {
local $SIG{HUP} = 'IGNORE';
my $pid = fork;
if ($pid) { return $pid } # parent
else { # child

setsid() or die "Cannot establish session id: $!\n";

#.... command code here
}
}

You probably want to disassociate from the current session ID, per above.