Re: How do I search and output results to HTML from a CSV database file?

[bjelli]

in reply to How do I search and output results to HTML from a CSV database file?

nice soultions everyone, but sadly not for this problem. You are all parsing space-seperated data, but Sasquires data ist in fixed-width fields.

If you've got just a few fixed-width fields, you might want to try substr. If you have many fields, I would recommend unpack, like so:

while(<DATA>)
        @data = unpack("A8A10A2",$_);
        print join(",", @data), "\n";
}

__DATA__
12345678123456789012
longone evenlongerha
a       b         c

the template string "A8A10A2" tells unpack to look for 8 Ascii Characters, then 10 Ascii Characters, then 2 Ascii Characters. unpack is also used a lot in handling binary data (which I don't understand). I just stick to this usage.

--
Brigitte    'I never met a chocolate I didnt like'    Jellinek
http://www.horus.com/~bjelli/         http://perlwelt.horus.at

[larryk]

which in turn can be shortened to

print join(",",unpack("A8A10A2",$_)),"\n" while <DATA>;

and run from the command line as

perl -i.bak -l -ne "print join(',',unpack('A8A10A2',$_));" filename

this will do the conversion for you. I'm sure there's a module out there which parses comma delimited files into html tables. hope this helps

larryk

----------------------------------------------------
$less->{'chars'} = `"time in the pub" | more`; # :-D

[buckaduck]

The module you're thinking of is Data::Table. From the docs:

$t = Data::Table::fromCSV("aaa.csv");  # Read a csv file into a table 
+oject
print $t->html;                        # Display a 'portrait' HTML TAB
+LE on web. 

buckaduck