[Bio] / FigKernelScripts / svr_tab2html.pl Repository:
ViewVC logotype

View of /FigKernelScripts/svr_tab2html.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (download) (as text) (annotate)
Wed Nov 3 04:45:55 2010 UTC (9 years ago) by gdpusch
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, rast_rel_2014_0912, myrast_rel40, mgrast_dev_05262011, mgrast_dev_04082011, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2011_0119, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011, mgrast_dev_10262011, HEAD
Changes since 1.4: +8 -2 lines
Fixed a bug I introduced, and added a "--border" option to the table.

#!/usr/bin/perl

#
# This is a SAS Component
#

my $usage = "usage: svr_tab2html [LINK-TEMPLATE] < tab-separated > html
The LINK-TEMPATE is a URL in which the 3-character string PEG is mapped
to the FIG-ID for any column containing a PEG";

my $border = q();
if (@ARGV && ($ARGV[0] =~ m/^-{1,2}border/)) {
    $border = q( border=1);
    shift;
}

my $url = (@ARGV > 0) ? $ARGV[0] : "";

print "<table$border>\n";
while (defined($_ = <STDIN>))
{
    chomp;
    if ($_ =~ m{^//}) {
	print STDOUT "</table>\n\n";
	next;
    }
    
    my $heading_line = ($_ =~ s/^\#//) ? 1 : 0;
    
    my @flds = split(/\t/,$_);
    print "<tr>\n";
    foreach $fld (@flds)
    {
	if (($fld =~ /(fig\|\d+\.\d+\.peg\.\d+)/) && $url)
	{
	    my $peg = $1;
	    my $tmp = $url;
	    $tmp =~ s/PEG/$peg/g;
	    $fld = "<a href=$tmp>$fld</a>";
	}
	
	if ($heading_line) {
	    print STDOUT "  <th>$fld</th>\n";
	}
	else {
	    print STDOUT "  <td>$fld</td>\n";
	}
    }
    print STDOUT "</tr>\n";
}
print STDOUT "</table>\n";

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3