CLI(コマンドラインインタフェース)では便利そうなperl module

File::Spec と FindBin

File

:Spec:OSに依存しないファイル名を作成

FindBin

自分のスクリプトのディレクトリを取得

plスクリプトを起点としたdirに lib のpathを通したい場合、次のように書くことができます。

#!/usr/local/bin/perl

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin,"lib");

Term::Encoding

端末の文字エンコーディングを判別。

#!/usr/local/bin/perl

use Encode;
use Term::Encoding qw/term_encoding/;

my $RET_MSG = "メッセージ";

#端末にメッセージを返すなら
print encode(term_encoding,$RET_MSG);

#端末からメッセージを受け取るなら
my $inp_msg = decode(term_encoding, $ARGV[0] );