Using perl script unzip the zip files

raaj has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Using perl script unzip the zip files by zentara (Cardinal) on Jul 06, 2012 at 13:05 UTC
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	[reply] [d/l]
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]
Re: Using perl script unzip the zip files by marto (Cardinal) on Jul 06, 2012 at 08:27 UTC
I have an idea, resolve the issue preventing you from using modules. Yes, even you can use CPAN	[reply]
Re: Using perl script unzip the zip files by runrig (Abbot) on Jul 06, 2012 at 06:14 UTC
Dude, you used the wrong script. Use the OTHER script. The first script has a bug on line 42.	[reply]
Re^2: Using perl script unzip the zip files by frozenwithjoy (Priest) on Jul 06, 2012 at 06:29 UTC
Nah, he just needs to put a semi-colon at the end of line 41.	[reply]
Re: Using perl script unzip the zip files by frozenwithjoy (Priest) on Jul 06, 2012 at 05:53 UTC
Hi. What code have you tried so far? Is there a reason you can't use any modules? Do you mean you aren't allowed to or you tried and can't get it/them to work.	[reply]
Re^2: Using perl script unzip the zip files by raaj (Acolyte) on Jul 06, 2012 at 06:07 UTC
hey thanks for writing. In my office i am not allowed to install cpan on my pc. so i checked the code from internet where the code includes the cpan modules.	[reply]
Re^3: Using perl script unzip the zip files by frozenwithjoy (Priest) on Jul 06, 2012 at 06:27 UTC
That's a sad story. What about just d/l'ing + installing the appropriate modules manually? You can always throw in a `system()` call...	[reply] [d/l]
Re^3: Using perl script unzip the zip files by harangzsolt33 (Deacon) on Nov 06, 2018 at 00:22 UTC
You are not allowed to use CPAN at your office??? WHAT KIND OF OFFICE IS THAT!?!?!?? That's like saying, "I want you to mow the lawn, but you can't use a lawn mower. You must use this kitchen knife!" Lol	[reply]