From tabbed text to HTML splitting the lines

Hi Monks,

I thought somebody might be interested in mine http://dataoniphone.sourceforge.net/

It is in Perl (it's quite simple but it works).

gok8000

Here it is a sample. But please look into Sourceforge if you really want to use it. Greetings!


#!/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>;
[download]

Comment on From tabbed text to HTML splitting the lines Download Code

Replies are listed 'Best First'.
Re: From tabbed text to HTML splitting the lines by toolic (Bishop) on Aug 12, 2008 at 17:35 UTC
http://dataoniphone.sourceforge.net/ Please read What shortcuts can I use for linking to other information? in the section Linking on PerlMonks. Also, if the code is reasonably small, consider posting it here directly, using code tags (and readmore if it is long): Writeup Formatting Tips	[reply]
Re: From tabbed text to html splitting the lines by jettero (Monsignor) on Aug 12, 2008 at 18:22 UTC
Just in case anyone would like to see it and safe the 4,000 clicks through sourceforge, and unpacking the zip file... update: this made more sense before it was reparented from a dup-node that did not have the sources in it. #!c:/Perl/bin/Perl.exe # # this code was put in the public domain here: # http://sourceforge.net/projects/dataoniphone/ V 0.9.0 04/08/2008 17: +01: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 lin +e } 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 wi +ll be <HR> } } close INFILEHANDLE; close OUTFILEHANDLE; print "\nFile table.html created (press a key)\n"; $line = <STDIN>; [download] -Paul	[reply] [d/l]
Re: From tabbed text to HTML splitting the lines by omouse (Initiate) on Sep 02, 2008 at 06:16 UTC
There is a CSV module that you can use. Why not use that instead of replacing tabs? http://search.cpan.org/~alancitt/Text-CSV-0.01/CSV.pm	[reply]
Re^2: From tabbed text to HTML splitting the lines by gok8000 (Scribe) on Sep 02, 2008 at 16:03 UTC
Because my data source was tabbed text. Thank you very much for the link anyway :)	[reply]


No such thing as a small change
	PerlMonks