Perlの”Acme::LeetSpeak”を使ってLeetSpeakに変換した文字列を取得する

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

cpan Acme/LeetSpeak.pm
Sponsored Links

ライブラリの導入後は、以下のように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

 


Written by blacknon

インフラ系のSE。一時期はプログラマ。 仮想化とオープンソースに興味あり。一日中寝てたい今日このごろ。 スペインとかで働きたいなぁ…(シエスタがあるので)

Leave a Comment

メールアドレスが公開されることはありません。

*