自作CGIを評価するスレ

自作CGIを評価するスレ (672ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

378: nobodyさん [sage] 03/06/24 15:40 ID:???

↓これでもこわれる？（CSVの処理はPerlメモ参考にしてます）
use strict;
use Fcntl qw(:flock);
$tmpfile = "$datafile".".$$.". time() .".csv";　　#万が一リネーム失敗したときのために、
　　　　　　　　　　#ユニークなファイル名にしておく

open (LOCKF, ">$datafile"."_lockf") or die("cannot open:$!");　　#ロックファイルを作成する
　　　　　　　　　　#（★注：ロックファイルは、各CSVごとにユニークに）
　　flock (LOCKF, LOCK_EX);　　#ロックファイルをflockする
　　open(IN, "< $datafile") or die("cannot open:$!"); # 読みのみモードで開く
　　　　open(TMP,"> $tmpfile"); #テンポラリファイルを作成
　　　　　　while ($line = <IN>){
　　　　　　　　$line .= <IN> while ($line =~ tr/"// % 2 and !eof(IN));
　　　　　　　　$line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
　　　　　　　　@values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_}
　　　　　　　　                ($line =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
　　　　　　　　#必要なものだけをEUCにして、出力時にSJISにする
　　　　　　　　foreach $value (@values){
　　　　　　　　　　&jcode::convert(\$value, "euc");
　　　　　　　　};
　　　　　　　　#CSV形式に変換
　　　　　　　　$newline = join ',', map {(s/"/""/g or /[\r\n,]/) ? qq("$_") : $_} @values;

print TMP "$newline\n" ;#テンポラリファイルに１レコード書き込み
　　　　　　}
　　　　close TMP;
　　close IN;
　　unlink $datafile;
　　rename ($tmpfile, $datafile) or die ("cannot rename : $!");
close LOCKF;

http://medaka.5ch.net/test/read.cgi/php/1049514428/378

上下前次 1-新書関写板覧索設栞歴

あと 294 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.007s