Discussion :

[Yuki_Hime]

Bonjour tout le monde, je fais ma première séance de perl dans un code qui n'est pas le mien...............

Ce code me permet de générer une page html et j'ai des éléments ($fam) que je dois afficher, mais malheureusement, j'ai un affichage des informations double.........;

Pourrier vous m'aider ??

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
29
   # Ecrit la légende des familles dont le scénario est affiché
    # -----------------------------------------------------------
    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 { 
	foreach $fam (@families) { #si j'utilise foreach, j'ai des doublons
 		print "<tr> ";
		print "<td align=\"center\" valign=\"top\">";
		print "<span class=\"h3\"><BIG>&nbsp;$fam&nbsp;</BIG></span>";
		print "<td>";
		print "<!--description-->  <a target=".........."></a>";
		print "</td>";
		print "<td>";
        	print "<!--repésentation graphique-->  <a target="........;"></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";
    }

[djibril]

Bonjour tout le monde, je fais ma première séance de python dans un code qui n'est pas le mien...............

Bouh, ce n'est pas le forum python ici .

[Yuki_Hime]

Pardon laspsus..........j'ai corrigé !!!!

J'ai trouvé pour le doublon en plus !!!!
Sorry du dérangement

[Yuki_Hime]

Par contre, je voudrais savoir comment allier le perl et le php

je voudrais travailler sur les valeurs de $fam avec le script que je passe en référence

Code :

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

href=\"../script/action_architecture.php?action=webdom\

comment faire pour envoyer cette valeur ????

Code :

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

href=\"../script/action_architecture.php?action=webdom?$fam\

[djibril]

Comme tu as écrit. Sinon tu peux passer par un fichier intermediaire en YAML, txt, etc

[Yuki_Hime]

ben je j'ai un bugg et je me retrouve sur page blance avec la bonne addresse

Code :

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

http://hal9000.fr/script/action_architecture.php?action=webdom3?HBG000010

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
 
#########################################################################
# get_architecture
# in =  ID
# out = architrecture of the ID
function get_architecture($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_architecture($fam)or die("problème de redirection" );
 
}

HELP please !!

[djibril]

href=\"../script/action_architecture.php?action=webdom&toto=$fam\

Code php :

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

1
2
 
if ( (isset($_GET['toto'])) ...

[Yuki_Hime]

Yes !!!!!!
ça marche thx

[Yuki_Hime]

j'ai un problème avec un mouseover qui ne s'affiche pas (je rapelle que le code n'est pas le mien donc sorry si c'est brouillon)

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
 
  	  	print qq(<map NAME="nhxmap">\n);
  	foreach my $p ($nhx->node_array) {
			print "<area coords=".$p->{_node_area}[0].",".$p->{_node_area}[1].",".$p->{_node_area}[2].",".$p->{_node_area}[3];
 
            # affichage probabilités marginales (idris mouse over)
		if ($p->{B1} != "") {
			my @Bi = ("B1","B2","B3");
			my $chain="Marginal probability of <br>";
			for my $ref (0 .. @families -1){
			my $fam = $families[$ref];
			my $col = $colors[$ref];
			my $bi = $Bi[$ref];
			$chain .= "<font color=$col>$fam = $p->{$bi}</font><br>";
                	}
                	print " onmouseover=\"showtip(this,event,'$chain','#D0FFD0')\" ";
		}
		else {
               		print " onmouseover=\"showtip(this,event,'No marginal probability ','#D0FFD0')\" ";
		}
			print " onmouseout=\"hidetip()\" ";
			print ">\n";

je dois avoir pour chaque noeud un petit carré de couleur rouge ($col) avec un nom de protéine et une valeur qui devrait s'afficher ($fam = $p->{$bi}) rédigé en rouge

si j'ai une autre protéine, bleu, une 3e verte

Je ne vois pas pouquoi ça n'affiche pas :
Marginal probability of HBG000010 : 1.000000 (par exemple)

Auriez vous des idées pour clarrifier tout ça ???