ファイルに書き込むときに奇妙に表示されるキリル記号

Question

私には、UTF-8文字を含む文字列フィールドinputを持つクラスがあります。私のクラスもメソッドtoStringを持っています。私はクラスのインスタンスをメソッドtoStringを使ってファイルに保存したいと思います。問題は奇妙なシンボルがファイルに書き込まれているということです。

my $dest = "output.txt"; 

print "\nBefore saving to file\n" . $message->toString() . "\n"; 

open (my $fh, '>>:encoding(UTF-8)', $dest) 
    or die "Cannot open $dest : $!"; 

lock($fh); 
print $fh $message->toString(); 
unlock($fh); 
close $fh;  

最初の印刷が正常に動作します

Input: {"paramkey":"message","paramvalue":"здравейте"} 

は、コンソールに出力されています。私は、ファイルに書き込むときに問題がある：

Input: {"paramkey":"message","paramvalue":"здÑавейÑе"} 

私は、ファイルのロックを解除/ロックするためflockを使用しました。

Answer 1

toStringメソッドによって返された文字列の内容は、すでにUTF-8でエンコードされています。 UTF-8データを期待しているので、端末に印刷するとうまく動作します。しかし、あなたは

open (my $fh, '>>:encoding(UTF-8)', $dest) or die "Cannot open $dest : $!" 

を使用して出力ファイルを開いたときにPerlが再エンコードUTF-8などデータ必要があることを求めています。これはUTF-8でエンコードされたデータの各バイトを別々のUTF-8シーケンスに変換します。これはあなたが望むものではありません。残念ながら、あなたは$messageが属するクラスのコードを表示しないので、私はあなただけ

open (my $fh, '>>', $dest) or die "Cannot open $dest : $!" 

にごopenの呼び出しを変更することで回避できますどのことを修正することができ、この

であなたを助けることができません付加的な符号化ステップ。しかし、実際には、Perlコード全体で、エンコードされていない文字で作業する必要があります。読み込み中のファイルからエンコーディングを取り除き、出力ファイルに書き込むときに必要に応じて出力データをエンコードします。

Answer 2

私はこのコードは、あなたが期待してい "output.txtと" ファイル生成

...あなたのコードで
use utf8;
を逃したとします

私は toString()メソッドを使用していませんでした

#!/usr/bin/perl 
use strict; 
use utf8; 

my $dest = "output.txt"; 
my $message = "здравейте"; 

print "\nBefore saving to file\n" . $message . "\n"; 

open (my $fh, '>>:encoding(UTF-8)', $dest) 
    or die "Cannot open $dest : $!"; 

lock($fh); 
print $fh $message; 
close $fh; 

を実際のオブジェクトではなくネイティブの文字列に取り組んでいるので、これは物質を変更しません...

Answer 3

toString方法の作業？あなたが提供した出力に基づいて、toStringメソッドが文字の代わりにバイトを生成していて、それを変換しようとすると、perlが混乱していると思います。

お試し前にbinmode STDOUT, ':encoding(UTF-8)'を試してください。ファイルと同じ出力が生成されているかどうかを確認してください。そうでない場合、テストはリンゴとオレンジです。

すでに文字ではなくバイトであれば、$destを開くことができます。encoding(...)レイヤーがなくても動作します。

一般的に、私はバイト単位で文字を扱うのはかなり苦痛だと思っていますが、それ以上考える必要はないコーナーケースを解決するので、余分な作業はそれに値するものですが、余分な作業です。