tr/// 用オプション /d

検索リストに対して置換リストが少ない時（検索リストの文字に対応する文字がない時）、リストの最後の文字が使われる、という事は昨日勉強しました。
「/d」オプションを付けると、対応する文字が見つからない時は「削除」されます。

use strict;
 
my $text = "There's more than one way to do it.";
print "$text\n";
 
$text =~ tr/hr/*/d;
print "$text\n";
 
$text =~ tr/oe//cd;
print "$text\n";

最初の変換では、"h"が"*"に置き換えられ、"r"は削除されます。
次の変換では、「/c」オプションを合わせて指定しているので"o"と"e"以外の全ての文字が削除されます。
実行すると以下のようになります。

There's more than one way to do it.
T*ee's moe t*an one way to do it.
eeoeoeoo

これは簡単ですね。(^_^)