Discussion :

[PadawanInPerl]

Bonjour,

J'essaie de passer des variables en ligne de commande depuis un fichier php vers un fichier Perl :

$pdf->Output('modele_'.$nomfile2, 'F');
$modele = 'modele_'.$nomfile2;

exec("perl op.pl -modele $modele -copie $nomfile");

Rien ne se produit... pourriez-vous m'aiguiller ?

[Gardyen]

hum ça peut coincer à plusieurs niveaux...

permissions d'exécuter le script ? chemin ? paramètres bien passés ?
le script perl s'exécute correctement si tu le lances à la main avec cette commande ?

[PadawanInPerl]

hello,

oui mais en précisnat les fichiers : a.pdf et non des variables...

[PadawanInPerl]

Est-ce que mes fichiers passés en variable ne seraient pas reconnu en tant que tel (que je l'imagine lol ) ?

[PadawanInPerl]

Mon fichier perl pour info...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
use strict;
use PDF::API2;
use Getopt::Long;
 
my ($modele, $copie) = ();
 
GetOptions ("modele=s" => \$modele,
            "copie=s" => \$copie
						)
            or die("Error in command line arguments\n");
 
my $pdf = PDF::API2->new();
my $p_modele = PDF::API2->open($modele);
my $p_copie = PDF::API2->open($copie);
my $count = $p_copie->pages();
$count = $count+1;
my $i;
 
my $page = $pdf->importpage($p_modele);
 
for($i = 1; $i < $count; $i++){
  $page = $pdf->importpage($p_copie, $i);
  }
 
$pdf->saveas('new.pdf');

il a besoin de la mise en comptabilité en version 1.4 par

exec ("gswin64c.exe -sOutputFile=$modele -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dNOPAUSE -dBATCH $modele");
exec ("gswin64c.exe -sOutputFile=$copie -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dNOPAUSE -dBATCH $copie");

[Gardyen]

si tu affiches les paramètres passés, ça te donne les bonnes valeurs ?
récupére l'output de ton exec et affiche-le ?

[Gardyen]

vérifie quels paramètres sont passés à ton script perl, mais à priori cela viendrait plutôt de la partie php