Discussion :

[lavm01]

Bonjour,

J'ai un tableau encoder et sérialiser en php que je passe dans l'url et j'aimerais récupérer chaque valeur en perl pour ensuite faire un traitement selon la valeur récupérée.

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
 
// --- voici mon tableau $varprog ---
Array
(
    [0] => DGI02040-Suivi-des-ecarts-vmware
    [1] => DGI02050-Rapp-reprise-VmWare
    [2] => DGI02060-Journalier-rapport-vmware
    [3] => DGI02070-Ratio-et-rapport-min-max
    [4] => DGI02080-Ratio-cumul
    [5] => DGI02090-Journalier-mysql
)
 
// --- ici il est encoder et sérialiser ---
$str = urlencode(serialize($varprog));
 
// --- Voici ce que donne le tableau ---
a%3A6%3A%7Bi%3A0%3Bs%3A32%3A%22DGI02040-Suivi-des-ecarts-vmware%22%3Bi%3A1%3Bs%3A28%3A%22DGI02050-Rapp-reprise-VmWare%22%3Bi%3A2%3Bs%3A34%3A%22DGI02060-Journalier-rapport-vmware%22%3Bi%3A3%3Bs%3A33%3A%22DGI02070-Ratio-et-rapport-min-max%22%3Bi%3A4%3Bs%3A20%3A%22DGI02080-Ratio-cumul%22%3Bi%3A5%3Bs%3A25%3A%22DGI02090-Journalier-mysql%22%3B%7D
 
// --- Voici mon tableau passer en paramètre ---
http://mon-site/cgi-bin/testreprise.pl?rep1=a%3A6%3A%7Bi%3A0%3Bs%3A32%3A%22DGI02040-Suivi-des-ecarts-vmware%22%3Bi%3A1%3Bs%3A28%3A%22DGI02050-Rapp-reprise-VmWare%22%3Bi%3A2%3Bs%3A34%3A%22DGI02060-Journalier-rapport-vmware%22%3Bi%3A3%3Bs%3A33%3A%22DGI02070-Ratio-et-rapport-min-max%22%3Bi%3A4%3Bs%3A20%3A%22DGI02080-Ratio-cumul%22%3Bi%3A5%3Bs%3A25%3A%22DGI02090-Journalier-mysql%22%3B%7D

Donc j'aimerais le récupérer en perl. Comment faire ???

Merci de m'aider.

[Philou67430]

Avec le module PHP::Serialization, ça marche très bien :

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
use feature qw(:5.10);
use CGI;
use <a href="http://search.cpan.org/~bobtfish/PHP-Serialization-0.34/lib/PHP/Serialization.pm" target="_blank">PHP::Serialization</a> qw(unserialize);
use Data::Dumper;
 
my $cgi = CGI->new(\*DATA);
 
my @rep1 = unserialize($cgi->param("rep1"));
say Data::Dumper->Dump([@rep1], [qw(*rep1)]);
 
__DATA__
rep1=a%3A6%3A%7Bi%3A0%3Bs%3A32%3A%22DGI02040-Suivi-des-ecarts-vmware%22%3Bi%3A1%3Bs%3A28%3A%22DGI02050-Rapp-reprise-VmWare%22%3Bi%3A2%3Bs%3A34%3A%22DGI02060-Journalier-rapport-vmware%22%3Bi%3A3%3Bs%3A33%3A%22DGI02070-Ratio-et-rapport-min-max%22%3Bi%3A4%3Bs%3A20%3A%22DGI02080-Ratio-cumul%22%3Bi%3A5%3Bs%3A25%3A%22DGI02090-Journalier-mysql%22%3B%7D

La ligne importante pour ton script CGI, c'est la ligne 13.

[lavm01]

Merci pour ta réponse mais j'ai une autre petite question:

Je me suis inspiré de te réponse et j'ai fait ceci:

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
 
use strict;
use warnings;
use Data::Dumper;
use PHP::Serialization qw(serialize unserialize);
use File::Find;
use CGI ':standard'; 
my $rep = new CGI;
my $var1=$rep->param("rep1");
 
my $hashref = unserialize($var1);
foreach my $nm_prog ( @{$hashref} ) {
  print $nm_prog . " - " . "\n";
  if ($nm_prog == "DGI01005-Integralite-Repertoire") { print "je suis egale\n"; }
}

Question 1: Quand je mets use strict; j'ai une erreur 500 bizarre ??? Si je l'ote cela fonctionne.

Question 2: La variable $nm_prog quand je fais le print me retourne tout le tableau mais comment fait-on pour qu'il me retourne chacun des éléments afin que je puisse tester leur valeur.

Merci !

[lavm01]

Merci Philou67430 pour ta réponse, j'ai trouvé ce que je voulais en gossant en peu.

Merci encore !

[Philou67430]

Tu as une explication pour le "use strict" qui génère une erreur 500 ? (car je ne vois pas).

Pour ta 2e question, je suppose que tu à remplacé $nm_prog par @nm_prog ?

[lavm01]

Le but de cette opération est de monter un petit site interne à notre de groupe de performance et de planification. Comme nous collectons des données de performance sur plus de 3000 serveurs (Windows, Unix, Linux, P7, VmWare) avec différent agent maison. Comme les mises à jour passent la nuit et qu'il arrive souvent que les travaux plantent, le petit site interne que j'ai fait en PHP er PERL nous aide grandement à faire les reprises, ainsi tout le monde peuve effectuer les reprises grâce à mon site.

Donc pour l'erreur "500 Internal Server Error" c'était que le use strict demande de mettre "MY" devant chaque variable ce qui n'était pas le cas.

Pour la question 2, je n'ai pas eu à mettre @nm_prog, je parcours chaque éléments avec mon foreach donc mon $nm_prog me retourne le nom du programme à reprendre, la seule chose que j'ai du faire c'est my $nm_progpl = $nm_prog.".pl"; afin d'avoir le nom du programme à reprendre. Ensuite dans la boucle foreach il fait un system("c:\\dgi\\prog\\$nm_progpl"); et dans chaque exécution du $nm_progpl il y a un output dans un fichier que je récupère pour savoir s'il y a eu erreur ou non et que je vais écrire dans ma page web, comme ça nous savons ou nous sommes rendu dans la reprise et nous savons s'il y a eu des erreurs.

Merci de ton aide.