#!/usr/local/bin/perl
use strict;
use warnings;
use utf8;
use open ":utf8";
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
print "\n";
print "
\n";
print "CGI test\n";
print "\n";
print "\n";
print "------------------
\n";
open(DATAFILE, "+>>", "data_rw_file0.txt")
or die("Error:$!");
print DATAFILE "加藤 みち子\n";
print DATAFILE "東京都新宿区\n";
print DATAFILE "女性\n";
#ポインタは書き込み終了位置にある。
seek(DATAFILE, 0, 0); # ポインタを先頭へ移動 無いと、全てのデータが表示されない。
while(my $line = ){
#chomp($line);
print "$line
\n";
}
close(DATAFILE);
print "------------------
\n";
print "\n";
print "\n";