#!/usr/local/bin/perl require 'jcode.pl'; # コンテンツヘッダー書き出し print("Content-type: text/html\n\n"); print << "EOF"; 京王 EOF # print << "EOF"; EOF open(FP,"01.csv"); while(){ $i++; print ""; print ""; print "\n"; } close(FP); print << "EOF";
"; print "test+$i"; print $_; print "
EOF