Win32上のPerlでunix改行だけを印刷するにはどうしたらいいですか？

Question

デフォルトでは、perlは\ r \ nをwin32環境で印刷します。これをどのように無効にすることができますか？私はperlを使ってリポジトリのいくつかのソースコードを変更していますが、改行文字をすべて変更したくありません。

私は出力レコードの区切り文字を変更しようとしましたが運がありませんでした。

ありがとうございます！

編集：はコードサンプルが含まれるように募集 - 私は、検索をやっていると、このような比較的簡単なパターンに従ってくださいいくつかのファイルの上に置き換える：

#!/usr/bin/perl 
# test.pl 

use strict; 
use warnings; 

$/ = undef; 
$\ = "\n"; 
$^I=".old~"; 

while (<>) { 
    while (s/hello/world/) { 

    } 
    print; 
} 

をこれはハロー」のすべてのインスタンスを置き換える必要があります"cmd"行に渡されたファイルに対して "world"を指定します。

編集2：私は運当初ずに提案されているようbinmodeを試してみました。私は少し掘り下げて、（インプレース編集の特別な変数）がbinmodeを無効にしていたことを発見しました。インプレイス編集を使用できるようにするにはどうすればよいですか？

編集3：シナンは、以下の指摘するように、私は私の例では$^I代わりのbinmode STDOUTでbinmode ARGVOUTを使用する必要がありました。ありがとう。

Answer 1

は、デフォルトでは、放出され、CARRIAGE RETURN（"\015"は）LINE FEED続く（"\012" ）文字はWindows上の標準改行シーケンスのためです。

あなたは特別なファイルハンドルARGVOUTのためにそれをオーバーライドする必要があるので、これは（perldoc perlvarを参照）、透過的に行わ：

#!/usr/bin/perl -i.bak 

use strict; use warnings; 

local ($\, $/); 

while (<>) { 
    binmode ARGVOUT; 
    print; 
} 

出力：

 
C:\Temp> xxd test.txt 
0000000: 7465 7374 0d0a 0d0a      test.... 

C:\Temp> h test.txt 

C:\Temp> xxd test.txt 
0000000: 7465 7374 0a0a       test.. 

は（perldoc open、perldoc binmodeとperldoc perliolも感謝を参照してください。daotoad ）。

Answer 2

binmode(STDOUT)は機能しますか？

Answer 3

A、UNIXの改行は、Windows上のファイルハンドルに"\n"を印刷するASCIIコードである改行文字、10

print "\012";

Answer 4

あなたが読んでいるデータには行末が含まれているため、それらを再び取り戻しています。その後、シナンが説明として、あなたがのbinmodeを設定していて、戻ってあなた自身のエンディングを追加し、chompを自分でそれらを取り除くことができます::

while (<>) { 
    binmode; 
    chomp;  # strip off \r\n 
    while (s/search/replace/) { 
     # ... 
    } 
    print; 
    print "\n"; # add your own line ending back 
} 

Answer 5

日時：$^Iは新しい出力ハンドルを開いたときに失われているのbinmodeに関するご質問、

use open OUT => ':raw'; 

すべてのファイルハンドルを持つように書き込み用に開か強制します：それらに適用するためにはPerlIO層（引数なしでbinmodeに相当）「：生」を、あなたはopenプラグマでこれを解決することができます。 :crlfまたは必要に応じてその他のレイヤーを適用する場合は、、それ以外の場合はのいずれかを開く場合は注意してください。