[Bio] / DrugTargets / peg_pdb_align.pl Repository:
ViewVC logotype

View of /DrugTargets/peg_pdb_align.pl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.2 - (download) (as text) (annotate)
Tue Jul 5 16:40:50 2005 UTC (14 years, 11 months ago) by fangfang
Branch: MAIN
Changes since 1.1: +2 -1 lines
This script shows the clustal alignment of the peg sequence and the
corresponding sequence of the PDB entry.

Corrected the previous problem with displaying spaces in the HTML file.

use CGI qw(:standard);
use FIG;
use Carp 'cluck';

$cgi = new CGI;

print $cgi->header() . $cgi->start_html("Alignment");

$| = 1;

my $peg = $cgi->param('peg');
my $pdb = $cgi->param('pdb');

if (open(F, "$FIG_Config::bin/peg_pdb_dist -align '$peg' $pdb |")) {
    print "<span style=\"font-family: courier new;\">";
    while (<F>) {
	$_ =~ s/ /&nbsp;/g;
	print "$_<br>";
    print "</span>";
} else {
    print "Could not open output.\n";

print $cgi->end_html();

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3