Jak mogę wydrukować pojedynczy znak nowej linii w Perlu na Win32?

Question

Domyślnie perl drukuje \ r \ nw środowisku win32. Jak mogę to zmienić? Używam perla, aby dokonać pewnych zmian w kodzie źródłowym w repozytorium i nie chcę zmieniać wszystkich znaków nowej linii.

Próbowałem zmienić separator rekordów wyjściowych, ale bez powodzenia.

Dzięki!

Edit: chcielibyście zawierać przykładowy kod - Robię wyszukiwania i zamiany na kilka plików, które następują stosunkowo prosty wzór takiego:

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

use strict; 
use warnings; 

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

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

    } 
    print; 
} 

ten powinien zastąpić wszystkie wystąpienia „cześć "with" world "dla wszystkich plików przekazywanych na linii cmd.

Edit 2: Próbowałem binmode jak sugeruje bez powodzenia początkowo. Zrobiłem jeszcze więcej i odkryłem, że $^I (zmienna specjalna w miejscu edycji) nadpisuje numer binmode. Jakieś prace, aby nadal móc korzystać z edycji w witrynie?

Edit 3: W Sinan zaznacza poniżej, musiałem użyć binmode ARGVOUT z $^I zamiast binmode STDOUT w moim przykładzie. Dzięki.

Answer 1

Druk "\n" do uchwytu pliku w systemie Windows emituje przez Domyślnie CARRIAGE RETURN ("\015"), a następnie przez LINE FEED ("\012") ponieważ jest to standardowa sekwencja nowej linii w systemie Windows.

Dzieje się tak przejrzysty, więc trzeba zastąpić go do specjalnego uchwytu pliku ARGVOUT (patrz perldoc perlvar):

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

use strict; use warnings; 

local ($\, $/); 

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

wyjściowa:

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

Zobacz również perldoc open, perldoc binmode i perldoc perliol (dzięki daotoad).

Answer 2

Czy działa binmode(STDOUT)?

Answer 3

uniksowy nowej linii jest znakiem końca wiersza, który jest kodem ASCII 10.

print "\012";

Answer 4

Dane, które czytasz, zawierają zakończenia linii, więc odzyskujesz je ponownie.Można je rozebrać się z chomp, następnie dodać własne zakończenie powrotem, o ile masz ustawione BINMODE jak opisuje Sinan ::

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

Answer 5

Re: zapytanie o BINMODE giną podczas $^I otwiera nowy uchwyt wyjściowego, można rozwiązać ten problem z open pragma:

use open OUT => ':raw'; 

który zmusi wszystkich uchwytów plików otwarty do pisania mieć „”: surowy warstwę perlio (odpowiednik binmode bez argumentów), aby zastosować się do nich. Po prostu zachowaj ostrożność, jeśli otwierasz coś, co jest inne niż dla wyniku, który zastosujesz :crlf lub dowolną inną warstwę w razie potrzeby.