Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

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.

Replies are listed 'Best First'.
Re: Using perl script unzip the zip files
by marto (Bishop) on Jul 06, 2012 at 08:27 UTC
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 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 = ''; 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
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.

      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...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://980213]
Approved by kcott
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2017-09-24 14:13 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (274 votes). Check out past polls.