Discussion :

[ciols]

Bonjour,

Mon problème est le suivant, je ne sais pas comment faire pour récupérer dans mon script perl (valeurs.pl), un tableau tel que :

$a = array('b','c','d','e');

qui se trouve dans un fichier liste.php.

J'ai cherché sur la toile mais je n'ai pas trouvé grand chose de très utile..

Si vous avez une idée je suis preneur !

Merci d'avance

[-Eks-]

Salut ciols,

Si ce que tu veux c'est créer un array Perl en copiant et collant la définition d'un array provenant d'un source en Php, tu fais juste ceci :

Code :

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

my @a = ('b','c','d','e');

et tu peux ensuite l'utiliser comme n'importe quel array en Perl :

Code :

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

1
2
3
4
# énumération du contenu
foreach my $entree (@a) {
  say $entree;
}

ou

Code :

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

1
2
# premier élément
say $a[0];

etc.


Eks

[Lolo78]

Euh, pas bien clair à mes yeux, tu veux lire le fichier d'un script PHP à l'aide d'un script Perl et récupérer dans le script PHP une définition de tableau pour utiliser les valeurs dans un script Perl, c'est cela?

[ciols]

J'ai un fichier qui contient tous mes tableaux que j'utilise dans mes différents scripts php. Cependant, j'ai besoin d'un de ces tableaux dans un script PERL.
Pour utiliser un de ces tableaux en php, il suffit d'include le fichier où les tableaux sont déclarés. Mais en PERL je ne sais pas comment faire.

Je veux récupérer le tableau $infoTraf qui se situe dans liste.php et utilisé ce tableau dans mon script PERL (avoir en quelque sorte @infoTraf).

La finalité de ça, c'est que si des modifications doivent survenir, il n'y aura qu'un seul fichier à modifier.

[Philou67430]

Je dirais que tu dois "parser" ton fichier PHP à la recherche de ton tableau PHP, et remplir un tableau Perl avec son contenu.

Peut-être que ce module pourrais-être d'une aide appréciable pour "parser le PHP : PHP::Interpreter

[-Eks-]

Donc, ce tu veux c'est utiliser dynamiquement des données organisées sous forme d'un tableau Php contenues dans un fichier .php, en les obtenant lors de l'exécution de ton script Perl.

Pour cela, la solution la plus directe me parait d'utiliser une regexp pour matcher ton tableau, de transformer la chaîne de texte récupérée de façon à ce qu'elle respecte la syntaxe Perl et de passer cela à la fonction eval.

avec un fichier.php comme cela (fantaisiste) :

Code :

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

1
2
3
4
5
6
<?php
echo 'Hello world';
# les données contenues dans $infoTraf sont
# également utilisées dans script.pl                                                                                                                                                                               
echo '<hr>'; $infoTraf = array('b','c','d','e'); echo '<hr>';       # un commentaire
?>

cela peut donner un script.pl comme cela :

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
#!/usr/bin/perl -T                                                                                                                                                                                                 
 
use strict;
use warnings;
use Data::Dumper;
 
my $file = 'fichier.php';
my @infoTraf;
 
open my $fh, $file or die "Could not open $file: $!";
 
while (my $line = <$fh>)  {
    if ($line =~ /\$infoTraf\s*=\s*array\(([^;]+);/) {
        eval('@infoTraf = (' . $1 .';');
        last;
    }
}
close $fh;
 
print Dumper(@infoTraf);

qui produit :

Code :

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

1
2
3
4
$VAR1 = 'b';
$VAR2 = 'c';
$VAR3 = 'd';
$VAR4 = 'e';

Utiliser un parser complet pour faire cela me parait démesuré.

Perl est explicitement lancé en mode "tainted". Il faut bien vérifier le contenu que tu extraies d'un autre fichier avant de le passer à eval (ou à un parser d'ailleurs). C'est le rôle de la regexp que de valider cela. La regexp pourrait être rendue plus stricte encore si elle pouvait spécifier le type de contenu attendu (mais on ne le connaît pas car tu mets des données d'exemple). En l'état, elle est cependant déjà raisonnablement sécurisée et fonctionnera bien sous réserve que les données contenues dans le tableau ne comportent pas de point-virgule.


Eks