> > Any pointers/ideas/experience about how to do that?
>
> Hi Dan.
>
> The program below is the very basic stuff to do what you
> want. It does no error checking except to make sure that the
> zip file opened OK, and just extracts the first file in the
> archive with to a file with a name prefixed with "local_".
> You probably need some exception handling, but how much
> depends on your data.
>
> HTH,
>
> Rob
>
>
> use strict;
> use warnings;
>
> use Archive::Zip;
>
> my $zip = Archive::Zip->new('data.zip') or die "Failed to
> open zip file";
>
> my ($member) = $zip->members;
> my $file = $member->fileName;
>
> $member->extractToFileNamed("local_$file");
>
>
Exactly what I need! Perfect! I'll look again at the cpan page for it to find more
about verifying the steps etc...
Thanks a million Rob!
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
