Perlのハッシュキーは、改行直後にのみ印刷されます

Question

多分私は愚かですが、これは意味がありません...私は多数のファイルから一意のコードとエラーコードを読み取ってハッシュを構築しています。キー=値のペアを出力しようとすると、改行が直後になければキーは表示されません。ここで

はコードです：

foreach my $key (keys %codehash){ 
    print "Key: $key\tValue: $codehash{$key}\n"; 
    print "Key: $key\n"; 
    print "Value: $codehash{$key}\n"; 
    print "\n\n"; 
} 

は、ここで出力です：最初の文からプレーンテキスト、ちょうどタブ以降：それも「キー」を印刷していないことを

  Value: NoParamSpecified 
    Key: 016C 
    Value: NoParamSpecified 


     Value: billingAddress.firstName.lengthLong 
    Key: 003M 
    Value: billingAddress.firstName.lengthLong 


     Value: billingAddress.address1.lengthLong 
    Key: 0041 
    Value: billingAddress.address1.lengthLong 

お知らせ。私は以前これを見たことがない。

Answer 1

この動作は、末尾に"\r"を含むすべてのキーと一致しています。 16進ダンプがこれを確認します。

それをプリントアウトする前に、キーの上に、適切な正規表現置換を実行することですこれを確認する別の方法：

$key =~ s/\s+$//; 

Answer 2

私は、データに書式設定文字が含まれていて、そのデータをキーデータに含めるというデータを読み込んでいるために賭けています（書式設定文字が「戻る」線の始まりなど）。

この問題を回避するには、base64または16進数でキーを印刷してみてください。それはあなたが思っていたよりずっと長い文字列であることがわかります。

use MIME::Base64; 
# ... 
print "Key: " . encode_base64($key) . "\tValue: $codehash{$key}\n"; 

Answer 3

これは端末I/Oの一部です。これは、行末にのみ印刷されます。それはすべてのprint文の後に印刷するように取得するには、出力自動フラッシュを設定します。

foreach my $key (keys %codehash){ 
    local $| = 1; 
    print "Key: $key\tValue: $codehash{$key}\n"; 
    print "Key: $key\n"; 
    print "Value: $codehash{$key}\n"; 
    print "\n\n"; 
} 

はperldoc perlvarを参照してください/ OUTPUT_AUTOFLUSHの/を検索します。