July 24, 2008 03:51am pdt

1. Adam314 470,034
2. ozo 332,538
3. FishMonger 102,215
4. Tintin 77,315
5. hielo 57,450
6. mjcoyne 52,693
7. nedfine 27,740
8. ravenpl 24,680
9. clockwat... 22,660
10. teraplane 22,380
11. ahoffmann 18,924
12. oleber 18,450
13. kawas 18,300
14. suhasbha... 15,250
15. marchent 12,540

1. ozo 3,604,303
2. Adam314 1,392,453
3. Tintin 725,609
4. kandura 579,965
5. jmcg 517,810
6. mjcoyne 504,831
7. FishMonger 454,849
8. maneshr 385,976
9. teraplane 366,588
10. manav_ma... 338,348
11. clockwat... 238,948
12. rj2 211,481
13. ahoffmann 204,487
14. davorg 153,165
15. Tim_Utschig 113,107

10.17.2005 at 07:07AM PDT, ID: 21597437

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

5.0

unzip file

Zone: Perl Programming Language

Tags: perl, unzip, file

i have a zip file test.zip this zipped file contians plenty of zip file

how to unzip test.zip using perl

Start your free trial to view this solution

Question Stats

Zone: Programming

Question Asked By: shahrahulb

Solution Provided By: kamermans

Participating Experts: 2

Solution Grade: A

Translate:

Loading Advertisement...

Microsoft

Internet Protocols
Applications

Development
OS

Hardware
Windows Security

Apple

Operating Systems
Hardware

Programming
Networking

Software

Internet

Search Engines
File Sharing
WebTrends / Stats
Spy / Ad Blockers

Web Browsers
New Net Users
Web Development
Chat / IM

Anti Spam
Web Servers
Anti-Virus
Email Clients

Gamers

Tips
Online / MMORPG
Puzzle
Emulators

Action / Adventure
Role Playing
Consoles
Game Programming

Strategy
Sports
Misc
Computer Games

Digital Living

Hardware
Automotive
New Net Users
New Users

Software
Digital Music
Gaming World
Home Security

Apple
Networking Hardware

Virus & Spyware

Vulnerabilities
IDS
Encryption
Anti-Virus

Operating Systems Security
Software Firewalls
WebApplications
Cell Phones

Operating Systems
Internet
Hardware Firewalls

Hardware

Displays / Monitors
Handhelds / PDAs
Components
Peripherals
Laptops/Notebooks

Servers
Misc
Apple
Embedded Hardware
Networking Hardware

Storage
Desktops
New Users

Software

System Utilities
Industry Specific
Network Management
Photos / Graphics
Page Layout
VMware
Misc
Web Development

OS
CYGWIN
Voice Recognition
Virtualization
Message Queue
Quality Assurance
Security
Firewalls

MultiMedia Applications
Development
Database
Office / Productivity
Business Management
OS/2 Apps
Server Software
Internet / Email

ITPro

OS
Storage
Encryption
Operating Systems Security
Apple Hardware
Laptops & Notebooks
Servers
Networking Hardware
Peripherals
Devices

Displays / Monitors
WebTrends / Stats
Search Engines
Firewalls
Web Computing
WebApplications
IDS
Vulnerabilities
Email Clients
File Sharing

Spy / Ad Blockers
Web Browsers
Web Servers
Networking
Anti-Virus
Consulting
Chat / IM
Anti Spam

Developer

Web Servers
Web Browsers
Game Programming
Dev Tools
Industry Specific
Office / Productivity

Database
CYGWIN
Web Development
Search Engines
File Sharing
WebTrends / Stats

Programming
Content Management
Application Servers
Protocols

Storage

Removable Backup Media
Storage Technology
Servers

Grid
Remote Access
Backup / Restore

Misc
Hard Drives

Miscellaneous
Security
Development
Linux
VMware

MainFrame OS
Unix
Apple
OS / 2
AS / 400

BeOS
Microsoft
VMS / OpenVMS

Database

Oracle
Miscellaneous
MySQL
Software
Sybase
Contact Management
PostgreSQL
Data Manipulation
Clarion
InterSystems Cache

Siebel
MUMPS
OLAP
SQLBase
SAS
GIS & GPS
4GL
Berkeley DB
DB2
Informix

Interbase / Firebird
FoxPro
Reporting
LDAP
Filemaker Pro
MS SQL Server
dBase
MS Access

Security

Misc
Web Browsers
Software Firewalls
Operating Systems Security
File Sharing

Spy / Ad Blockers
Vulnerabilities
WebApplications
IDS
Anti-Virus

Encryption
Anti Spam
Email Clients
VPN
Chat / IM

Programming

Editors IDEs
Installation
Handhelds / PDAs
Multimedia Programming
System / Kernel
Automation

Algorithms
Game
Signal Processing
Project Management
Open Source
Database

Misc
Languages
Processor Platforms
Theory

Web Development

Scripting
Blogs
Web Servers
Software
Search Engines
Web Graphics
Web Services

Images
Internet Marketing
Images and Photos
Components
Document Imaging
Web Languages/Standards
Illustration

WebApplications
Fonts
WebTrends / Stats
Authoring
Digital Camera Software
Miscellaneous

Networking

Protocols
Apple Networking
Network Management
Message Queue
Application Servers
Content Management
File Servers
Email Servers
Misc
Java Editors & IDEs

Wireless
Networking Hardware
Backup / Restore
System Utilities
ISPs & Hosting
Web Servers
Storage Technology
Removable Backup Media
Servers
Web Computing

Broadband
Grid
OS / 2
Novell Netware
Unix Networking
Windows Networking
Security
Telecommunications
Operating Systems
Linux Networking

Other

Lounge
Business Travel
Community Support
New Net Users

Philosophy / Religion
Math / Science
Miscellaneous
URLs

Expert Lounge
Politics
Puzzles / Riddles
Automotive

Community Support

Suggestions
New to EE
New Topics
CleanUp

Announcements
General
Feedback

Input
EE Bugs

10.17.2005 at 07:20AM PDT, ID: 15099642

Rank: Wizard

FishMonger:

Take a look at these modules.
http://search.cpan.org/~kane/Archive-Extract-0.07/lib/Archive/Extract.pm
http://search.cpan.org/~smpeters/Archive-Zip-1.16/lib/Archive/Zip.pod

10.17.2005 at 07:44AM PDT, ID: 15099923

shahrahulb:

i have a folder /u/test/all-files directory which contain the file "test.zip"

my perl script should

1) unzip test.zip file
2) grep all the files having name "build*.zip" and save it in current directory

10.17.2005 at 08:49AM PDT, ID: 15100533

kamermans:

Are you trying to extract just the files called "build*.zip" from the file "test.zip"? If so, here:

-------------------------------------------------------------------------------
#!/usr/bin/perl
use strict;
my $path = "/u/test/all-files/";
my $file = "test.zip";
my $fileroot = "build"; # Begining of Filename
my $extention = "zip"; # filename extention

#### Find the files to be extracted
my @files_raw = split(/\n/,`unzip -l $file`);
my @filenames;
foreach(@files_raw){
s/ +/ /g;
s/^ //;
my($length,$date,$time,$name)=split(/ /,$_);
if($name =~ m/$fileroot.*\.$extention/i){push(@filenames,$name);}
}

#### Extract them
my $name;
foreach $name(@filenames){
print `unzip -jo \'$file\' \'$name\' -d \'$path\'`;
}

10.17.2005 at 08:52AM PDT, ID: 15100556

shahrahulb:

the direcory structure is

/u/test/all-files/test.zip

when i copy test.zip to windows and try to extract it using winzip,
test.zip further has following files

build20.zip
temp.zip
rate.zip
build23.zip
build21.zip
trap.zip

so basically i need to grep all the files which contains "build" in it and save it in current directory

10.17.2005 at 08:55AM PDT, ID: 15100588

shahrahulb:

Also I have to run the script on windows box as all the zip files are on windows box

10.17.2005 at 09:01AM PDT, ID: 15100631

kamermans:

You have the folder "/u/test/all-files/" in windows?

10.17.2005 at 09:30AM PDT, ID: 15100879

shahrahulb:

the path is just an example but the files are on windows and i have to write my script on windows using active state perl

10.17.2005 at 09:37AM PDT, ID: 15100941

kamermans:

Ok - here it is for windows, but first you have to make the folder c:\unzip and then download http://www.mirrorservice.org/sites/ftp.info-zip.org/pub/infozip/WIN32/unz552xN.exe (the windows version of the standard linux unzip command) and put it in c:\unzip\ then run it (it will unzip a bunch of files in there).
Now that you have command line unzipping capabilities, try this:

use strict;
my $path = "/u/test/all-files/";
my $file = "test.zip";
my $fileroot = "build"; # Begining of Filename
my $extention = "zip"; # filename extention
my $unzip = "C:/unzip/unzip.exe";

#### Find the files to be extracted
my $fullname = $path . $file;
my @files_raw = split(/\n/,`$unzip -l $fullname`);
my @filenames;
foreach(@files_raw){
s/ +/ /g;
s/^ //;
my($length,$date,$time,$name)=split(/ /,$_);
if($name =~ m/$fileroot.*\.$extention/i){push(@filenames,$name);}
}

#### Extract them
my $name;
foreach $name(@filenames){
print `$unzip -jo \"$fullname\" \"$name\" -d \"$path\"`;
}

Accepted Solution

10.17.2005 at 02:01PM PDT, ID: 15103100

shahrahulb:

will try it and let u know

10.17.2005 at 02:18PM PDT, ID: 15103231

shahrahulb:

is this the only option to do, or is there any perl module which can do this on fly

10.17.2005 at 02:40PM PDT, ID: 15103361

kamermans:

Well, you can use Archive::Extract ( http://search.cpan.org/~kane/Archive-Extract-0.07/lib/Archive/Extract.pm ) but it requires the "unzip" executable that I have you download in my example.

Or you can use Archive::Zip (http://search.cpan.org/~smpeters/Archive-Zip-1.16/lib/Archive/Zip.pod ) but it requires:
Compress::Zlib ( http://search.cpan.org/~pmqs/Compress-Zlib-2.000_05/Zlib.pm ) which requires:
zlib 1.0.5 or better ( http://gnuwin32.sourceforge.net/packages/zlib.htm )

This is why I suggested my method

10.17.2005 at 02:41PM PDT, ID: 15103369

shahrahulb:

Ok. will try and let you know

Thanks

10.17.2005 at 03:21PM PDT, ID: 15103592

shahrahulb:

how do i manage space on windows

my $path is C:\Documents and Settings\testuser\Desktop

when i run script i get
unzip: cannot find either C:Documents or C:Documents.zip.

10.17.2005 at 03:28PM PDT, ID: 15103618

shahrahulb:

i gues i have to use "\\" in path

$path = C:/unzip/project
should be
C://unzip//project

10.17.2005 at 03:41PM PDT, ID: 15103662

shahrahulb:

1 more thing to me modified, in the command
print `$unzip -jo \"$fullname\" \"$name\" -d \"$path\"`;

\" is not required

it works without \" otherwise it gives me error

Thanks

10.17.2005 at 03:42PM PDT, ID: 15103664

shahrahulb:

after making the above two changes it worked

:-)

Thanks!!!!!!!!!!!!!

10.17.2005 at 03:46PM PDT, ID: 15103679

Rank: Wizard

FishMonger:

Compress::Zlib is a core module which means it's included in the base install of Perl. And unless you're using an old version of Perl, the version of zlib should be at least 1.05. Mine is 1.34 using Perl 5.8.7.

Rather than reling on an external app, I'd use one of the modules that i posted at the begining of this thread and which kamermans later suggested.

10.17.2005 at 03:48PM PDT, ID: 15103686

Rank: Wizard

FishMonger:

I haven't done any testing, but I'm sure that the module would be a clearer and less cumbersum approach.

10.17.2005 at 03:53PM PDT, ID: 15103706

kamermans:

$path = "C:/unzip/project"; should work fine - it does in mine.

To get spaces in filenames / directory names you just need to change:
my @files_raw = split(/\n/,`$unzip -l $fullname`);

To this:
my @files_raw = split(/\n/,`$unzip -l \"$fullname\"`);

20080236-EE-VQP-29