csv2html.pl

csv2html.pl

#!/usr/bin/perl

use Text::xSV;

my $in = $ARGV[0] || "foo.csv";
my $out = $ARGV[1] || "/tmp/out.html";

open(FILE, "+>", $out) or die("Could not open $out");
print FILE "<table>";

my $csv = new Text::xSV;

$csv->open_file($in);

# $csv->read_header();

while (my @fields = $csv->get_row()) {

  print FILE "<tr>";

  foreach my $value (@fields) {

    print FILE "<td>" . $value . "</td>";

  }

  print FILE "</tr>\n";

}

print FILE "</table>";

close(FILE);