ＷｉｎｄｏｗｓとＣｅｎｔＯＳで両用できるＰｅｒｌの書き方

ＷｉｎｄｏｗｓでＰｅｒｌを使おうとして（例えばＡｃｔｉｖｅＰｅｒｌ）、ブログとかのＬｉｎｕｘ下のＰｅｒｌスクリプトをコピペして爆死、原因を調べようにもＷｉｎｄｏｗｓ下との違いを書いたブログなどを見つけられずに玉砕されている人達が結構いらっしゃるようなので。

今時のＰｅｒｌなら、スクリプトの頭はこんな感じですよね。 ファイルの文字コードはＢＯＭなしのＵＴＦ－８です。 改行コードは愛用のエディタに合わせておけば良いと思います。 私はＶｉｍを使っているので設定次第ですからＬｉｎｕｘ風に０ｘ０ａにしています。 なおメモ帳で開くと改行してくれません（笑）。

#!/usr/local/bin/perl -w

use utf8;
use strict;
use warnings;
use Encode;

実行時の環境に合わせ、端末とプログラムの文字コードを変換してくれます。 ちなみにプログラムが扱う文字コードは「謎の文字コードＸ」だと思ってください。 ブログとか知恵袋で「Ｐｅｒｌの内部はＵＴＦ－８」などと言うのを真に受けると爆死します（笑）。 2018-07-17 encodeをencodingに修正しました。 2019-02-21 ソースファイルのパスに漢字があるとフリーズするケースがあるので「binmode STDERR, ":encoding(console_out)";」を削除しました。

use Encode::Locale;
binmode STDIN, ":encoding(console_in)";
binmode STDOUT, ":encoding(console_out)";

引数も環境に合わせて変換してくれます。

use Encode::Argv;

文字コードをＵＴＦ－８で統一します。 あれ、改行コードどうだっけ？

use open IO => ":utf8";

Ｗｉｎｄｏｗｓ下のＰｅｒｌはファイル名の文字コードをｃｐ９３２（マイクロソフトのシフトＪＩＳっぽい奴）で扱います。 ＵＮＩＣＯＤＥにしかない漢字を使ったファイル名を開けません。

my $filename = "漢字入りファイル名.txt";
if (open my $fh, ">", Encode::encode locale_fs => $filename) {
	print $fh "ファイルの中に\n";
	print $fh "漢字が入るよ♪\n";
	close $fh;
}