assign background process to variable

[lancerset]

Hello everyone,

I know in shell scripting you can put a job in the background and get
that process id and assign it to a variable, have it capture some data
and
theN kill it. I cant seem to get it going in perl. What is the perl
equivilent.

#!/bin/sh

/usr/sbin scriptgoestobg &
PID=$!
sleep 5
kill -9 $PID


Thanks again...

 

[Paul Lalli]

Hello everyone,

I know in shell scripting you can put a job in the background and get
that process id and assign it to a variable, have it capture some data
and
theN kill it. I cant seem to get it going in perl. What is the perl
equivilent.

#!/bin/sh

/usr/sbin scriptgoestobg &
PID=$!
sleep 5
kill -9 $PID

What have you tried so far? How did it not work?

I would suggest forking a new process, exec'ing the external job in the
child process, and killing the process_id in the parent whenever you've
decided the external job should die.

You may also wish to read `perldoc -f system` to see what that command
*actually* does.

Paul Lalli

 

[robic0]

Hello everyone,

I know in shell scripting you can put a job in the background and get
that process id and assign it to a variable, have it capture some data
and
theN kill it. I cant seem to get it going in perl. What is the perl
equivilent.

#!/bin/sh

/usr/sbin scriptgoestobg &
PID=$!
sleep 5
kill -9 $PID


Thanks again...

Win32:rocess::Create();
$asdfasdf = GetProcessID();
Win32:rocess::KillProcess($asdfasdf);

 

[John W. Krahn]

I know in shell scripting you can put a job in the background and get
that process id and assign it to a variable, have it capture some data
and
theN kill it. I cant seem to get it going in perl. What is the perl
equivilent.

#!/bin/sh

/usr/sbin scriptgoestobg &
PID=$!
sleep 5
kill -9 $PID

#!/usr/bin/perl
use warnings;
use strict;

my $program = 'scriptgoestobg';

defined( my $pid = fork ) or die "Cannot fork: $!";

exec $program or die "Cannot exec $program: $!" unless $pid;

sleep 5;

kill 9, $pid;

__END__



John

 

[Josef Möllers]

Win32:rocess::Create();
$asdfasdf = GetProcessID();
Win32:rocess::KillProcess($asdfasdf);

Very nice, indeed, but the fact that the OP posted a shell script should
have indicated, that a Windows answer wasn't what he was looking for ;-)