- 138 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 11:16:23.49 ID:u9qpXxTe.net]
- >>135
正規表現で置換
とか知らない人が聞いたらアレだもんなｗ
>>133
正にその世代だけど
昔のperlは正規表現抜きでも変態記法満載だったから
だんだん昔のコードは読めない人が増えてきてる
$line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
@values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_}
10年ぐらい前のメモからのコピペだけど見ただけで目眩がするｗ
