#!/usr/local/bin/perl
require 'jcode.pl';
# コンテンツヘッダー書き出し
print("Content-type: text/html\n\n");
print << "EOF";
京王
EOF
#
print << "EOF";
EOF
open(FP,"05.csv");
while(){
$i++;
chop $_;
$_ =~ s/「取扱商品インデックス」//g;
print "";
@line = split(/,/,$_);
$cell_i = 0;
foreach $cell(@line){
if ($cell_i < 2 ){
print "| ";
$cell=~ s/ /<\/td> | /;
$cell=~ s/ /<\/td> | /;
print $cell;
print " | ";
}elsif ($cell_i < 3){
print "
\n| | ";
$cell=~ s/ /<\/td> | /;
$cell=~ s/ /<\/td> | /;
print $cell;
print " | ";
}elsif ($cell_i < 4){
print "
\n| | ";
$cell=~ s/ /<\/td> | /;
print $cell;
print " | ";
}elsif ($cell_i < 5){
print "
\n| | ";
$cell=~ s/ /<\/td> | /;
print $cell;
print " | ";
}elsif ($cell_i < 6){
print "
\n| | ";
$cell=~ s/ /<\/td> | /;
print $cell;
print " | ";
}elsif ($cell_i < 7){
print "
\n| | ";
$cell=~ s/ /<\/td> | /;
print $cell;
print " | ";
}elsif ($cell_i < 8){
print "
\n| | ";
$cell=~ s/ /<\/td> | /;
print $cell;
print " | ";
}
$cell_i++;
}
print "
\n";
}
close(FP);
print << "EOF";
EOF