Perlについての質問箱 37箱目

Perlについての質問箱 37箱目 at TECH

326:デフォルトの名無しさん
08/08/25 20:47:39
>>299

$str=~ s/([①-⑳])/($1)/g;
$str=~ s/([①-⑳])/ord($1)-ord('①') + 1/eg;
$str=~ s/Ⅰ-Ⅹ/ord($1)-ord('Ⅰ') + 1/eg;

>>318
$data=~ s/(\d*)(\d)/$1 * 10 + (($2 < 5) ? 0 : 10)/e;

次ページ

続きを表示

1を表示