WampServer
Apache, PHP, MySQL
on Windows
Not able to view PNG image on browser
Posted by:
ankit999
(180.151.249.---)
Date: April 13, 2010 12:03PM
HI,
i am working on perl & cgi but when i am want to output of my text in PNG format it gives like below & I am also using GD module in perl.
Help me.
‰PNG
���
IHDR��r��à���R{ û��� PLTEÿÿÿ���ÿ��ÀÉ°��
uIDATxœíOnã8Å)Üx-ÝÁð)ä…÷`Þ'È2§0²2|Êõ‡dQ’“éF¨é¯çýA’õÀ¡œ àÍ«*ç����������À_MwóÓp :Œ¡“ƒåŒî
·0¥{]<[=`Ÿ“{¢î}ßOSχùr•Ã8•3º×¾K÷®ñlõ€}NîeuG\Ô†Ý+§Î8|ù¬<—?2Üô òSmí¼òtŒ”ÏÊsù#ݨ«ž¬'6ÑæQ,µË•-5z4l.ûsªîŠÕ¥Žœ öS¿^ÝÀÞÜ f^ k/ÄGoS¢:›yƒ¨‹íGïËwá*Œdæuì÷±ÃW«ÓzY´nªcûŽ¾²ï.‘s^»Ù÷Nü¾-õ†oÕÅïYß“7ØÌ»úø›/2ì.ñQ1óø[G† Ù~ºö‹<0²™'~ }M³:������8?âãƒ?ω~ ‡·Fêç·g3õóýþùþñh¶öûáýãÞTýÔN=îL³}ð[mô�üëlÚwÖÅ3÷Ô°S3½Àú“Æ õÍ(—õ{Ì=µvÔöaרþäX¬$UwÆ`K:7•lZ²âD].z1©¼>`xÙÂÛEÓwìÍMÝuä€ çíèbHá½x1ˆ:_d3½Àä÷±û7ƒp½ïi«œ^Wí{÷bßSN/„{¼UèÍìÍůÔ(=ÎÛÑ3)¼wÓG‡ _d3½Àä÷Ýø“Æ Üç÷ ���������`ºØÝòÀf Ùwµ‹æÔÞ+Oïu°‹m 2zj¿Ç»|WíégÍ—$••Œ™lÙgc›Î;[Uë«Ã.ên_ùÃɾ£¸^ºÈ~ ¥ïȾsêâMÐõdû‘ìTªµËRÒ¾WC»ï.í{—÷Ý•3 ªŠÛçòWŠ¾YZ_;q\/]d¿ÓwãÄ aïÂ&`TïnÙö‹÷è9Q™Úÿ.����€?‹£þÓ‚Ó‰ÕÏççó:ý< ÞŽ’Îûiõóáÿ´Q??Žž5Z;Ô_©??ßߟ¾‘�€?“µo§gµÃ÷ey®´Ü«/Šº_9vÚöMJDÕˆš’ µ²âò½¤^=°‹ºvÉè6×Ðé™GÞ\{œÌKY¼ìszÚñ¶ýÌë}7±»}×Òâº<÷›}oúV;í’G¾Ý¤Ý ×Ðz®Ò3“y.eñJ°oÒ{ª®gzØã· ���������` ²™·4å6:è½úÈVç=Q÷ÉöYÚ7½Ö^}d«G›Q—ÚЩ¸Sš13=î(¢¦íììÜŠÔCÎ¥ÊÔ…ëÖV=hO
kžuáÝ|;Uç&{Ú,OMÀAí;¾çi«'ù>ãé•}WgMV:èÙ¸ž¹·ì¼7k×Àå¾7}« ÂãÂÚKà¾x<òB}»‘²x7ÙÓfyjr>ê¼Ç& {å‹ÃÓ��������ÀßÅF¯ j›Cx¦×ÞW©½Uíí"®U?Íq-Ó•í«|ײö¶÷6 ×/æÔÊt×l©i¡i6ß´$µ<. ¼}ÔyÖ…µeOO¦à:±ï\õ Ãpeb†ó©.—Ge„dô²öH=Ø~z[ûžË‡íÚû¼ö4Ø£¬=µÕÛØ™¦oU‡ÚÎìéÉÜIì»i’¹·“ Õ‰“¤öÒ¨ŒI>ªÁbeí�����à?ÏIÿiÁýÎêÏÏçdz…:ý<â–]<ÎâÑ™”ຠ©=RoHÇßòà { ˜T/šµÏfíêGÖû®e¶ví>½Þw]ûfNï§ßj'£jäôdFF¯Y<:“Üi’Ôžªëø[Ò¹·ô@T§/&_Üã· ���������` ºEam©¯ãzUaí7Ó4^õÓ³•˜u°«*Áüf^šTa+`ÕÀÊ)»1—¾¦¡yjm ‘jlÝ.êÐk*qµg [{T_›:èɈÛ1ûìLÜxQgJ¨fd¤z¦6Øko¬ ¶ÑFïìP
9Kûîöx«©=žX{\‰+=óØÚãúZýˆŽ¸Õ`Ÿ‰KupF|\Ü¿ö¿K����������{ñ{óÌTŒz¶Æ*§÷;MÖÌü„z
Ã*§WªÏV
¥p©\.;u}úˆ+ ¼Ü0ÏMµ§×V]¼9*º ÒÄ 3ò‰a8’—šì
Y]ü>WÚñ9“ÓË-ð^î»3ö]n²çËÚ«Fz:%d·ª_¢‹ºxÒ%O'ÝêÈ Žq¹È8ŒšìÉP
Žù±ß7•v|9=���������üU|íÛmÎÁ¨ý¾UéîfNï«1
µµS;C«"ÏEN¯¤åª±³Î$éòL‹TG[:Þ™âÚ<ÅÂæôšª§,^²öØ›ãRZ¹w§N.Ê4
¾(SpC.Ý¥ÀW— IßåÜ*’Wí»®]Kwµ|xsîm“·Z²xÉÚcoŽKiõ ;ué¢LÓ˜ä“cÐnÒ7Ù£{{ü6�����ð8?âãƒ?w < oÔÏoÏfêçûýóýãÑlí÷Ãûǽ©ú©zÜ™fûþà·Úè �h›rbߥfy[Ö^˜Y<Ó]oU‰kg5Ð0ƒÞ›¶j[&ï©-Ó‡mU³É™¨SœLØyW¯˜M¡)5¾+–Z²éô_»uû«éÃ7}4è�Œ…:¸ÕùžŸÓœÓså kuŸÔû¯×®#n³º/-÷º2þ6«7}« ´“öxñÃÜHoÔá:�ƒçÞz'†ÝÈ#nu~=¸å ‡÷.JôUê����������ßõÅûæ°.ºý'9½oª4·Ú±}Ó³Ÿ;×¥Ñ]éjg.ê u®4¶™Ók£>ˆ‹§N ¸ YtŽªmÓÅ”á+¹è–ægèÉÙõº¹ö9 ìÚ³‹—ãzåbµöræVýôš¼UÎâÑ—H:>púŽ-:²ö.ébÊðå‹RtËz Ðã3.ÖE?=�~ ú¿ÄþO±& Ïóãyo N?o÷ÃÛñÇÅ£úñíÿ4RÆu¾7[;Ô_©Ÿ ÷û³Ñ7�ðÿMp¾7ú Ui
j#õçáÑLýùþþq<ß[=þ<·øk>«ŸÚ=îL»}¿ó[Å¢�øﱬ¨¥„˜µèR@ïRÞnø}ßôÓ˵—Ýè;kæø2”uÑríkȨçÉ´¢nçV¤š&ÕR«;•M œ±ÛêŽwmÕvR<®!©ßt~ïÒP[îµ7q#=™ƒq+¶ŸŒ¿Õ
ÞåÚSñ¬Y»š_ï»Iš
Þ•zË·šŠgUÝ…N:èéÜ[ j+½ö¤‘Þ|IUºbûéø[à¥D_ûß%���������€½¨M¹u}íïføDÝWöͺówÓ^Y=Ûf¥Ö¯Ûà•
ØÒñN}¶4,"½°Ó][ªËä‹1«K—¼A‡c8™‚«½ö¤¾V&äjy®“œžòÑÁ-÷]Õû´ö9uÿ+½öòÚçµÏùßy9÷¶Ù[e7nœ’']ò¤‘ž~Ár¯=©¯åÖyZžË›[¢|ô8<=�����ДÃóÍQR?¯Îª÷û©…xT?<Ž÷fêÏãñtz¾µZûÑEu×Rý³ÝÚãδÛ÷wz«Ÿm¾‘�€?‚—N]Ý]oq6Ùæ(êþ•§S÷a[œuö°éeõ2 rÕ–pɃ«ºáõ¶óÉŸÓÒRãÏí£ ò¬ 6츢–FÜ’žÎ½
Ã-÷Úã¢[òQ#½Jpu&®x¥á¢Røõ¾ç1 ºö×ûîV32½Õ2ëârÑŠZqËz<CÕµ× }D£|ñ@÷¤WgâÊ Ü¤�����À~Àè{©£ïµ:Œ>�À?ĘylÑYkoc*Fõkô--AQ7E—¾[˜@óªXKhi ©z Æùb`™xÝlzÜÉÀ
yÀÚYrqÞHÒµU dŒ-[tÙÚ ©¢–CxƒvEÝ}šèëÆ°™Ó“ S§Î®Ý4ËK©½´öÚè›sxoÓkùV¹”–#ydÑ©µGíñ4¼7I™vÉc3 ÈFŸ&úhŽrz���������ø;1³mí¤ÛÚ賞Þ/©ç~jÅ詺«ÕãO©Û/ªçvvÚ.Îvµ;+7·ûÃÔƒ¨yFFV×a,^Ïá=V¿µv_fd”µ×ûþ{;ÓôÒ×M›åÉŒŒxv“Ô^àH ¥ö¨ƒ yz¿¨���ü"ÿêN‘Öÿ}����IEND®B`‚
i am working on perl & cgi but when i am want to output of my text in PNG format it gives like below & I am also using GD module in perl.
Help me.
‰PNG
���
IHDR��r��à���R{ û��� PLTEÿÿÿ���ÿ��ÀÉ°��
uIDATxœíOnã8Å)Üx-ÝÁð)ä…÷`Þ'È2§0²2|Êõ‡dQ’“éF¨é¯çýA’õÀ¡œ àÍ«*ç����������À_MwóÓp :Œ¡“ƒåŒî
·0¥{]<[=`Ÿ“{¢î}ßOSχùr•Ã8•3º×¾K÷®ñlõ€}NîeuG\Ô†Ý+§Î8|ù¬<—?2Üô òSmí¼òtŒ”ÏÊsù#ݨ«ž¬'6ÑæQ,µË•-5z4l.ûsªîŠÕ¥Žœ öS¿^ÝÀÞÜ f^ k/ÄGoS¢:›yƒ¨‹íGïËwá*Œdæuì÷±ÃW«ÓzY´nªcûŽ¾²ï.‘s^»Ù÷Nü¾-õ†oÕÅïYß“7ØÌ»úø›/2ì.ñQ1óø[G† Ù~ºö‹<0²™'~ }M³:������8?âãƒ?ω~ ‡·Fêç·g3õóýþùþñh¶öûáýãÞTýÔN=îL³}ð[mô�üëlÚwÖÅ3÷Ô°S3½Àú“Æ õÍ(—õ{Ì=µvÔöaרþäX¬$UwÆ`K:7•lZ²âD].z1©¼>`xÙÂÛEÓwìÍMÝuä€ çíèbHá½x1ˆ:_d3½Àä÷±û7ƒp½ïi«œ^Wí{÷bßSN/„{¼UèÍìÍůÔ(=ÎÛÑ3)¼wÓG‡ _d3½Àä÷Ýø“Æ Üç÷ ���������`ºØÝòÀf Ùwµ‹æÔÞ+Oïu°‹m 2zj¿Ç»|WíégÍ—$••Œ™lÙgc›Î;[Uë«Ã.ên_ùÃɾ£¸^ºÈ~ ¥ïȾsêâMÐõdû‘ìTªµËRÒ¾WC»ï.í{—÷Ý•3 ªŠÛçòWŠ¾YZ_;q\/]d¿ÓwãÄ aïÂ&`TïnÙö‹÷è9Q™Úÿ.����€?‹£þÓ‚Ó‰ÕÏççó:ý< ÞŽ’Îûiõóáÿ´Q??Žž5Z;Ô_©??ßߟ¾‘�€?“µo§gµÃ÷ey®´Ü«/Šº_9vÚöMJDÕˆš’ µ²âò½¤^=°‹ºvÉè6×Ðé™GÞ\{œÌKY¼ìszÚñ¶ýÌë}7±»}×Òâº<÷›}oúV;í’G¾Ý¤Ý ×Ðz®Ò3“y.eñJ°oÒ{ª®gzØã· ���������` ²™·4å6:è½úÈVç=Q÷ÉöYÚ7½Ö^}d«G›Q—ÚЩ¸Sš13=î(¢¦íììÜŠÔCÎ¥ÊÔ…ëÖV=hO
kžuáÝ|;Uç&{Ú,OMÀAí;¾çi«'ù>ãé•}WgMV:èÙ¸ž¹·ì¼7k×Àå¾7}« ÂãÂÚKà¾x<òB}»‘²x7ÙÓfyjr>ê¼Ç& {å‹ÃÓ��������ÀßÅF¯ j›Cx¦×ÞW©½Uíí"®U?Íq-Ó•í«|ײö¶÷6 ×/æÔÊt×l©i¡i6ß´$µ<. ¼}ÔyÖ…µeOO¦à:±ï\õ Ãpeb†ó©.—Ge„dô²öH=Ø~z[ûžË‡íÚû¼ö4Ø£¬=µÕÛØ™¦oU‡ÚÎìéÉÜIì»i’¹·“ Õ‰“¤öÒ¨ŒI>ªÁbeí�����à?ÏIÿiÁýÎêÏÏçdz…:ý<â–]<ÎâÑ™”ຠ©=RoHÇßòà { ˜T/šµÏfíêGÖû®e¶ví>½Þw]ûfNï§ßj'£jäôdFF¯Y<:“Üi’Ôžªëø[Ò¹·ô@T§/&_Üã· ���������` ºEam©¯ãzUaí7Ó4^õÓ³•˜u°«*Áüf^šTa+`ÕÀÊ)»1—¾¦¡yjm ‘jlÝ.êÐk*qµg [{T_›:èɈÛ1ûìLÜxQgJ¨fd¤z¦6Øko¬ ¶ÑFïìP
9Kûîöx«©=žX{\‰+=óØÚãúZýˆŽ¸Õ`Ÿ‰KupF|\Ü¿ö¿K����������{ñ{óÌTŒz¶Æ*§÷;MÖÌü„z
Ã*§WªÏV
¥p©\.;u}úˆ+ ¼Ü0ÏMµ§×V]¼9*º ÒÄ 3ò‰a8’—šì
Y]ü>WÚñ9“ÓË-ð^î»3ö]n²çËÚ«Fz:%d·ª_¢‹ºxÒ%O'ÝêÈ Žq¹È8ŒšìÉP
Žù±ß7•v|9=���������üU|íÛmÎÁ¨ý¾UéîfNï«1
µµS;C«"ÏEN¯¤åª±³Î$éòL‹TG[:Þ™âÚ<ÅÂæôšª§,^²öØ›ãRZ¹w§N.Ê4
¾(SpC.Ý¥ÀW— IßåÜ*’Wí»®]Kwµ|xsîm“·Z²xÉÚcoŽKiõ ;ué¢LÓ˜ä“cÐnÒ7Ù£{{ü6�����ð8?âãƒ?w < oÔÏoÏfêçûýóýãÑlí÷Ãûǽ©ú©zÜ™fûþà·Úè �h›rbߥfy[Ö^˜Y<Ó]oU‰kg5Ð0ƒÞ›¶j[&ï©-Ó‡mU³É™¨SœLØyW¯˜M¡)5¾+–Z²éô_»uû«éÃ7}4è�Œ…:¸ÕùžŸÓœÓså kuŸÔû¯×®#n³º/-÷º2þ6«7}« ´“öxñÃÜHoÔá:�ƒçÞz'†ÝÈ#nu~=¸å ‡÷.JôUê����������ßõÅûæ°.ºý'9½oª4·Ú±}Ó³Ÿ;×¥Ñ]éjg.ê u®4¶™Ók£>ˆ‹§N ¸ YtŽªmÓÅ”á+¹è–ægèÉÙõº¹ö9 ìÚ³‹—ãzåbµöræVýôš¼UÎâÑ—H:>púŽ-:²ö.ébÊðå‹RtËz Ðã3.ÖE?=�~ ú¿ÄþO±& Ïóãyo N?o÷ÃÛñÇÅ£úñíÿ4RÆu¾7[;Ô_©Ÿ ÷û³Ñ7�ðÿMp¾7ú Ui
j#õçáÑLýùþþq<ß[=þ<·øk>«ŸÚ=îL»}¿ó[Å¢�øﱬ¨¥„˜µèR@ïRÞnø}ßôÓ˵—Ýè;kæø2”uÑríkȨçÉ´¢nçV¤š&ÕR«;•M œ±ÛêŽwmÕvR<®!©ßt~ïÒP[îµ7q#=™ƒq+¶ŸŒ¿Õ
ÞåÚSñ¬Y»š_ï»Iš
Þ•zË·šŠgUÝ…N:èéÜ[ j+½ö¤‘Þ|IUºbûéø[à¥D_ûß%���������€½¨M¹u}íïføDÝWöͺówÓ^Y=Ûf¥Ö¯Ûà•
ØÒñN}¶4,"½°Ó][ªËä‹1«K—¼A‡c8™‚«½ö¤¾V&äjy®“œžòÑÁ-÷]Õû´ö9uÿ+½öòÚçµÏùßy9÷¶Ù[e7nœ’']ò¤‘ž~Ár¯=©¯åÖyZžË›[¢|ô8<=�����ДÃóÍQR?¯Îª÷û©…xT?<Ž÷fêÏãñtz¾µZûÑEu×Rý³ÝÚãδÛ÷wz«Ÿm¾‘�€?‚—N]Ý]oq6Ùæ(êþ•§S÷a[œuö°éeõ2 rÕ–pɃ«ºáõ¶óÉŸÓÒRãÏí£ ò¬ 6츢–FÜ’žÎ½
Ã-÷Úã¢[òQ#½Jpu&®x¥á¢Røõ¾ç1 ºö×ûîV32½Õ2ëârÑŠZqËz<CÕµ× }D£|ñ@÷¤WgâÊ Ü¤�����À~Àè{©£ïµ:Œ>�À?ĘylÑYkoc*Fõkô--AQ7E—¾[˜@óªXKhi ©z Æùb`™xÝlzÜÉÀ
yÀÚYrqÞHÒµU dŒ-[tÙÚ ©¢–CxƒvEÝ}šèëÆ°™Ó“ S§Î®Ý4ËK©½´öÚè›sxoÓkùV¹”–#ydÑ©µGíñ4¼7I™vÉc3 ÈFŸ&úhŽrz���������ø;1³mí¤ÛÚ賞Þ/©ç~jÅ詺«ÕãO©Û/ªçvvÚ.Îvµ;+7·ûÃÔƒ¨yFFV×a,^Ïá=V¿µv_fd”µ×ûþ{;ÓôÒ×M›åÉŒŒxv“Ô^àH ¥ö¨ƒ yz¿¨���ü"ÿêN‘Öÿ}����IEND®B`‚
Re: Not able to view PNG image on browser
Posted by:
yfastud
(Moderator)
Date: April 13, 2010 02:56PM
to setup cgi/perl, follow this
[blog.jlbn.net]
[blog.jlbn.net]
Have fun,
FREE One A Day
FREE Photo
FREE Games
FREE Websites
FREE Portable GPS
FREE WAMP Guides
[blog.jlbn.net]
[blog.jlbn.net]
Have fun,
FREE One A Day
FREE Photo
FREE Games
FREE Websites
FREE Portable GPS
FREE WAMP Guides
Re: Not able to view PNG image on browser
Posted by:
ankit999
(180.151.249.---)
Date: April 15, 2010 06:33AM
i have already install cgi/perl in wamp and its working properly,but when i want the out put in png it gives ike this --my script is--
#!c:/wamp/apps/Perl/bin/perl.exe
# webrebase1 - a web interface to the Rebase modules
# To install in web, make a directory to hold your Perl modules in web space
use Restrictionmap;
use Rebase;
use SeqFileIO;
use CGI qw/:standard/;
use strict;
use warnings;
print header,
start_html('Restriction Maps'),
i('<font size=6><font color=yellow>Draw Restriction Maps</font>'),
hr,
start_multipart_form,
'<body>',
'<body bgcolor="green">',
'<font color=white>',
h3(" Restriction enzyme(s)? [case sencetive] "
,
textfield('enzyme'), p,
h3(" Sequence filename (fasta or raw format): ",
filefield(-name=>'fileseq',
-default=>'starting value',
-size=>50,
-maxlength=>200,
), p,
strong(em("or"),
h3("Type sequence: ",
textarea(
-name=>'typedseq',
-rows=>10,
-columns=>60,
-maxlength=>1000,
), p,
h3(" Make restriction map:",
submit, p,
'</font>',
'</body>',
hr,
end_form;
if (param( )) {
my $sequence = '';
# must have exactly one of the two sequence input methods specified
if(param('typedseq') and param('fileseq')) {
print "<font color=red>You have given a file AND typed in sequence: do only one!</font>", hr;
exit;
}elsif(not param('typedseq') and not param('fileseq')) {
print "<font color=red>You must give a sequence file OR type in sequence!</
font>", hr;
exit;
}elsif(param('typedseq')) {
$sequence = param('typedseq');
}elsif(param('fileseq')) {
my $fh = upload('fileseq');
while (<$fh> {
/^\s*>/ and next; # handles fasta file headers
$sequence .= $_;
}
}
# strip out non-sequence characters
$sequence =~ s/\s//g;
$sequence = uc $sequence;
my $rebase = Rebase->new(
#omit "bionetfile" attribute to avoid recalculating the DBM file
dbmfile => 'BIONET',
mode => '0444',
);
my $restrict = Restrictionmap->new(
enzyme => param('enzyme'),
rebase => $rebase,
sequence => $sequence,
graphictype => 'text',
);
print "Your requested enzyme(s): ",em(param('enzyme')),p,
"<code><pre>\n";
(my $paramenzyme = param('enzyme')) =~ s/,/ /g;
foreach my $enzyme (split(" ", $paramenzyme)) {
print "Locations for $enzyme: ",
join( ' ', $restrict->get_enzyme_map($enzyme)), "\n";
my @count=' ';
@count = join ' ', $restrict->get_enzyme_map($enzyme)+1, "\n";
print "Total Fragments of the sequence are: @count \n";
print "\n\n\n";
print $restrict->get_graphic,
"</pre></code>\n",
hr;
}
}
#############
#!c:/wamp/apps/Perl/bin/perl.exe
# webrebase1 - a web interface to the Rebase modules
# To install in web, make a directory to hold your Perl modules in web space
use Restrictionmap;
use Rebase;
use SeqFileIO;
use CGI qw/:standard/;
use strict;
use warnings;
print header,
start_html('Restriction Maps'),
i('<font size=6><font color=yellow>Draw Restriction Maps</font>'),
hr,
start_multipart_form,
'<body>',
'<body bgcolor="green">',
'<font color=white>',
h3(" Restriction enzyme(s)? [case sencetive] "
,textfield('enzyme'), p,
h3(" Sequence filename (fasta or raw format): "
,filefield(-name=>'fileseq',
-default=>'starting value',
-size=>50,
-maxlength=>200,
), p,
strong(em("or"
),h3("Type sequence: "
,textarea(
-name=>'typedseq',
-rows=>10,
-columns=>60,
-maxlength=>1000,
), p,
h3(" Make restriction map:"
,submit, p,
'</font>',
'</body>',
hr,
end_form;
if (param( )) {
my $sequence = '';
# must have exactly one of the two sequence input methods specified
if(param('typedseq') and param('fileseq')) {
print "<font color=red>You have given a file AND typed in sequence: do only one!</font>", hr;
exit;
}elsif(not param('typedseq') and not param('fileseq')) {
print "<font color=red>You must give a sequence file OR type in sequence!</
font>", hr;
exit;
}elsif(param('typedseq')) {
$sequence = param('typedseq');
}elsif(param('fileseq')) {
my $fh = upload('fileseq');
while (<$fh>
{/^\s*>/ and next; # handles fasta file headers
$sequence .= $_;
}
}
# strip out non-sequence characters
$sequence =~ s/\s//g;
$sequence = uc $sequence;
my $rebase = Rebase->new(
#omit "bionetfile" attribute to avoid recalculating the DBM file
dbmfile => 'BIONET',
mode => '0444',
);
my $restrict = Restrictionmap->new(
enzyme => param('enzyme'),
rebase => $rebase,
sequence => $sequence,
graphictype => 'text',
);
print "Your requested enzyme(s): ",em(param('enzyme')),p,
"<code><pre>\n";
(my $paramenzyme = param('enzyme')) =~ s/,/ /g;
foreach my $enzyme (split(" ", $paramenzyme)) {
print "Locations for $enzyme: ",
join( ' ', $restrict->get_enzyme_map($enzyme)), "\n";
my @count=' ';
@count = join ' ', $restrict->get_enzyme_map($enzyme)+1, "\n";
print "Total Fragments of the sequence are: @count \n";
print "\n\n\n";
print $restrict->get_graphic,
"</pre></code>\n",
hr;
}
}
#############
Sorry, only registered users may post in this forum.
