[Bio] / Sprout / to_html.pl Repository:
ViewVC logotype

View of /Sprout/to_html.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Mon Mar 20 18:33:36 2006 UTC (14 years, 2 months ago) by hwang
Branch: MAIN
Added to_html.pl. This takes stdin and makes a html webpage.
Cross.pl has been modified to print the previous piped information

#/usr/bin/perl -w
use strict;
use Tracer;

#Put the stdin into an array.
my @stdin_array;

while (defined($_ = <STDIN>))
{
    chomp;
    push @stdin_array, $_;

}

#Make html table
print "<table border=1>\n";
# Given an array, create an html table
foreach my $val (@stdin_array) 
{
    print "<tr>";
    my @cols=split(/\t/, $val);
    foreach (@cols)
    {
	print "<td>$_</td>";
    }
    print "</tr>\n";
}
print "</table>";

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3