Windows環境でShift_JISなファイル名をPath::Class使って問題なく操作する方法 - Unknown::Programming

ちょっとした野暮プログラムで、あるフォルダのファイル名の抽出を行おうと思ったんだ。 ほんと軽い気持ちで、そう軽い気持ちでちょこちょこっとさ。 use Path::Class; use Perl6::Say; for my $file ( dir('./hoge')->children ) { say $file->basename; } こんなのね。すごいシンプル。ちょうシンプル。コレでhogeフォルダ以下のファイルを取得できるのね。 で、動かしてみたの。もちろん云わずもかなWindows環境ね。Windows環境。 するとね。うまくファイル名が抽出できなかったのさ。 そう、よくあることだ。Shift_JISだよShift_JIS。Shift_JISのせいなんだ。ファイル名にShift_JISが含まれてるの。 Shift_JISの「予」や「表」とかの文字コードは2バイト目がバックスラッシュ

[kkobayashi]

むーん。黒い