wxperl-users

[wxperl-users] Questing on interacting with Tar

[Evan R. <er...@ii...>]

Hi guys,<BR>
<BR>
I am currently writing my first wxperl program.&nbsp; What I am doing is ta=
king a user selection of a source dir and a destination dir and am taring u=
p the source dir to the destination dir.<BR>
<BR>
I am executing tar via "system", then calling a progressdialog which I upda=
te by having established the size of the source files, and watching the siz=
e of the destination file grow.&nbsp; When the destination file is the same=
 size or bigger than the source files, the dialog completes and I destroy i=
t.<BR>
<BR>
I am forking a child to execute tar via system, so that the parent can cont=
inue on, open the progress dialog and monitor things.&nbsp; I have attached=
 the relevant subroutine. I don't do this often, so the code might be a bit=
 messy.<BR>
<BR>
Two things:<BR>
<BR>
1 - when the taring finishes, the child exits, the progress dialog is destr=
oyed but the main window isn't usable.&nbsp; it is like the main window is =
still the destroyed progress dialog.&nbsp; Why?<BR>
<BR>
2 - I can cancel the progressdialog, but need to send a message to the chil=
d to quit early.&nbsp; I understand, however, that using "system" to call t=
ar will create a child of its own.&nbsp; So I need the parent, to tell the =
child, to tell system to die.&nbsp; The child, once system has returned, wi=
ll exit anyway.&nbsp; How can I accomplish that?&nbsp; At this stage, I hav=
e tried to kill the child (just to see what happens), but the whole program=
 dies.&nbsp; System doesn't return a process ID.&nbsp; I could get a proces=
s listing, but that isn't cross platform and I want to be able to run more =
than one instance of this program, so I don't want to kill just ANY tar pro=
cess.<BR>
<BR>
Can anyone help? i realise the problem is less wxperl, and more perl itself=
, but I figure people have written code here that monitors processes.<BR>
<BR>
Thanks.<BR>
<BR>
Evan Read.<BR>
<BR>
<BR>=

Re: [wxperl-users] Questing on interacting with Tar

[Mattia B. <mat...@li...>]

On Fri, 16 Mar 2007 13:50:49 +0900
Evan Read <er...@ii...> wrote:

  Hi,

> I am currently writing my first wxperl program.  What I am doing is
> taking a user selection of a source dir and a destination dir and am
> taring up the source dir to the destination dir.

  I haven't looked at the code yet, but I suggest you take a look
at Wx::Execute and Wx::Process ("::wxExecute" and "wxProcess" in the
wxWidgets documentation).  They allow to (a)synchronously execute
subprocesses with input/output redirection, to portably send signals
and terminate processes and offer termination notification callbacks.

Regards
Mattia

# execute asyncronously
my $proc = MyProcess->new;
my $pid = Wx::ExecuteArgs( [$progname, @args], 0, $proc );
# use $proc to control the program
# OnTerminate will be called when the process finishes

package MyProcess;

use strict;
use base qw(Wx::Process);

sub new {
  my $class = shift;
  my $this = $class->SUPER::new();

  return $this;
}

sub OnTerminate {
  my( $this, $pid, $status ) = @_;

  Wx::LogMessage( "Process '$pid' terminated with status $status" );
}

1;