Re: Using perl script unzip the zip files

Do you have pkunzip or unzip or some other unzipping utility on your machine? If so, you can unzip thru a system command

#!/usr/bin/perl
use warnings;
use strict;

my $file = 'test.zip';

my $rc = system( 'unzip', $file ) or warn "$!\n";

print "$rc\n";
[download]

If you can manage to install Archive::Zip, by using local::lib so you can do it all in your own space without permissions from the system's manager, look at unzip

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Comment on Re: Using perl script unzip the zip files Download Code

Replies are listed 'Best First'.
Re^2: Using perl script unzip the zip files by Anonymous Monk on Nov 05, 2018 at 15:33 UTC
Code in my perl program `foreach my $pdfFile (@pdfFiles) { print "pdf file is: $pdfFile\n"; if (system("unzip $localLocation$pdfFile -d $pdfFilesDir") == 0 +) { # Do nothing. } else { die "Unable to unzip $pdfFile to $pdfFilesDir: $?"; } }` [download] tells me all the files it is inflating in the log. `Archive: /staging/SIS/ADM/APPLICATIONS/COMMON/IUBLA/Applications_10_2 +8_2018.zip inflating: /staging/SIS/ADM/APPLICATIONS/COMMON/IUBLA/APPS_PDF/(1)_1 +0_28_2018_02_21_04!20533666_Abdullah_XXXXX_FY_AP.pdf inflating: /staging/SIS/ADM/APPLICATIONS/COMMON/IUBLA/APPS_PDF/(10)_ +10_28_2018_02_21_05!21393012_Adney_XXXX_FY_AP.pdf` [download] Is there an easy way to get it to not tell me what the files are that it is inflating? Thanks m 2018-11-06 Athanasius added code and paragraph tags	[reply] [d/l] [select]
Re^3: Using perl script unzip the zip files by hippo (Archbishop) on Nov 05, 2018 at 15:41 UTC
Use `-qq` when you invoke it: see the man page for full details.	[reply] [d/l]