Làm thế nào tôi có thể in chỉ một dòng mới unix trong Perl trên Win32?

Question

Theo mặc định, in perl \ r \ n trong môi trường win32. Làm thế nào tôi có thể ghi đè lên điều này? Tôi đang sử dụng perl để thực hiện một số thay đổi đối với một số mã nguồn trong một kho lưu trữ, và tôi không muốn thay đổi tất cả các ký tự dòng mới.

Tôi đã thử thay đổi dấu phân tách bản ghi đầu ra nhưng không có may mắn.

Cảm ơn!

Edit: Wanted để bao gồm một mẫu mã - Tôi đang làm một tìm kiếm và thay thế trong một số tác phẩm mà theo một mô hình tương đối đơn giản như thế này:

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

use strict; 
use warnings; 

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

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

    } 
    print; 
} 

này nên thay thế bất kỳ trường hợp của "hello "với" thế giới "cho bất kỳ tệp nào được truyền trên dòng cmd.

Chỉnh sửa 2: Tôi đã thử các binmode như đề xuất mà không cần bất kỳ may mắn ban đầu. Tôi đã nghiên cứu thêm một chút và thấy rằng $^I (biến đặc biệt chỉnh sửa tại chỗ) đã ghi đè binmode. Bất kỳ công việc xung quanh để vẫn có thể sử dụng chỉnh sửa tại chỗ?

Sửa 3: Như Sinan chỉ ra dưới đây, tôi cần thiết để sử dụng binmode ARGVOUT với $^I thay vì binmode STDOUT trong ví dụ của tôi. Cảm ơn.

Answer 1

In ấn "\n" đến một filehandle trên Windows phát ra, theo mặc định, một CARRIAGE RETURN ("\015") tiếp theo là một LINE FEED ("\012") ký tự vì chuỗi tiêu chuẩn mới trên Windows.

Điều này xảy ra một cách minh bạch, vì vậy bạn cần phải ghi đè nó cho filehandle đặc biệt ARGVOUT (xem perldoc perlvar):

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

use strict; use warnings; 

local ($\, $/); 

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

Output:

 
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.. 

Xem thêm perldoc open, perldoc binmode và perldoc perliol (nhờ daotoad).

Answer 2

Có binmode(STDOUT) hoạt động không?

Answer 3

Một unix xuống dòng là một nhân vật linefeed, đó là mã ASCII 10.

print "\012";

Answer 4

Dữ liệu bạn đang đọc có chứa kết thúc dòng, vì vậy bạn sẽ đưa chúng trở lại.Bạn có thể lột chúng mình với chomp, sau đó thêm kết thúc của riêng bạn trở lại, với điều kiện bạn đã thiết lập binmode như Sinan mô tả ::

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

Answer 5

Re: câu hỏi của bạn về binmode bị mất khi $^I mở ra một xử lý đầu ra mới, bạn có thể giải quyết việc này với open pragma:

use open OUT => ':raw'; 

mà sẽ buộc tất cả filehandles mở cho các văn bản để có ': thô' PerlIO lớp (tương đương với binmode không có đối số) để áp dụng cho họ. Chỉ cần cẩn thận nếu bạn đang mở bất kỳ thứ gì khác cho đầu ra mà bạn áp dụng :crlf hoặc bất kỳ lớp nào khác nếu cần.