#!/usr/bin/perl use CGI qw(param); use DBI; $col = 27;#defines how many columns there are in the file print < Rank table
YaleGerstein Lab Parts ListGeneCensusMolecular MovementsNESG helpdownload
Rank Table


You can select any attribute and sort the table based on that attribute. It only shows the top ones. If you want to see the whole table, you can download the data file.

end_of_paragraph @attributes = qw(ps_id ps_ac pat_len obs_y exp_y z_score_y pvalue_y rank_y class_y obs_w exp_w z_score_w pvalue_w rank_w class_w obs_f exp_f z_score_f pvalue_f rank_f class_f obs_h exp_h z_score_h pvalue_h rank_h class_h); print "
\n"; print " \n"; print "\n"; foreach $aa (@attributes) { print "\n"; } print "\n"; for ($i=1; $i<=$col; $i++) { $arrow{$i,0}="uparrow.gif"; $arrow{$i,1}="downarrow.gif"; } $nn=param("name"); if (length($nn)==0) { $nn=1; } $tt=param("que");# upwards is 0; downwards is 1; if (length($tt)==0) { $tt=1; } $rows=param("rows"); if (length($rows)==0) { $rows=20; } $seq = "desc"; if ($tt==0) { $arrow{$nn,$tt}="uparrow2.gif"; $seq = "asc"; } else { $arrow{$nn,$tt}="downarrow2.gif"; } $ns = $nn-1; $ord = $attributes[$ns]; print ""; for ($i=1; $i<=$col; $i++) { print "\n"; } print "\n"; print ""; for ($i=1; $i<=$col; $i++) { print "\n"; } print "\n"; ################################################################### # # The DBI module that try to get data from the database "molmovdb" # ################################################################### my ($dbh, $sth); my (@ary); $DSN = "DBI:mysql:database=motif"; $dbh = DBI -> connect($DSN, "web", ""); $sth = $dbh->prepare ("select * from pseudomotif order by $ord $seq"); $sth->execute(); $num=0; while (@ary = $sth -> fetchrow_array ()) { $motif[$num] = join ("\t", @ary), "\n"; $num++; } $sth->finish(); $dbh->disconnect(); ################################################################### # # The end of the DBI module # ################################################################### for ($i=0; $i<$rows; $i++) { $temp=$motif[$i]; @name=split(/\t/, $temp); $gate=$i%2; if ($gate==0) { print "\n"; } else{ print "\n"; } print "\n"; print "\n"; for ($j=2; $j<$col; $j++) { print "\n"; } print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$aa
$name[0]$name[1]$name[$j]
top 10stop 20stop 50sWhole table (warning: it will be extremely slow due to the huge amount of data) 
\n"; print "
\n"; print "


\n"; print "";