encodings(":all");for (@list) { prin...">

0 Comments
 備忘録備忘録。。。
 自分のPerl実行環境で使えるエンコードの一覧を得るにはこうする。
#!/usr/bin/perl
use utf8; #-ソースがUTF8だという宣言
use Encode;
binmode STDOUT, ":encoding(utf8)"; #-画面に出力したい文字コード
binmode STDERR, ":encoding(utf8)"; #-エラー出力に使いたい文字コード
binmode STDIN, ":encoding(utf8)"; #-標準入力から入ってくる文字コード

@list = Encode->encodings(":all");
for (@list) {
print $_ . "\n";
}
exit;
ひらくん
Posted byひらくん

Comments - 0

There are no comments yet.

Leave a reply

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。