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 ) ?

[Gardyen]

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

[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 ?

[PadawanInPerl]

là... je sais pas comment faire...

...

[Gardyen]

doc php
un truc simple du genre:
dans le script perl, au début

Code :

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

print @ARGV, "\n";

dans le php

Code :

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

1
2
exec("ma commande", $output);
print_r($output);

[PadawanInPerl]

Code :

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

Array ( [0] => GPL Ghostscript 9.10 (2013-08-30) [1] => Copyright (C) 2013 Artifex Software, Inc. All rights reserved. [2] => This software comes with NO WARRANTY: see the file PUBLIC for details. )

Possible ?

[Gardyen]

tu as bien ajouté la ligne avec le print ? parce qu'à part le disclaimer de ton api pdf, il n'y a rien sur les paramètres ?

[PadawanInPerl]

dans mon php... si c'est bien ce que tu me demandais.

Code :

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

1
2
exec ('gswin64c.exe  -sOutputFile=$modele -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dNOPAUSE -dBATCH $modele', $output);
print_r($output);

[Gardyen]

non celle dans le script perl

[PadawanInPerl]

intéressant perl reçoit :

-modele +le nom du fichier

et non pas que le nom du fichier

[Gardyen]

c'est normal, @ARGV récupère tous les arguments de la ligne de commande, c'est GetOptions qui attribue les valeurs ensuite.

Donc les paramètres sont passés correctement à priori. Vérifie que php peut exécuter le script perl ?

[PadawanInPerl]

Je viens de m'appercevoir... en tout cas c'est mon cas... que si le pdf a été généré par Word ou une peut-être une imprimante pdf...

et bien mon script ne marche pas...

un scan pdf reçu d'une imprimante pro (ricoh pour pas faire de pub) fonctionne !

Merci Gardyen pour ton aide !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!