Perl разбор вставки новой строки и^М

Question

я пытаюсь изменить несколько строк в файл с помощью Perl, используя приведенную ниже логику ..

open FILE1, "< /tmp/sam.dsl" //In read mode 
open FILE2, "> /tmp/sam2.dsl" // Open in write mode 

while(<FILE1>) 
if($_=s/string/found/g) 
push FILE2, $_... 

Я могу изменить содержание, однако, когда я читал файл имеет^M в нем ..

мой файл данных в формате ниже

name 'SAMPLE' 

я хотел бы изменить это

name 'SAMPLE2' 

в настоящее время с моим кодом она меняется

name 'SAMPLE2 
' 

, который создает новую строку, а затем делает замену.

Нужно ли мне использовать любой режим, чтобы открыть файл для записи ..?

Answer 1

Я предполагаю, что вы работаете с файлом linux на некоторых окнах. Perl автоматически преобразует \n в \r\n на совместимые с dos машины после чтения и перед записью. Чтобы избавиться от этого поведения, вы можете использовать binmode <FILE> в ваших дескрипторах файлов, но он устанавливает ваш дескриптор файла в «сырой двоичный режим». Если вы хотите использовать некоторые другие слои (например, :utf8 или :encoding(utf-8)), они не включены, и вы можете настроить их самостоятельно, если вы обрабатываете символьные данные. Вы также можете использовать модуль PerlIO::eol от CPAN.

Рассмотрим глядя на этих страницах документации:

• PerlIO для общего понимания как работает Perl-IO.
• open прагма (не функция) для установки слоев для одной программы.
• binmode функция, которую вы, возможно, захотите рассмотреть.

Мое предложение, но я не могу проверить его (не Windows, вокруг), будет использовать следующее:

open my $outfile, '<:encoding(utf-8)', "filename" or die "error opening: $!"; 
binmode $outfile, join '', grep {$_ ne ':crlf'} PerlIO::get_layers($outfile) 
    or die "error setting output:\n $!" 

while(<$infile>){ 
    s/match/replacement/g; 
    print $outfile $_; 
}