Perlでリクに答えるスクリプトを作るスレat TECHPerlでリクに答えるスクリプトを作るスレ - 暇つぶし2ch528:525 06/03/17 23:51:02 >>526 >>527 こんな感じで書いてみました。 while(<>) { tr/[0-9]/[0-9]/; s/(¥D)1(¥D)/$11$2/g; (中略) s/(\D)9(\D)/$19$2/g; print; } ただ、これだと2回同じ処理をしないといけないですよね。 最初の処理でtr行、次の処理でs行になるんでしょうか。 これを効率よく1回の処理ですませたいのですが、いいやり方をご存知ないですか? 次ページ続きを表示1を表示最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch