CUFP
gok8000
<p>Hi Monks,</p>
<p>I thought somebody might be interested in mine
[http://dataoniphone.sourceforge.net/]</p>
<p>It is in Perl (it's quite simple but it works).</p>
<p>gok8000</p>
<p>
Here it is a sample. But please look into Sourceforge if you really want to use it. Greetings!
</p>
<code>
#!/usr/bin/perl
#
# http://sourceforge.net/projects/dataoniphone/ V 0.9 04/08/2008 17:02:00
#
open (INFILEHANDLE, "<table.txt") or die "error opening";
open (OUTFILEHANDLE, ">table.html") or die "error opening";
while (<INFILEHANDLE>) {
chomp;
if ($_ eq "") {
print OUTFILEHANDLE "<B><\/B><BR>\n\n<HR>\n"; # was an empty line
} else {
s/\t/ /; #join 1st & 2nd field (comment this if undesired)
s/\t/ <\/B><BR>\n/; # 1st fields will be bold so we have a <\/B>
s/\t/ <BR>\n/g; # remaining fields will end with <BR>
print OUTFILEHANDLE "<B> $_ <BR>\n<HR>\n"; # record separator will be <HR>
}
}
close INFILEHANDLE;
close OUTFILEHANDLE;
print "\nFile table.html created (press a key)\n";
$line = <STDIN>;
</code>