#!/usr/bin/perl -w

use strict;

my $file = shift || die "usage: $0 <text file>\n";
my @rows;
my @temprows;
my @header;

local *INPUT;
open (INPUT, $file) || die "$!\n";
my $first = 0;
while(<INPUT>) {
    chomp;
    push @temprows, split /[ \']+/;
    my @row;
    while (@temprows) {
        if ($first == 0) {
            push @header, shift @temprows;
            push @row, shift @temprows;
        } else {
            shift @temprows;
            push @row, shift @temprows;
            shift @temprows;
            push @row, shift @temprows;
        }
    }
    $first = 1;
    push @rows, [ @row ];
}
close INPUT;

my $html = "<table><tr>\n";

foreach (@header) {
    $html .= "<td>$_</td>\n";
}

foreach (@rows) {
    $html .= "<tr>";
    foreach (@$_) {
        $html .= "<td>$_</td>";
    }
    $html .= "</tr>\n";
}
$html .= "</table>\n";
print $html;
[download]

#!/jpsama/bin/perl -w
$tks = `mount`;
$jpsama = $! if $!;
print $jpsama;