Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Using perl script unzip the zip files

by raaj (Acolyte)
on Jul 06, 2012 at 05:50 UTC ( #980213=perlquestion: print w/ replies, xml ) Need Help??
raaj has asked for the wisdom of the Perl Monks concerning the following question:

hi monks i was not able to unzip the ziped files by using the perl script and also i cant use the cpan modules to do this. if any one have an idea then please share the code.

Comment on Using perl script unzip the zip files
Re: Using perl script unzip the zip files
by frozenwithjoy (Curate) 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.

      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.

        That's a sad story. What about just d/l'ing + installing the appropriate modules manually? You can always throw in a system() call...
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.
      Nah, he just needs to put a semi-colon at the end of line 41.
Re: Using perl script unzip the zip files
by marto (Chancellor) on Jul 06, 2012 at 08:27 UTC
Re: Using perl script unzip the zip files
by zentara (Archbishop) 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";
    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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://980213]
Approved by kcott
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (15)
As of 2014-09-18 15:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (116 votes), past polls