Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: pp and multiple perl scripts

by Anonymous Monk
on Mar 06, 2012 at 18:06 UTC ( #958131=note: print w/ replies, xml ) Need Help??

Comment on Re: pp and multiple perl scripts
Replies are listed 'Best First'.
Re^2: pp and multiple perl scripts
by Dirk80 (Monk) on Mar 07, 2012 at 21:12 UTC

    Thanks for your post. I'll give the cava packager a try.

    But fortunately I found a solution to this pp challenge myself.

    1. Create par consisting of main_script and its helper scripts with all their dependencies:

      pp -p -o perl_app.par
    2. Open perl_app.par with an archive program and add to the /script folder a file.

      if (defined $ENV{PAR_APP_REUSE}) { warn "Executable was created without the --reusable option. See 'p +erldoc pp'.\n"; exit(1); } my $zip = $PAR::LibCache{$ENV{PAR_PROGNAME}} || Archive::Zip->new(__FI +LE__); my $member = eval { $zip->memberNamed('script/') } or die qq( Can't open perl script "script/main_script. +pl": No such file or directory ($zip)); PAR::_run_member($member, 1);
    3. Create perl_app.exe as follows:

      pp -o perl_app.exe perl_app.par

    In the main_script you can then call the helper_scripts as follows (example with

    my $cmd; if ( defined $ENV{PAR_TEMP} ) { $cmd = "perl $ENV{PAR_TEMP}/inc/script/"; } else { $cmd = "perl"; } # execute cmd
      Did you try that without an installed perl?

        No, I didn't try it without an installed Perl. You are right. I'll try this evening and post you if it worked.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://958131]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (12)
As of 2015-11-30 21:34 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (783 votes), past polls