#!/usr/bin/perl use CGI qw(param); print < Attributes
YaleGerstein Lab Parts ListGeneCensusMolecular MovementsNESG helpdownload
Attributes

This table contains all of the available attributes of the proteins. You can pick up any attributes to compare, correlate or find out the distribution. You can also upload your own attributes.

end_of_paragraph print "
\n"; print "\n"; print "
\n"; print "\n"; for ($i=1; $i<=8; $i++) { $arrow{$i,0}="uparrow.gif"; $arrow{$i,1}="downarrow.gif"; } $nn=param("name"); if (length($nn)==0) { $nn=6; } $tt=param("que");# upwards is 0; downwards is 1; if (length($tt)==0) { $tt=1; } if ($tt==0) { $arrow{$nn,$tt}="uparrow2.gif"; } else { $arrow{$nn,$tt}="downarrow2.gif"; } print "\n"; print "\n"; open (DATA, "table_attributes.txt"); $num=0; while ($temp = ) { chomp ($temp); @name=split (/\t/, $temp); $sorting[$num]=$name[$nn-1]; while (exists($full{$sorting[$num]})) { $sorting[$num]= $sorting[$num] . "s"; } $full{$sorting[$num]}=$temp; $fullcontent[$num]=$temp; $num++; } close (DATA); if ($nn==1 || $nn==3 || $nn==4 || $nn==5 || $nn==2 || $nn==7 || $nn==8) { @sorting = sort (@sorting); if ($tt==0) { @sorting = reverse (@sorting); } for ($i=0; $i<$num; $i++) { $temp=$full{$sorting[$i]}; @name=split(/\t/, $temp); $gate=$i%2; if ($gate==0) { print ""; } else{ print ""; } for ($j=0; $j<=7; $j++) { print ""; } print "\n"; } } else { if ($nn==6 && $tt==0) { @fullcontent = reverse (@fullcontent); } for ($i=0; $i<$num; $i++) { $temp=$fullcontent[$i]; @name=split(/\t/, $temp); $gate=$i%2; if ($gate==0) { print ""; } else{ print ""; } if ($i<204) { ($temp, $others) = split(/\(/, $name[0]); print ""; } else { print ""; } for ($j=1; $j<=7; $j++) { print ""; } print "\n"; } } print "\n"; print "\n"; print "
 KeyShortnameDescriptionIs_core_foldIs_core_sfamTimeEmailIP_address
 
$name[$j]
$name[0]$name[0]$name[$j]
\n"; print "
\n"; print "


\n"; print "";