Discussion :

[Yuki_Hime]

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 :

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

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

et voici ce que j'ai écris en perl

Code :

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

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

[mensoif]

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

Code :

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

1
2
3
4
 
$ARGV = shift (@ARGV);
# ou 
($ARGV) = @ARGV;

est plus approprié.

Ensuite lorsque tu fais

Code :

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

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 :

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

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.

[Yuki_Hime]

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 :

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

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

Code :

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

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";