Salut,
ceci permet d'exécuter le script render_blast1.pl en prenant le fichier data1.txt comme input et en affichant directement le résultat du run (noter que l'output du script est un fichier .png)
Code : Sélectionner tout - Visualiser dans une fenêtre à part % render_blast1.pl data1.txt | display -
Je voudrais connaitre ce qu'il faut faire à partir d'une invite de commandes windows pour obtenir le même résultat sachant que j'ai essayé :
qui renvoie :
Code : Sélectionner tout - Visualiser dans une fenêtre à part C:\perl>perl render_blast1.pl data1.txt | display -
et j'ai essayé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 'display' n'est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un fichier de commandes.
qui renvoie :
Code : Sélectionner tout - Visualiser dans une fenêtre à part C:\perl>perl render_blast1.pl data1.txt
ce que je soupçonne être le code de l'image mais pas dans le bon endroit !!! va savoir...
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
30
31
32 ëPNG → IHDR ♥ ♥ [▒©Æ ☻@PLTE Q ═à?.ïWkÄ# µîK é 2 ⌂ î Ñ HÐ╠Êi▲Û õ Á·ÙΧ§§ÇÇÇÇ ┐ Ç Ç õßH=ï Ù═Fé┤ Û Ö2╠©å♂·µG @Ó §¯ ┌╣/OO Í Ö ··Ê ╠ Uk/e ·Çr ¶ ╝ÅÅÓ = ¡Ïµ¦á¦¶ ²§µ ·═¯Þ¬▲ ÇÇwêÖ Ì¡°° ¶ñ`"ï" p█ 2 f═¬ Â┴ e ▄▄▄ ïï çàÊ┤î░─Ì └╦ cG Ö À jZ═ Ó d §ç╬·ËËË ( ɯÉiii ä Q {h¯ ═ ázïE‼ G ║UË ╠ ▲É Ç ▲ Ç┌pÍÑ**Ü═2 Ì©ç § ·¶ E █p Ä ⌂ |³ §Ì│ ÇÇ [ ®®®ÿ¹ÿz ï ï ·ÜpÇÉÍ Úûz ¶ Ó ┌Ñ ↓↓pµµ ·Å╝Å ï ╬ÐAiß Ó ░Óµ( è+Ô ¶ _×á¡ Ï┐Ï ▓¬ ´ı▄¶<└└└¡ / z ç╬Ù»¯¯ú ¡ ï áR-dòÝ = ú [ ¢Àk ¯é¯ ⌂Pp Çǧ§▄ä ═\\ ·┴ °▄ õ─ i┤ Î À ö Ë ┴ ▓""2═2 Ä ·· p ° <│q⌂ ÈI óØ↔ ♠☼IDATx£Ý¦ßrÔ©↕♠P?╦}Q¢·ÌM└ûÝð┤á♣╔rNı0®↓#¹ç>, À▓, ökç ºÁ ¨╣‼|Ápi'Ð ÏÞ↓w-?{▒pp♫╚¨§┘÷█▬Àõ±úÝ´.↑Û┤e¹ä▀wµkg{¥¤m¢7ÎÍÞ↓ÙÔ♀¡ °²Î┌═┌· ¤a`ê§H>♦äY·┴¤¥øÁ¯êg¤ ql¾Ì§ìÁ. L│v¬↨♀▒rô¶ßã↨☺aÜ[‼¾)ô¶D[☼Õ├$ØYn-Ý╬Xµ²×Ò▄=|ÞöÎÒ-¾☻ ┐G♥nZ■♦♦♦☻☻☻☺╦╝►x¸Î0 └'ø°©{■q¶Ð3ÄÂ☼ÅÜW0Á\{±¦ã▲¦ı$█>îi»┘ıdnU·X¹ÉÂ╗_|¡³V´jÊW줫J↨►¬↔ VÙw5Ú█×Wò. ╠Ê~♀Hı►½k%ıü▼ÌÁA@ÿÓ§╗ܼ⌂''Ú3█ç1ºIzÝ2´e^sy«%1└→|☻f┤} Ǩ^‗╠0³Q ª♦♦♦☻☻☻☺╦╝►x¸Î0 └çÛ~O║]MÓd♂╚£]M║♠SÎ1½}↑ÊN⌂jKn▼ë█#╗ÜÈ─↓ÄZÀ+╚Î╩o±«&Ý┤íð²+→<├`¹0Ô© +HÝ«&ÒwÉG¬Ê♣äin♦õ]C¼çvm►►fÚçX╦▒3┐gÆ>┌■2ð>♀╣Á┤¹«eÌÐ'`«Ã[µ♣ ~Å↨?=♀⌂♦♦♦☻☻☻☺☺üÇÇ@└2/ tu╔ݤÁèÖ¸dÔ┘↨K)(ñ\ÙÙa┐V~☼ø6ö♀▒F☻r·¢Ý®Í╗↨¿Ë☼N÷↔©¬êu¯↔d╣|Øúõû)·OÓ▼åX♣=nr@û§ÊôG├Ç[‼ ¾╗│Úí3╠øñ/}>♦äjÀûv¹Y╔SÝ 0♦¬\µ]☼o§W♂ Pß§Å♀├_Ñ` ♥ |▓[Å¥?Îh¸Óz«Á▒Ò┐»Â] z³BßÄ[eS¤À┘ù¶Ì}ÃzÛ±M←öLQ¡═Ìıõ╗®t═▀!→c┼v¸ï»ü╩ß│¥rêò╩Ã. ÖÒ¹ Úw]=┘▀╗k↑:ç|P¯Í─|{¡h?}?Ï]Æ|~ºIzÝ«&²2l▓ÁÁ│gÄ?¼"[þ♣ ~üi¤ ├⌂♦♦♦☻☻☻☺☺üÇÇ@└2/♦̲5♀ í·M§ZÚ«&ÙôÞÙ¤¸Û6ã*h[À½ëè►f┘☻r~}«ß>zÖ:¼v╝ÇÈuwÝCØc┼_²«&m¸Ë¦ðu╗ÜdÔ┘ù‼║çP»↔+°♫♣▓5C¼ %█Ý[·╚¡u☺aó~├å¥[ªg☺☼Â⌂¾ÞíǶ‼▄Þ└e←§Â¦╦¦Çtw▒¾¶C¼eÙû╔9rÛ♦¦0+ËýÞ♣¶À;¨áͧ~1kWô╦↔aÀ♀{º ┼ÝûôÞ´mlÒF Ç↨xÐS├')ÿéÇÇ@@@ ♦,¾BÓ¦_├ µ{&2Vá4zè§%z←Ï d{├¯]PfWØÈû ¾÷çv)╔↨L §Õ^ L3= _▼±Ë♥▓█x☻╩╠♫╚☼ºH∟<z³nζ¿s↓├w3æ·S¼/ÖÍGùyø═½☺Ç▀µÁ☼☼├▀ó` ♥ |Ü´Ö╚÷Z┐CH╗£f╔²Jð6÷©¹Á═³.(0Ó\═t-Y*Ûlk¸═uߦ┘ô♣PC╗á└ê♥RÎÎÂv‗ÀÑÂlıìÖÆ®ÐÜwH█♣õ2Z ®↔«┤■»TëÓv]☻┬øÝµ Ù?«/§g8¢fÌæ☼╚vñÇP«▼PÁ¦┐ÍNʹ│eÌ! ³ Ù'{Ù?Õ½♥ƤïýÚ¡GMÊÖñ☼E┐╠[§$╩w;Ý0åï▀0┤K╔Þ¶ `║ëO ├º` ♥ \³♥j╔♣3╗§&T IEND«B`é
Pour plus de détails, voici le script render_blast1.pl :
Merci beaucoup.
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 #!C:/perl/bin/perl.exe # This is code example 1 in the Graphics-HOWTO use strict; use Bio::Graphics; use Bio::SeqFeature::Generic; my $panel = Bio::Graphics::Panel->new(-length => 1000,-width => 800); my $track = $panel->add_track(-glyph => 'generic',-label => 1); while (<>) { # read blast file chomp; next if /^\#/; # ignore comments my($name,$score,$start,$end) = split /\t+/; my $feature = Bio::SeqFeature::Generic->new(-display_name=>$name,-score=>$score,-start=>$start,-end=>$end); $track->add_feature($feature); } binmode(STDOUT); print $panel->png; exit;
Partager