人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Perlで、以下に記述するようなロジックを書きたいのですが、自分で書くとゴチャゴチャしてしまいます。シンプルな書き方はあるでしょうか。

ロジック:
"01"、"02"、"03"、"04" を "05" に書き換える。
"06"、"07"、"08"、"09" を "10" に書き換える。
"11"、"12"、"13"、"14" を "15" に書き換える。
"16"、"17"、"18"、"19" を "20" に書き換える。
?省略?
"51"、"52"、"53"、"54" を "55" に書き換える。
"56"、"57"、"58"、"59" を "00" に書き換える。

●質問者: dedara
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:00 Perl シンプル ロジック 記述
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● b-wind
●100ポイント ベストアンサー
$num= "56";
$num =~ s/([0-5])([0-9])/((($1+($2>=6?1:0)))%6).($2>=1&&$2<=5?5:0)/e;
print "$num";

こんなとこかな。

◎質問者からの返答

ありがとうございます!

想定してたよりシンプルでした。

なんとか中身も理解できたので、そのまま使わせていただきます。

またよろしくお願いします。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