以前にもLeetSpeakへの変換を行うコマンド『leetpass』を触ったことがあったが、Perlにも同様の事ができるライブラリ『Acme::LeetSpeak』があったので、これを使って標準入力からLeetSpeakを取得してみる。 まず、以下のコマンドでライブラリの導入をする。

cpan Acme/LeetSpeak.pm

ライブラリの導入後は、以下のようにperlを実行することで指定した文字列からLeetSpeakに変換してくれる。

echo Strings | perl -lne 'use Acme::LeetSpeak;print(leet($_))'

[root@BS-PUB-CENT7-01 ~]# echo Strings | perl -lne 'use Acme::LeetSpeak;print(leet($_))'
StR1/\/95
[root@BS-PUB-CENT7-01 ~]# yes "echo Strings | perl -lne 'use Acme::LeetSpeak;print(leet(\$_))'" | head -15 | sh
S+rI[\]gs
S+rI[\]GS
S+R!|\|95
StR1[\]9S
$7r1n95
S+R!N9s
$tRiN9$
S7RIN95
S+rIN95
StR!nG5
S+R!|\|GS
$Tr!/\/Gs
5TrI|\|g5
$+Ri|\|95
S7RIn9s