exécuter code graphviz avec script perl ?

Version imprimable

04/05/2010, 19h10
Caro81

exécuter code graphviz avec script perl ?

Bonjour,

Je suis actuellement en stage et voilà mon soucis.
J'ai un script perl qui traite un fichier texte et qui grâce à ces infos, me génère un code graphviz (mêmes plusieurs dans un dossier).

Le problème est que j'aimerais faire exécuter ces codes automatiquement à travers le script perl, afin d'enregistrer les images en .jpeg dans autre un dossier. Le but étant d'éviter de le faire de l'interface graphviz.

J'ai télécharger la librairie Tk::GraphViz mais je ne suis pas plus aidée pour autant.

Si quelqu'un pouvait m'aider !!!!
Merci d'avance.
04/05/2010, 22h56
djibril

Comment crées tu ton code graphiz, via perl ? Peux tu nous montrer ton code ?

Oui tout à fait, au fur et à mesure du traitement je fais des print dans le fichier GRAPH :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 open (GRAPH, ">$input_path"."\\graphiques\\"."$CR_id")|| die "We can not open this file.";
print GRAPH "digraph g {\n node [fontname = \"arial\", fontsize = \"14\", shape = \"record\"];\n";
print GRAPH "subgraph central {\n \"CR_central\" [color = \"orangered1\", label = \"$CR_id \\n $CR_release \\n $CR_status \\n $CR_func \\n $CR_type\", style = \"bold\"]; \n }\n";
$size_child = @CR_child;
    if ($size_child == 1 && $CR_child[0] eq $void){}
    else{
        
        print GRAPH "subgraph child { \n node [color = \"limegreen\"];\n";
        foreach $child (@CR_child) {
            if ($child ne $void){
                &process();
                print GRAPH "\"$child\" [label = \"$child \\n $CR_release \\n $CR_status \\n $CR_func \\n $CR_type\"];\n";
            }
        }
        print GRAPH "}\n";
    }
.....

Voila un bout du code perl qui me crée le code graphviz et j'obtiens un des codes graphviz suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
digraph g {
 node [fontname = "arial", fontsize = "14", shape = "record"];
subgraph central {
 	"CR_central" [color = "orangered1", label = "aaaaa \n bbb \n cccc \n ddddd \n eeeee", style = "bold"]; 
 }
subgraph child { 
 node [color = "limegreen"];
"ffff" [label = "fffff \n gggg \n cccc \n \hhhh \n tttt"];
}
subgraph parent { 
 node [color = "limegreen"];
"llll" [label = "llll \n bbbb \n cccc \n bbbb \n jjjj"];
}
subgraph {
 rank = same; CR_central; 
}
"CR_central" -> "fffff" [color = "limegreen"];
"lllll" -> "CR_central" [color = "limegreen"];
}

