in reply to How to use File::Find for EAR

Anonymous Monk:

ikegami has it right. EAR is an "Enterprise" jar, and WAR is (IIRC) a "Web" jar.

I've never played with Archive::Zip before, so I just did a trivial bit to verify that it's a ZIP file:

#!/usr/bin/perl -w use strict; use warnings; use Archive::Zip; use Data::Dumper; my $INFName = shift or die "missing filename!"; my $arch = Archive::Zip->new($INFName); die "Can't find/read/parse $INFName!" if !defined $arch; my @t = $arch->memberNames; print Dumper(\@t);
When used on a WAR file I have lying about, it shows:

NBKI44V@B000F1FA4379F ~/PerlMonks $ ./ArchTar.pl /DOS/c/Program\ Files/Java/jdk1.6.0/db/lib/derby.war $VAR1 = [ 'WEB-INF/', 'WEB-INF/web.xml' ];
HTH!

...roboticus

Update: Added link to Archive::Zip.