ちょっとしたスクリプトをPerlで書いてて、 $hogeが文字列aのときは文字列a'を返す $hogeが文字列bのときは文字列b'を返す <略> $hogeがどれにもマッチしない場合はhogeを返すみたいなよくある処理をする必要が出てきて、見やすいからという理由で use Switc…

と言ってもCPANに上がってるモジュール使うだけ。CPANバンザイ。 $ cpanm String::MkPasswd8文字のパスワードを10個生成 $ perl -MString::MkPasswd -le 'print String::MkPasswd::mkpasswd(-length=>8) for (1..10);' s0Hg7N"g Cy7*pp9C ;k1Wj3Nr 2MiHm:o5 …