Où pp (PAR) déballe-t-il les fichiers d'ajout (-a)?

Question

C'est ma tentative de couper à travers les questions étrangères soulevées "Why don’t my system calls work in the Perl program I wrap with pp?" J'ai créé un script simple Perl sur un système linux:

new-net:~/scripts # cat ls_test.pl 
@ls_out = `ls -l`; 

map { print "$_\n" } @ls_out; 

$out = `sh out_test.sh`; 

print "$out\n"; 

Ce script appelle un simple fichier shell:

new-net:~/scripts # cat out_test.sh 
echo "I'm here" 

je p pour emballer le script Perl avec le script shell dans ls_test:

 
new-net:~/test # unzip -l ls_test 
Archive: ls_test 
    Length  Date Time Name 
-------- ---- ---- ---- 
     0 07-13-09 16:41 script/ 
     436 07-13-09 16:41 MANIFEST 
     214 07-13-09 16:41 META.yml 
     93 07-13-09 16:41 script/ls_test.pl 
     538 07-13-09 16:41 script/main.pl 
     16 07-13-09 16:20 out_test.sh 
--------     ------- 
    1297     6 files 

Si je cours le fichier compressé dans un autre répertoire mpty, le script shell ne se trouve pas:

 
new-net:~/test # ./ls_test 
total 3391 

-rwxr-xr-x 1 root root 3466177 Jul 13 16:41 ls_test 

sh: out_test.sh: No such file or directory 

Si je copie le script shell dans le répertoire, le script emballé fonctionne comme prévu:

 
new-net:~/test # ./ls_test
 
total 3395 

-rwxr-xr-x 1 root root 3466177 Jul 13 16:41 ls_test 
-rw-r--r-- 1 root root  16 Jul 13 16:20 out_test.sh 

I'm here 

Alors, où un attendre scénario emballé pp trouver un fichier inclus? Et comment un appel à ce fichier inclus doit-il être configuré dans le script Perl d'origine?

Answer 1

Les fichiers d'un fichier exécutable empaqueté sont extraits dans un répertoire temporaire (généralement/tmp/par-USERNAME/cache-XXXXXXX). Pour accéder à ces fichiers font quelque chose comme ce qui suit:

#!/usr/bin/perl 

# Reads a data file from the archive (added with -a) 
print PAR::read_file("data"); 

# Will execute "script2" in the archive and exit. Will not return to this script. 
require PAR; 
PAR->import({ file => $0, run => 'script2' }); 

Vous pouvez également créer des liens symolic à l'exécutable qui ont le même nom que le script que vous voulez exécuter, et exécuter ceux-ci.

En fait, relisant votre question, l'accès à simplement la variable d'environnement PAR_TEMP est probablement plus utile:

#!/usr/bin/perl 
use File::Slurp qw(slurp); 

$data_dir = "$ENV{PAR_TEMP}/inc"; 
$script_dir = "$data_dir/script"; 

print slurp("$data_dir/datafile"); 

# file access permissions are not preserved as far as I can tell, 
# so you'll have to invoke the interpreter explicitly. 
system 'perl', "$script_dir/script2", @args; 

Answer 2

Voici quelque chose qui fonctionne sur mon système:

 
C:\tmp> cat build.bat 
@echo off 
mkdir output 
call pp -o runner.exe runner.pl -a sayhello.bat 
move runner.exe output\runner.exe 

C:\tmp> cat sayhello.bat 
@echo I am saying hello ... 

C:\tmp> cat runner.pl 
#!/usr/bin/perl 

use strict; 
use warnings; 

use File::Spec::Functions qw(catfile); 

my $prog_path = catfile $ENV{PAR_TEMP}, inc => 'sayhello.bat'; 

my $output = `$prog_path`; 

print "The output was: >>> $output <<< "; 

__END__ 

Sortie:

C:\tmp\output> runner.exe 
The output was: >>> I am saying hello ... 
<<< 

Cela semble un peu sale, cependant.

Answer 3

Merci à tous pour votre contribution à cette réponse. J'ajoute cette réponse pour distiller les parties de la contribution inestimable de chacun que j'ai utilisé pour trouver la solution qui a fonctionné pour moi dans mon application particulière.

L'application est écrite dans ActiveState Perl en utilisant POE et Tk et empaquetée pour la distribution en utilisant pp. Il utilise plusieurs fichiers externes; certains pour l'entrée dans le programme (données fournies par le DNS) et d'autres pour les actions prises par l'utilisateur (création et suppression des enregistrements d'alias DNS).

L'emballeur PAR (pp) inclut des fichiers externes utilisant l'argument -a.Ces fichiers sont décompressés dans le répertoire \ inc sous un chemin « temp » créée par l'emballage et à la disposition du script via

$ENV{PAR_TEMP}

La première étape dans la solution était d'ajouter cette information au POE « tas $ » . La ligne ci-dessous est dans l'état en ligne "_start";

$heap->{t_path} = "$ENV{PAR_TEMP}\\inc\\";

Comme je travaille dans l'environnement Win32, j'ai utilisé les antislashs échappées pour ajouter le répertoire \ inc dans le chemin temporaire.

Lors de l'appel d'un fichier externe pour la saisie dans l'application, j'ai utilisé une variable (@zone) pour retourner les données;

@zone = `$heap->{t_path}dnscmd aus-dc1 /enumrecords company.pvt @`;

Pour les appels visant à effectuer des actions externes, les fichiers sont appelés sans enregistrer la sortie;

`$heap->{t_path}cpau -dec -file $heap->{t_path}del_event.job -nowarn -wait`;

Merci encore à tous pour votre contribution et grâce à stackoverflow pour avoir fourni cet environnement génial.