Re^4: Using Proc::Background and Win32

But since my script uses Gtk2, I can't really use the "Sleep" command in the final 'production' script, since the regular 'sleep' command will pause the processing of Gtk events.

I've never used gtk2, but it presumably has repeating timers like Tk. So, set up a repeating timer that does the kill.

Nice, so it looks like its working that way.... Weird, do you think I had a typo the first time I posted that, or do you think I can't set it to a variable and check it that way?

Dunno about a typo; but I strongly recommend you use 'perl' as the second arg to system.:

my $pid = system 1, 'perl', ".\\bg_script.pl $ARG1 \"$ARG2\" $ARG3 $AR
+G4";
[download]

Without that, perl starts a shell, and the shell invokes perl; but the pid you get back is that of the shell not perl, so it doesn't tell you when the perl process ends.

I attempted using the CavaPackager t

Sorry. I have no knowledge of that at all.

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^4: Using Proc::Background and Win32 Download Code

Replies are listed 'Best First'.
Re^5: Using Proc::Background and Win32 by mmartin (Monk) on Oct 18, 2013 at 22:02 UTC
CavaPackager is a program that has a GUI you can use to 'build' perl scripts into standalone executables. I plan on putting this program on a few different PCs around the office and don't want to have to install Perl, as well as ALL the required Modules, espically Gtk2/Pango/Cairo/etc on each and every PC I want this on... Which is rather time consuming. Here is my ORIGINAL Code Snippet which executes the Background Script: This is only a small snippet to get the idea... FYI, the Background script opens a TCP Socket and sends some data to a server. my $TIMEOUT = 30; my $proc; my $bg_script = "./bg_script.pl"; $proc = Proc::Background->new("perl $bg_script $ARG1 \"$ARG2\" $ARG3 $ +ARG4"); my $PID = $proc->pid; my $start_time = $proc->start_time; my $alive = $proc->alive; my $timeout_start = time; my $timeout_current; my $timeout_diff; while($alive ne 0) { $alive = $proc->alive; # This will continue the processing of Gtk Events... while (Gtk2->events_pending) { Gtk2->main_iteration; } Gtk2::Gdk->flush; $timeout_current = time; $timeout_diff = $timeout_current - $timeout_start; if ($timeout_diff >= $TIMEOUT) { last; #->Use 'last' to break out of loop if we +timed-out... } # Sleep for 1000 milliseconds usleep(1000); } [download] I'm not exactly sure how it works, this is my first time using the CavaPackager Program, but after it's done it will be a ".exe" and not a ".pl" so not sure if leaving the "perl" before the script will work in the end... But back to the Win32::Process, does anyone think this would be better to use then using the system command that I said I got working in my last post? I was just kinda curious if there were any Pros and/or Cons between using that system call method I got working, and the "Win32::Process" method (I guess only if it differs from Proc::Background)*... But anyway, I'm heading home shortly, I think I just need to step away from this for a bit and take a breath. My head is sort of spinning with all this stuff. Thanks AGAIN to everyone who posted, much appreciated!! Thanks, Matt	[reply] [d/l]
Re^6: Using Proc::Background and Win32 by BrowserUk (Patriarch) on Oct 18, 2013 at 22:24 UTC
But back to the Win32::Process, does anyone think this would be better to use then using the system command The bottom line is that all of them -- including system which ends up calling `win32_spawnvp()` in Win32.c -- use the OS call `CreateProcess()`. What distinguishes them, is the preprocessing of the arguments and command strings, prior to calling CreateProcess(), and in that respect, system does it better than all of the others. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l] [select]
Re^7: Using Proc::Background and Win32 by mmartin (Monk) on Oct 21, 2013 at 16:58 UTC
Hey BrowserUK, thanks for the reply! Ok cool, thanks for the clarification... I guess I'll save myself the headache and use that system command that you posted, which you suggested I try. Which was this one here: `Perl> $pid = system 1, 'perl', '-E"sleep 20; say q[done]"';; Perl> print kill 0, $pid while sleep 1;;` [download] Since the command seems to work without any problems and I can check on it's progress, then that's good enough for me! Thanks Again for the help, very much appreciated! Thanks, Matt	[reply] [d/l]