PAR pp error when executing created file

g_speran has asked for the wisdom of the Perl Monks concerning the following question:

Hello Perl Monk....I seek your wisdom I am trying to use pp to package a file and a script into a file called iDPAswitch.exe the command I use is:

pp -o iDPAswitch.exe -a #iDPA_SW_Template220 iDPAswitch-2_3_0.pl
[download]

it seems to package fine until I execute th iDPAswitch.exe file. I get the below error

error: member not found
 at script/main.pl line 26.
Extract of iDPAswitch.exe failed
[download]

I have tried altering the syntax as follows to include non-core modules & core modules needed

pp -o -B iDPAswitch.exe -a #iDPA_SW_Template220 iDPAswitch-2_3_0.pl
[download]

I get the same "member not found error". I have opened iDPAswitch.exe with 7-zip and confirmed that iDPAswitch-2_3_0.pl is in the scripts directory and the Template file included is one level up/back The contents of main.pl are as follows

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/iDPAswitch-2_3_0.pl') }
        or die qq(main.pl: Can't open perl script "script/iDPAswitch-2
+_3_0.pl": No such file or directory ($zip));

# Remove everything but PAR hooks from @INC
my %keep = (
    \&PAR::find_par => 1,
    \&PAR::find_par_last => 1,
);
my $par_temp_dir = File::Spec->catdir( $ENV{PAR_TEMP} );
@INC =
    grep {
        exists($keep{$_})
        or $_ =~ /^\Q$par_temp_dir\E/;
    }
    @INC;


PAR::_run_member($member, 1);
[download]

How can I identify what "member not found" its failing on and how to rectify it

Thanks in Advance....

Comment on PAR pp error when executing created file Select or Download Code

Replies are listed 'Best First'.
Re: PAR pp error when executing created file by g_speran (Scribe) on Mar 02, 2021 at 14:09 UTC
Sorry All! I thought I actually posted this last night. seems that I constructed to post it, but only reviewed my posting and never actually post it I have rectified my situation. It was actually a coding issue with my script, not main.pl. I neglected to have a variable $MODFILE defined and it looked like that main.pl was erroring out. for education and documentation purposes, I am attaching the code that was causing the failure and I added more verbiage to the error. `sub Extract_Template { if ($ScriptName =~ /\.exe$/i) { my $zip = Archive::Zip->new(); my $status = $zip->read( $ScriptName ); die "Read of $ScriptName failed\n" if $status != AZ_OK; $status = $zip->extractMemberWithoutPaths($MODFILE); die "Extraction of Template File \"$MODFILE\" within $ScriptNa +me failed\n EXITING\n" if $status != AZ_OK; } }` [download] Again...my apologies	[reply] [d/l]
Re: PAR pp error when executing created file by swl (Parson) on Mar 02, 2021 at 06:30 UTC
How are you trying to access the file in your code? Once it is unpacked it will be in the `inc` dir under the directory name in `$ENV{PAR_TEMP}`. You can check if you are running under PAR by using `$ENV{PAR_0}`. For example: `use strict; use warnings; my $fname = '#iDPA_SW_Template220'; my $file = $ENV{PAR_0} ? "$ENV{PAR_TEMP}/inc/$fname" : $fname; open my $fh, $file or die "Cannot open $file"; # do stuff with $fh` [download] Update: Although now I read the error properly it is an issue with the main run. Which versions of perl, PAR and PAR::Packer are you using? And perhaps also Archive::Zip. There are also some old reports with similar errors, one of which seems to be long fixed but which needed module updates. https://rt.cpan.org/Public/Bug/Display.html?id=72837 https://www.nntp.perl.org/group/perl.par/2006/12/msg2759.html	[reply] [d/l] [select]
Re: PAR pp error when executing created file by Discipulus (Canon) on Mar 02, 2021 at 07:28 UTC
Hello g_speran, I have no time to reproduce it atm, but if I recall it correctly included content is flattened into `/` so no `/script` folder will be accessible. From the docs > By default, files are placed under / inside the package with their original names. After this I remember there are other methods to access included files, even if I never included a perl script. Why you dont wrap your code inside a small madule including it in a simpler way and then adding the use of this module inside your main script? Again from the docs `# To get the host archive from a packed program: my $zip = PAR::par_handle($0); # an Archive::Zip object my $content = $zip->contents('MANIFEST'); # Same thing, but with read_file(): my $content = PAR::read_file('MANIFEST');` [download] L* There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l] [select]
Re: PAR pp error when executing created file by Anonymous Monk on Mar 02, 2021 at 04:25 UTC
Which par? Turn on https://metacpan.org/pod/PAR::Environment#PAR_GLOBAL_DEBUG and report what happens ppsimple	[reply]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks