I'm trying to use the Perl Module Archive::Zip and I'm having a
little difficulty understanding it. After reading the pod doc for
Archive::Zip I've written the following test:
use Archive::Zip;
my $dir = C:/tmp2;
my $zip = Archive::Zip-new();
my $member = $zip-addDirectory('$dir');
Thanks, Jack. I have the Mastering Perl/Tk book and I've even
tried the examples. It's just not working. :-( I sincerely appreciate
your input.
I'll look into some other options.
Cheers,
Carter.
Jack wrote:
- Original Message -
From: Carter A. Thompson [EMAIL PROTECTED]
I'm
I have a Perl/Tk script that executes a system command. What I'd like to
do is capture the output from this system command and redirect it to both
a filehandle and a text widget.
print FH some string\n;# This prints to the logfile
$text-insert('end; some string\n);#
Tim,
You'll want to get and use Net::Ping. I wrote a small routine to
return a status code for an automated system, it uses ping to
determine if a host is reachable.
use Net::Ping;
sub reachable {
my $host = shift @_;
$p = Net::Ping-new(icmp);
(defined $p) || die Can't
code.
system(ping $host);
$status = $? 8;
if ($status != 0) {
#failed to connect.
}
Anyone else?
Carter.
--
Carter A. Thompson
Lead Release Engineer
[EMAIL PROTECTED]
(831) 461-4925
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED
