Re^2: Integrating shell cmd to perl script

If i call the subroutine (which has the shell cmd), each time from different part of the script, control goes to the subroutine and executes the shell command. The problem here is , when it enters the subroutine and executes the shell cmd it wait take x time to finish the task, which means it is a separate activity. This is what i do not want. Instead, my shell cmd should not have any connections to my other areas/testcases in the script. It should be a complete isolated thread/activity. It should start, execute on its own, finally it should pass the control back, when the script is completed

Comment on Re^2: Integrating shell cmd to perl script

Replies are listed 'Best First'.
Re^3: Integrating shell cmd to perl script by Corion (Patriarch) on Mar 25, 2015 at 09:17 UTC
Why don't you change the shell script to perform a loop and then use either `system( 1, 'shellscript')` or `my $pid= open( my $fh, 'shellscript \|' )` to launch it in the background? You can then kill the shell script when your main program exits.	[reply] [d/l] [select]
Re^4: Integrating shell cmd to perl script by Anonymous Monk on Mar 25, 2015 at 09:37 UTC
Just tried this. I created a separate shell script for snmp polling and called this shell script in the actual perl script as you suggested. `my $pid= open( my $fh, '<path>/snmp.pl \|' );` [download] But, after executing this am not getting the control back to the perl script. Should i use "&" after snmp.pl?	[reply] [d/l]
Re^5: Integrating shell cmd to perl script by Corion (Patriarch) on Mar 25, 2015 at 09:39 UTC
This is weird because I launch scripts that way in the background if I plan to read their output from them. Maybe you should check whether the `open()` call is successful or maybe you can post a short program (10 lines or so) that demonstrates the problem.	[reply] [d/l]
Re^5: Integrating shell cmd to perl script by anonymized user 468275 (Curate) on Mar 25, 2015 at 18:49 UTC
It looks like you need something like fork, e.g.: `my $pid = fork; if ($pid) { # do all the other tasks here system "kill $pid"; # ready to stop the polling } else { # do the polling }` [download] One world, one people	[reply] [d/l]
Re^4: Integrating shell cmd to perl script by Anonymous Monk on Mar 25, 2015 at 09:21 UTC
Sounds Good. Let me give a try	[reply]