Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

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 (Archbishop) 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
[hippo]: Which people and how long ago?
[hippo]: It's documented in the synopsis of perlsub anyway.

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2018-05-22 10:21 GMT
Find Nodes?
    Voting Booth?