Bonjour,
avec mon code perl j'arrive bien à parser une chaîne ed caractères et de récupérer les information que je veux.
et la je voudrais afficher ces information (18 variables) dans ma page Web dynamique avec php.
voial mon code perlet voila mon code php dans quel j'exécute le script perl
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 use strict; use warnings; if($ARGV[0] =~ m{^\s*([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4}) \s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{4})\s+([\w\d]{4}) \s+([\w\d]{4})\s+([\w\d]{2})$}x) { my $jsp1 = $1; my $date = $2.$3; my $heure = $4.$5; my $jsp2 = $6; my $jsp3 = $7; my $jsp4 = $8.$9.$10.$11.$12.$13.$14; my $codm = $15.$16; my $tyr16 = $17.$18; my $rgca = $19; my $icmate = $20; my $icolog = $21; my $idmu = $22; my $idad = $23; my $asml = $24; my $inf = $25.$26; my $forme = $27; my $numano = $28.$29; my $diapr = $30; my $infcp = $31.$32.$33.$34; print STDOUT $jsp1."\n"; print STDOUT $date."\n"; print STDOUT $heure."\n"; print STDOUT $jsp2."\n"; print STDOUT $jsp3."\n"; print STDOUT $jsp4."\n"; print STDOUT $codm."\n"; print STDOUT $tyr16."\n"; print STDOUT $rgca."\n"; print STDOUT $icmate."\n"; print STDOUT $icolog."\n"; print STDOUT $idmu."\n"; print STDOUT $idad."\n"; print STDOUT $asml."\n"; print STDOUT $inf."\n"; print STDOUT $forme."\n"; print STDOUT $numano."\n"; print STDOUT $diapr."\n"; print STDOUT $infcp."\n"; }
quand je lance ma page php je trouve rien d'afficher pour mes variables.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 <td colspan="3" rowspan="1">decodage:<br> <? if($evt == "00 :MISE HS (FAUTE)") // si l'evt commence par '00 :' { exec ("C:/Program Files/EasyPHP1-8/www/decod.pl $msg", $reponse); foreach($reponse as $rgca) echo $rgca; } else echo "pas de decodage" ?> </td>
j'ai beau essayé il y a 2 semaines sans résultat, et c'est décisif pour le fonctionnement de mon outil que je développe en stage .
aidez moi SVP.
Partager