#! c:/perl/bin/perl # # csv2html.cgi # csvファイルをHTMLのTABLE表示する。 # Convert CSV file to TABLE format of HTML. # # 1.001 : 1/3/06 : Added back link, Deleted cgi-lib.pl, Added English mode. # 1.00 : 1/23/05 : Initial revisoin # # $Id: csv2html.cgi,v 1.4 2006/01/03 04:31:07 Hideki Kanayama Exp $ # Copyright(c) 2005-2006, Hideki Kanayama All rights reserved. # use CGI::Carp qw(fatalsToBrowser); use CGI; use strict; my $script = "csv2html.cgi"; my $version = '1.001'; my $lastupdatedyear = '2006'; my $lang = 0; # 0:Japanese, 1:English my $charset = ("Shift_JIS", "ISO-8859-1")[$lang]; my $backlink = "csv2html.html"; my $back = "Back"; my $q = CGI->new; my $cgierror = $q->cgi_error; &error($cgierror) if ($cgierror); print $q->header(-type=>'text/html',-charset=>$charset); print "\n"; print "\n"; print "csv2html\n"; print "\n"; print "
\n"; print qq($back

\n); print qq(

\n); print (("CSV ファイル","CSV file")[$lang]); print qq(

\n); my $tmp = ('テーブル表示','Convert to a table')[$lang]; print qq(\n); print "

\n
\n"; my $csv = $q->upload('csv'); if ($csv){ print "\n"; while (<$csv>){ chomp; my @cols = split(/,/); print ""; foreach my $colline (@cols){ if ($colline eq '') {$colline = " "} print ""; } print "\n"; } print "
$colline
\n"; close $csv; } my $mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang]; print "
$script Ver. $version
\n"; print "
Copyright(C) 2005-$lastupdatedyear, hidekik.com
\n"; print "\n";