トップページ
⇒
tech
1001コメント
361KB
Perlについての質問箱 36箱目
全部
前100
次100
最新50
■ このスレッドは過去ログ倉庫に格納されています
0205
デフォルトの名無しさん
2008/07/24(木) 19:28:28
>>169
$herpussy =~ s/((?>.{78}))(.)/ $2 =~ /[\x81-\x9f\xe0-\xfc]/ ? $1 . "\n" : $1 . $2 . "\n" /eg;
# 未テスト注意
全部
前100
次100
最新50
■ このスレッドは過去ログ倉庫に格納されています