- 239 名前：nobodyさん mailto:sage [03/09/17 14:34 ID:???]
- #print "Content-type:text/html\n\n";
$datafile = "../random/data/text.txt";
$lockfile = "../random/data/txtlck.dat";
if(! -f $datafile){
open(OUT,">$datafile");
close(OUT);
}
if(!open(IN,"$datafile")){unlink $lockfile; print 'ファイルOPENエラー',"\n"; exit;}
@line = <IN>;
close(IN);
$max = @line;
srand(time ^ ($$ + ($$ << 15)));
$cnt = int(rand($max));
($ct,$date,$midashi,$txt) = split(/<>/,$line[$cnt]);
$ct++;
chomp $color;
$line[$cnt] = "$ct<>$date<>$midashi<>$txt";
if(!open(OUT,">$datafile")){unlink $lockfile; print 'ファイル書きこみエラー',"\n"; exit;}
print OUT @line;
close(OUT);
unlink $lockfile;
$text = "$midashi<p>";
1;
これをPHPにして下さい。よろしくお願いします。
|
 |
