このページに関してのお問い合わせはこちら
七行プログラミング
ツイート
877
:
デフォルトの名無しさん
:
02/04/07 21:39
#!/usr/bin/perl
open(A,"+<a.log");$a=<A>;++$a;seek(A,0,0);print A $a;
print"Content-type: text/html\n\n";print $a;exit;
もとが短いから