Et mon problème est de faire exécuter ce dernier code automatiquement à travers le script perl, sans avoir à le faire manuellement dans graphviz (c'est à dire ouvrir graphviz, ouvrir le code, et le lancer) car il y aurai environ 650 graphiques à lancer !!!

Pouvez vous m'aider ?

1 pièce(s) jointe(s)

Voilà quelques idées :

Il serait peut être beaucoup plus propre de générer ton code graphivz en utilisant un module perl. Il existe le module GraphViz qui te permet de créer tes nœuds et autres via des méthodes propres au lieu d'utiliser des print. Et par la suite, il est hyper simple d'en générer une image à un format voulu en une ligne de code.
Si tu ne souhaites pas réécrire ton code en utilisant ce module (que je te recommande tout de même), tu peux également lancer des commandes systèmes qui lanceront l'exécutable de graphviz pour générer tes images. Il te faut ainsi connaitre la commande adéquate à lancer. si tu ne la connais pas, tu peux l'avoir depuis graphviz quand tu génères ton codes. Je crois qu'elle est de ce type (mais tu dois mieux maitriser que moi) :

Citation:

"C:/Program Files/Graphviz2.26.3/bin/dot.exe" -Tgif -o"MonImage.gif" -Kdot

Autre solution : Chercher s'il existe un module permettant de charger tes fichiers .dot à la volée et de créer les images. Mais je n'ai personnellement pas trouvé de modules.

Pour te convaincre que la solution 1 est la plus simple, efficace et propre, voici un exemple de code qui fonctionne, il crée une image équivalente à ton code graphviz que tu nous as montré.
Code:

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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 #!/usr/bin/perl use strict; use warnings; use GraphViz; my $graph = GraphViz->new( node => { shape => 'box', fontname => 'arial', fontsize => '14', shape => 'record' } ); $graph->add_node( 'CR_central', label => 'aaaaa \n bbb \n cccc \n ddddd \n eeeee', color => 'orangered1', style => 'bold', ); $graph->add_node('ffff'); $graph->add_node('llll'); $graph->add_node( 'ffff2', label => 'fffff \n gggg \n cccc \n \hhhh \n tttt', color => 'limegreen' ); $graph->add_node( 'llll2', label => 'llll \n bbbb \n cccc \n bbbb \n jjjj', color => 'limegreen' ); $graph->add_edge( 'llll' => 'CR_central', 'color' => 'limegreen', ); $graph->add_edge( 'CR_central' => 'ffff', 'color' => 'limegreen', ); # Creation d'une image my $image_file = "$input_path/graphiques/$CR_id"; open( my $fh_image, '>', $image_file ) or die("Impossible de creer l'image $image_file\n"); binmode $fh_image; print {$fh_image} $graph->as_png; close($fh_image);
Voici l'image résultante, c'est simple non ? Il te suffit juste d'installer le module GraphViz comme expliqué dans notre FAQ Perl.

05/05/2010, 12h55
Caro81

Est ce qu'au lieu d'afficher l'image, on peut l'enregistrer dans un dossier ?

Et enfin est ce que vous auriez un document ou un lien vers un site avec les principales méthodes de la librairie Graphviz car j'en ai cherché tout hier et je me suis perdue à force.

Mais je vais suivre la première option se sera certainement la plus simple, du moins j'espère.

Je me mets au boulot et je vous tiendrai au courant plus tard de mon avancement.

En attendant merci beaucoup !!!!!!!!
05/05/2010, 13h05
Caro81

Oups j'ai parlé trop vite !!
J'ai fait exécuter le code que vous m'avez fourni mais j'ai un problème. Voici l'erreur qui m'est retournée :

Code:

Can't locate object method "new" via package "GraphViz" (perhaps you forgot to load "GraphViz"?)

Alors je ne comprends pas car j'ai les fichiers GraphViz.pm, parseRecordLabel.pm et Reaper.pm.
Peut être que je n'ai pas le bon module ????

Si vous pouvez quelque chose pour moi merci.
05/05/2010, 13h07
djibril

Le code que je vous ai mis au dessus fait exactement ce que vous voulez. Il vous suffit de le tester chez vous. Il créer un fichier image (ne l'ouvre pas). Vous pouvez le créer dans n'importe quel dossier de votre choix.

En ce qui concerne la documentation du module Perl GraphViz, je vous ai mis le lien dans mon message précédent. Je vous le remets : GraphViz (c'est le module GraphViz).

Pour la documentation officielle du logiciel GraphViz, faut voir le site.
05/05/2010, 13h10
djibril

Citation:

Envoyé par Caro81

Oups j'ai parlé trop vite !!
J'ai fait exécuter le code que vous m'avez fourni mais j'ai un problème. Voici l'erreur qui m'est retournée :

Code:

Can't locate object method "new" via package "GraphViz" (perhaps you forgot to load "GraphViz"?)

Alors je ne comprends pas car j'ai les fichiers GraphViz.pm, parseRecordLabel.pm et Reaper.pm.
Peut être que je n'ai pas le bon module ????

Si vous pouvez quelque chose pour moi merci.

Avez vous installé le module graphViz et comment ?

Ok Ok c'est bon !!!:ccool:
Merci beaucoup !!!
J'ai re-télécharger le module qui va bien et j'arrive donc à générer le code exemple que vous m'avez envoyé.

En revanche en essayant de l'insérer dans mon code perl je n'arrive pas à faire afficher plusieurs liens.
Enfin pour être claire, je fais dérouler une liste et le code est scencé me créer un 'node' et un 'edge' pour chaque élément de la liste or celui-ci ne me crée qu'un seul 'node' (le dernier de la liste) et tous les 'edge'.

Voici le code perl :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 foreach $c (@C) { if ($c ne $void){ #$void = "<void>" &process(); $graph->add_node( '$c', label => $c." \n ".$a." \n ".$b." \n ".$d." \n ".$e, color => 'limegreen' ); #CETTE PARTIE NE ME CREE QU'UN SEUL 'NODE' $graph->add_edge( 'CR_central' => '$c', 'color' => 'limegreen', ); #CETTE PARTIE ME CREE TOUS LES 'EDGE' CE QUI FAIT QUE J'AI 10 LIENS QUI PARTENT DE CR_CENTRAL MAIS QUI ARRIVENT AU MEME 'NODE' AU LIEU DE 10 NODES } }
Je ne comprends pas pourquoi.
Vous pouvez m'aider ?
Si c'est pas clair demandez moi, n'hésitez pas.
Merci

05/05/2010, 16h21
Caro81

Après réflexion, ce problème est peut être un problème de supperposition des 'node' mais je ne sais pas pour autant le régler.:(

Il faut revoir les notions de Perl car tu te mélanges les pinceaux.
Code:

1 2 3 4 5 6 $graph->add_node( '$c', # MAUVAISE ECRITURE label => $c." \n ".$a." \n ".$b." \n ".$d." \n ".$e, color => 'limegreen' );
Code:

'$c'

veut dire que ton node s'appelera $c, or je suppose que tu souhaites que ton node s'appelle "le contenu de $c", donc tu dois écrire

Code:

"$c" ou $c

Les simples quote annulent l'interpolation de la variable.

Donc Ton code doit ressembler à ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 foreach $c (@C) { if ($c ne $void){ #$void = "<void>" &process(); $graph->add_node( "$c", label => $c." \n ".$a." \n ".$b." \n ".$d." \n ".$e, color => 'limegreen' ); $graph->add_edge( 'CR_central' => "$c", 'color' => 'limegreen', ); } }
Tu n'avais qu'un seul node car par défaut les noms des nodes sont uniques et vu que l'unique nom était $c, tout s'écrasé.

05/05/2010, 18h53
Caro81

Merci, j'essayerai ça demain au bureau.

Maintenant que vous me le rappelez c'est vrai qu'il y a une différence entre les simples et les doubles quotes mais cela fait un petit moment que je suis sur ce script et à force je m'embrouille.

Merci beaucoup je vous tiens au courant demain.
06/05/2010, 09h28
Caro81

Vraiment merci beaucoup djibril pour tes conseils et ta patience.
Je suis arrivée à tout faire marcher. C'est super.
Merci merci merci.
Bonne continuation.:ccool: