http://qs321.pair.com?node_id=422017


in reply to Data files in a .par file

PAR files are just Zip files, have you tried using Archive::Zip to extract the data file?

rdfield

Replies are listed 'Best First'.
Re^2: Data files in a .par file
by Tortue (Scribe) on Jan 14, 2005 at 10:41 UTC
    Yes, a possible solution is to not use PAR at all! You can replace: 
    use PAR;
use lib 'Bam-Kapow';

    [download]
    (a.k.a. use PAR 'Bam-Kapow';) by: 
    BEGIN {
  use Archive::Zip;
  my $zip = new Archive::Zip('Bam-Kapow.par');
  $zip->extractTree('', 'shazam/');
  use lib 'shazam/lib';
}
END { use File::Path; rmtree 'shazam/'; }

    [download]
    which produces the output: 
    Using Bam::Kapow version 0.01
MOTD: Message of the day: PAR rules!

Got Bam::Kapow from shazam/lib/Bam/Kapow.pm

    [download]
    Of course, it would be nicer if PAR provided an option to do that, something like: 
    use PAR 'extract';

    [download]
    which would make it behave the same way it does when it's wrapped up in an executable.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom