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

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

All of your advice so far has been great.<BR>
<BR>
Hopefully one last question for you and the list.<BR>
<BR>
When I execute gnuwin32 tar (called tar.exe), I get an error saying "functi=
on not implemented".&nbsp; I should mention, contrary to other information =
on the internet, that I am not running compression through tar.<BR>
<BR>
If I use the alternative bsdtar for windows, everything's great.&nbsp; Howe=
ver, there is no inbuilt verification function.<BR>
<BR>
What gives?&nbsp; Has anyone ever resolved this?<BR>
<BR>
Evan.<BR>
<BR>
<BR>
<BR>
<B>On Sun Mar 18 1:53 , Mattia Barbon <MAT...@LI...>sent:<BR>
<BR>
</B>
<BLOCKQUOTE style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5p=
x; BORDER-LEFT: #5167c6 2px solid; MARGIN-RIGHT: 0px">On Fri, 16 Mar 2007 1=
3:50:49 +0900<BR>
Evan Read &lt;<A href=3D"javascript:top.opencompose('er...@ii...',''=
,'','')">er...@ii...</A>&gt; wrote:<BR>
<BR>
Hi,<BR>
<BR>
<SPAN style=3D"COLOR: #ff0000">&gt; I am currently writing my first wxperl =
program. What I am doing is</SPAN><BR>
<SPAN style=3D"COLOR: #ff0000">&gt; taking a user selection of a source dir=
 and a destination dir and am</SPAN><BR>
<SPAN style=3D"COLOR: #ff0000">&gt; taring up the source dir to the destina=
tion dir.</SPAN><BR>
<BR>
I haven't looked at the code yet, but I suggest you take a look<BR>
at Wx::Execute and Wx::Process ("::wxExecute" and "wxProcess" in the<BR>
wxWidgets documentation). They allow to (a)synchronously execute<BR>
subprocesses with input/output redirection, to portably send signals<BR>
and terminate processes and offer termination notification callbacks.<BR>
<BR>
Regards<BR>
Mattia<BR>
<BR>
# execute asyncronously<BR>
my $proc =3D MyProcess-&gt;new;<BR>
my $pid =3D Wx::ExecuteArgs( [$progname, @args], 0, $proc );<BR>
# use $proc to control the program<BR>
# OnTerminate will be called when the process finishes<BR>
<BR>
package MyProcess;<BR>
<BR>
use strict;<BR>
use base qw(Wx::Process);<BR>
<BR>
sub new {<BR>
my $class =3D shift;<BR>
my $this =3D $class-&gt;SUPER::new();<BR>
<BR>
return $this;<BR>
}<BR>
<BR>
sub OnTerminate {<BR>
my( $this, $pid, $status ) =3D @_;<BR>
<BR>
Wx::LogMessage( "Process '$pid' terminated with status $status" );<BR>
}<BR>
<BR>
1;<BR>
</BLOCKQUOTE><BR>=