
ankit
Novice
Apr 14, 2010, 11:23 PM
Post #6 of 22
(20205 views)
|
Re: [roolic] HOW TO SEE PNG image in browser
[In reply to]
|
Can't Post
|
|
currently i am excute following script & it gives me output in text/html,but when i am change the "graphictype" to "png" it will gives pevious output ,and i am not seeing png image iam also sent its supporing module restrictionmap.pm in which the subroutine is saved ,,do it is easy to understand the problem for you. #!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; print end_html; } #############
|