#!/usr/bin/perl 

print "変換前のファイル名(.txt)を入れてください\n";
$origin=<>;
print "変換後のファイル名(.html)を入れてください\n";
$dst=<>;
open(F, "$origin");
@data = <F>;
open(DB, ">>$dst")|| die "cannot open file:$!\n" ;
print DB "\<HTML\>\n\<HEAD\>\<TITLE\>\<\/TITLE\>\<\/HEAD\>\n\<BODY\>\n\<TABLE border width=\"588px\"\>\n";
$line = @data;
for ($i=0;$i<$line;$i++){
@td = split(/,/, $data[$i]);
print DB "\<TR\>";
$line2 =@td;
for ($k=0;$k<$line2;$k++){
print DB "\<TD\>$td[$k]\<\/TD\>";
}
print DB "\<\/TR\>";
}
print DB "\n\<\/TABLE\>\n\<\/BODY\>\<\/HTML\>";
close(DB);
close(F);