Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
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 scrutinizing the Monastery: (7)
As of 2014-11-24 07:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (137 votes), past polls