Perlについての質問箱 37箱目at TECHPerlについての質問箱 37箱目 - 暇つぶし2ch327:デフォルトの名無しさん 08/08/25 21:02:28 >>326 $str=~ s/([①-⑳])/'(' . (ord($1)-ord('①') + 1) . ')'/eg; でいい気がするんだが 次ページ続きを表示1を表示最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch