Perl - mattn( @mattn_jp )さんのツイートより - One-LinersといえばPerl？ - List::Utilモジュール、shuffle関数

初めてのPerl 第7版
原著
楽天ブックス Yahoo!

開発環境

• macOS Catalina - Apple (OS)
• Emacs (Text Editor)
• Windows 10 Pro (OS)
• Strawberry Perl (WindowsのPerlの言語処理系)
• Visual Studio Code (Text Editor)
• Perl 5.28 (プログラミング言語)

ヌジョレーボーボー、Go で少し短くできるな。https://t.co/I3icVPtUOW

— mattn (@mattn_jp) November 23, 2019

について、Pythonで書いたコードの最後のOne-Linerについて、One-LinersといえばPerlかなぁと思ってPerlでもコードを書いて実行してみた。

入出力結果(Zsh、cmd.exe(コマンドプロンプト)、Terminal)

% perl -w -MList::Util=shuffle -e 'printf "%s%s%s-%s-%s-\n", shuffle qw(ボ ジョ レ ヌ ボ);'
ジョヌボ-ボ-レ-
% perl -w -MList::Util=shuffle -e 'printf "%s%s%s-%s-%s-\n", shuffle qw(ボ ジョ レ ヌ ボ);'
ボヌボ-ジョ-レ-
% perl -w -MList::Util=shuffle -e 'printf "%s%s%s-%s-%s-\n", shuffle qw(ボ ジョ レ ヌ ボ);'
ボヌボ-レ-ジョ-
% perl -w -MList::Util=shuffle -e 'printf "%s%s%s-%s-%s-\n", shuffle qw(ボ ジョ レ ヌ ボ);'
ボジョレ-ヌ-ボ-
% perl -w -MList::Util=shuffle -e 'printf "%s%s%s-%s-%s-\n", shuffle qw(ボ ジョ レ ヌ ボ);'
ボヌボ-ジョ-レ-
% 

Pythonのと比べてだいぶ簡単で短くなった気がする。