मैं Win32 पर पर्ल में सिर्फ एक यूनिक्स न्यूलाइन कैसे प्रिंट कर सकता हूं?

Question

डिफ़ॉल्ट रूप से, एक Win32 वातावरण में perl प्रिंट \ r \ n प्रिंट करता है। मैं इसे कैसे ओवरराइड कर सकता हूं? मैं एक स्रोत में कुछ स्रोत कोड में कुछ बदलाव करने के लिए perl का उपयोग कर रहा हूं, और मैं सभी नए अक्षरों को बदलना नहीं चाहता हूं।

मैंने आउटपुट रिकॉर्ड विभाजक बदलने की कोशिश की लेकिन बिना किसी किस्मत के।

धन्यवाद!

संपादित करें: एक कोड नमूना शामिल करने के लिए चाहता था - मैं एक खोज कर रहा हूँ और कुछ फ़ाइलों है कि इस तरह एक अपेक्षाकृत सरल पैटर्न का पालन अधिक बदल देते हैं:

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

use strict; 
use warnings; 

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

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

    } 
    print; 
} 

यह "से किसी उदाहरण बदलना चाहिए नमस्ते cmd लाइन पर पारित किसी भी फाइल के लिए "दुनिया" के साथ।

संपादित करें 2: रूप में किसी भी भाग्य शुरू में बिना सुझाव दिया मैं binmode की कोशिश की। मैंने कुछ और पाया और पाया कि $^I (इनस्थल विशेष चर संपादित करें) binmode ओवरराइड कर रहा था। अभी भी इनस्थल संपादन का उपयोग करने में सक्षम होने के लिए कोई भी काम?

संपादित करें 3: सिनान नीचे बताते हैं के रूप में, मैं अपने उदाहरण में $^I बजाय binmode STDOUT साथ binmode ARGVOUT उपयोग करने के लिए की जरूरत है। धन्यवाद।

Answer 1

है ASCII कोड मुद्रण "\n" विंडोज पर एक filehandle करने का उत्सर्जन करता है, डिफ़ॉल्ट रूप से, एक CARRIAGE RETURN ("\015") द्वारा पीछा किया है एक LINE FEED ("\012") चरित्र क्योंकि विंडोज पर मानक न्यूलाइन अनुक्रम।

यह पारदर्शी रूप से होता है, तो आप (perldoc perlvar देखें) विशेष filehandle ARGVOUT के लिए इसे ओवरराइड करने की जरूरत है:

#!/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

एक यूनिक्स न्यू लाइन एक linefeed चरित्र है, जो 10.

print "\012";

Answer 4

आपके द्वारा पढ़े जा रहे डेटा में लाइन अंत होते हैं, इसलिए आप उन्हें फिर से वापस ले रहे हैं।आप उन्हें, chomp के साथ खुद को बंद पट्टी कर सकते हैं तो अपने स्वयं के समाप्त होने के वापस जोड़ने के लिए, आप binmode की स्थापना की है, बशर्ते रूप सिनान का वर्णन करता है ::

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

Answer 5

पुन: binmode बारे में अपने प्रश्न खो दिया जा रहा है जब $^I खोलता है एक नया उत्पादन संभाल, आप open pragma के साथ इस का समाधान कर सकता: ': कच्चे' PerlIO परत (कोई तर्क के साथ binmode के बराबर) उन्हें लागू करने के लिए

use open OUT => ':raw'; 

जो सभी filehandles बाध्य करेगा करने के लिए लिखने के लिए खोला गया। यदि आप :crlf या आवश्यकतानुसार किसी भी अन्य परत को लागू करने के लिए अन्य खोलने के लिए कुछ भी ख्याल रखते हैं तो बस ध्यान रखें।