If you don't insist on a pure Perl solution, then a system call to pkunzip does just fine. Here's a fragment of one of our scripts:
print "Beginning download ...\n";
$ftp->binary() or die "FTP binary failed\n";
$ftp->get($datfile) or die "FTP get failed\n";
print "Download completed ...\n";
system ("\\\\server\\c\$\\util\\pkzip250\\pkunzip -o $datfile");
Gary W. MacDonald
-----Original Message-----
From: Ken Januski [mailto:[EMAIL PROTECTED]]
Sent: Thursday, March 15, 2001 7:10 PM
To: [EMAIL PROTECTED]
Subject: Automating unzipping of files
I need to watch an ftp server, download a zipped file when it becomes
available, then run a perl script on it. I've written scripts to watch
ftp servers before and I've written the final script to work on the
unzipped file. But I'm not sure if I can automate the unzipping of the
file. I've looked a little at CPAN and Active State but haven't found
something that will work on winzip files. Does anyone know if such a
module exists?
Thanks
ken
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
