- 524 名前：デフォルトの名無しさん mailto:sage [2012/02/10(金) 19:21:08.17 ]
- >>521
open (my $FH, '<', "./test.sjis");
my @test;
while (<$FH>) {
chomp;
push @test, decode('shiftjis', $_);
}
close $FH;
for my $v (@test) {
print encode_utf8($v). "\n";
}
これで警告なくうまく出力されるけど？
