perl 日本語パターンマッチ

Question

前提

日本語ファイルをデータベースに格納する為
strawberry perl でコンバーターを作成しています。

実現したいこと

都道府県ごとにファイルを分割するのが目的です。
読み込んだファイルの住所のフィールドが●●で始まっていたら、出力ファイルへ、が希望する動作です。

発生している問題・エラーメッセージ

マッチするはずの東京都のレコードはスルーされ
出力されないまま終了します。
elseでprintすると全読み込み行が出力されます。

該当のソースコード

#!/usr/bin/perl

use utf8;
#binmode STDIN, ':encoding(cp932)';
#binmode STDOUT, ':encoding(cp932)';
#binmode STDERR, ':encoding(cp932)';
#binmode STDIN, ':utf-8';
#binmode STDOUT, ':utf-8';
#binmode STDERR, ':utf-8';
use Encode qw/encode/;

our $file = 'data.csv';
#our $rslt = 'c:\Strawberry\data_tokyo.csv';

読み込みファイル

open(our $in, "<", $file) or die "Cannot open input: $file: $!";

書き出しファイル

#open(our $out, ">", $rslt) or die "Cannot open output: $rslt: $!";
while(our $str = readline $in){
chomp $str;
$str = encode('utf8', $str);
#$str = decode('utf-8', $str);
our ($pref) = (split(/,/, $str))[8];
if($pref =~ /^東京/){
# Encode::from_to( $str, 'utf-8', 'sjis' );
print "$str\n";
}
}

close $in or die qw/Can't close file "$in": $!/;
#close $out or die qw/Can't close file "$out": $!/;

exit;

試したこと

perlスクリプトはutf8 読み込みファイルはshift-jisです
日本語の判定に失敗しているので苦手な文字コード云々か、とネット上の
サンプルを色々試した残骸がコメントアウト部分です

Comments

[yuma.inaura]

コード部分はコードブロックで囲うと読みやすくなりますよ

Answer 1

解答いただいた皆様、ありがとうございます。長い間返答もつけず大変失礼いたしました。質問当時の不慣れな開発環境(Windows)から間もなくLinux環境に代わり自己解決しております。

Answer 2

関連性の高い質問について過去に回答しています。
perl jsonで日本語文字化け
ここをみて原則通りにやってみてください。
現状では、入力データのデコード、出力データのエンコード、ともにできていないでしょう。あらゆる処理はデコードされたデータに対してしか試みてはいけません。

最低限のコードを書いておきます。

• データは読み込むと同時にデコードする。
• データは書き込む寸前にエンコードする。
• いま扱おうとしているデータがデコードされているのか居ないのか常に意識する。
• あらゆる処理はデコードされたデータについてのみ行う。
• あやふやな認識のまま試行錯誤をしない。
• 巷にあふれるいい加減な解説は信用しない。

use strict;
use warnings;
use utf8;

open(my $fhi, '<encoding(cp932)', "input.sjis.txt") or die; # 読み込みながらdecode
open(my $fho, '>:utf8', "output.utf8.out"); # 書き出す時にencode
while(<$fhi>){
  /東京/ and print {$fho} $_;
}