ＣＧＩだけど、なんか質問ある？Part 5

[0740 名無しさん＠お腹いっぱい。 02/02/20 07:59 ID:???]

>>739
#! /usr/local/bin/perl

open(DATA,"dat");
$count = <DATA>;
close(DATA);

open(DATA,">dat");
print DATA $count++;
close(DATA);

print "CONTENT-TYPE:text/plain\r\n\r\n$count";