PERL et php, comment les allier

Bonjour

Je commence php, et je dois l'associer à perl, language que je ne maitrise pas

je voudrais commencer par faire un simple appel dans php

Code:

---

1 2 3

$node = exec('perl ../script/test.pl '.$requete.''); print ($node);

---

et voici ce que j'ai écris en perl

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#! /usr/bin/perl   do '../library/evolution_lib.pl';   sub myfonction(@ARGV) { $ARGV = @ARGV; my $taxid = $ARGV[0]; my $node = evolution::FindNearestNode($taxid); retrun $node; }

---

mais quand j'exécute sur ma page web, ben j'ai rien, ça reste coincé au script de traitement php

HELP PLEASE:calim2::calim2::calim2::oops::oops::oops::oops:

Tout d'abord, tu ne récupères pas les arguments convenablement. ( cela renvois en effet l'indice max me semble t'il *-)

Code:

---

1 2 3 4

$ARGV = shift (@ARGV); # ou ($ARGV) = @ARGV;

---

est plus approprié.

Ensuite lorsque tu fais

Code:

---

1 2	my $taxid = $ARGV[0];

---

tu travailles sur l'indice 0 du tableau (@ARGV) et non sur le scalaire créer précedement.

Pour finir je ne sais pas si tu as fait un copier/coller de ton code mais une petite coquille s'est glissée à la fin pour return.

Ensuite, je trouve étrange de travailler directement sur ARGV.

Ensuite, si tu ne fais pas appelle à ta subroutine, elle ne s'exécutera pas.

Je te donne un exemple qui devrait fonctionner ::

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#!/usr/bin/env perl   use strict; use warnings;   do '../library/evolution_lib.pl';   Fct (@ARGV);   sub Fct { return evolution::FindNearestNode(shift); }

---

Et pour finir je voudrais te poser une question, est ce que ton livrable final fonctionnera sur la même machine ? (php & perl)

edit : Ensuite, il me semble qu'il y a un truc au niveau de php.ini (safe_mode) ou quelque chose comme ca.

alor sje me suis inspirée de tout ce que tu as mis et j'ai refait et finalment ça marche quand je fais

Code:

---

1 2 3 4

$node = ('perl ../library/test.pl '.$_SESSION['nom'].' prodom'); $i=exec($node); print ($i);

---

Code:

---

1 2 3 4 5 6 7 8

#! /usr/bin/perl   do '../library/evolution_lib.pl';   my $taxid = $ARGV[0]; my $node = evolution::FindNearestNode($taxid,$ARGV[1]); print "$node\n";

---