Bonjour,
Je suis en train de coder en perl/html/php.......je génère une page html à partir du perl et je voudrai faire un appel à un script php sur une valeur définit en perl.........(ouf)
je voudrais donc travailler sur les $fam, mais je ne sais pas comment l'envoyé à mon script php
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
21
22
23
24
25
26
27
28 my $patharchi=$path."/".$family."/img"; my @families = split(/_/,$family); my @colors = ("red","blue","green"); if (-e $patharchi) { print "<table id=treeform>\n"; for my $ref (0 .. @families -1){ my $fam = $families[$ref]; my $col = $colors[$ref]; # legendes pour la description et l'architecture à ajouter { (idris) #foreach $fam (@families) { # for $ref in @families { print "<tr> "; print "<td align=\"center\" valign=\"top\">"; print "<span class=\"h3\"><BIG> $fam </BIG></span>"; print "<td>"; print "<!--description--> <a target=\"_blank\" href=\"../script/action_description.php?action=description?$fam\" target=\"_top\" >.....</a>"; print "</td>"; print "<td>"; print "<!--repésentation graphique--> <a target=\"_blank\" href=\"../script/action_architecture.php?action=webdom3?$fam\" target=\"_top\" > ......</a>"; print "</td>"; print "</td>"; print "</tr>"; #} #print ("<td><img src=\"$patharchi/$fam.png\">.</td></tr><br>"); } print("</table>"); print "<A HREF=\"../pages/acceuil.php\"><IMG SRC=\"../images/menu/home.jpg\" BORDER = \"0\"></A>\n"; }
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
21 ######################################################################### # get_architecture # in = ID # out = architrecture of the ID function get_architecture3($fam){ $name = "HBG000000"; if(!file_exists("../tmp/".$name))// created a folder for the all query mkdir ("../tmp/".$name, 0777); $hogenom=preg_match("/HBG[0-9]{6}/",$fam);//verifying that the request is the HBG000000 type $prodom=preg_match("/CL[0-9]{6}/",$fam);//verifying that the request is the CL000000 type if($hogenom!=0){ exec('fetchdom -b prodom_v2005 -s '.$fam.' -t xdom > ../tmp/'.$name.'/consensus.xdom'); // } elseif($prodom!=0){ exec('fetchdom -b prodom_v2005 -a '.$fam.' -t spid | fetchdom -b prodom_v2005 -S -- -t xdom > ../tmp/'.$name.'/consensus.xdom'); } header("location:../bin/webdom/index.php?jobID=".$fam); }
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 if((isset($_GET['action'])) && ($_GET['action']=='webdom3') ) {//architecture button sscenario get_architecture3($fam)or die("problème de redirection" ); }
Partager