В Perl, как удалить^M из файла?

Question

У меня есть сценарий, который добавляет новые поля к существующему CSV, однако в конце старых строк появляются символы ^M, поэтому новые поля заканчиваются новой строкой, а не той же. Как удалить ^M символов из файла CSV с помощью Perl?

Answer 1

Вы узнали, что можете o сделать это:

$line=~ tr/\015//d; 

Answer 2

^M - возврат перевозки. Вы можете сделать это:

$str =~ s/\r//g 

Answer 3

Чтобы преобразовать DOS стиль UNIX стиль окончаниях строк:

for ($line in <FILEHANDLE>) { 
    $line =~ s/\r\n$/\n/; 
} 

Или, чтобы удалить UNIX и/или DOS стиль строки окончаний:

for ($line in <FILEHANDLE>) { 
    $line =~ s/\r?\n$//; 
} 

Answer 4

Or a 1-футовый:

perl -p -i -e 's/\r\n$/\n/g' file1.txt file2.txt ... filen.txt 

Answer 5

В vi hit :.

Then s/Control-VControl-M//g.

Control-VControl-M, очевидно, эти ключи. Не повторяйте это.

Answer 6

Слегка связаны между собой, но удалить^M из командной строки с помощью Perl, выполните следующие действия:

perl -p -i -e "s/\r\n/\n/g" file.name 

Answer 7

Это один вкладыш заменяет все^символы M:

dos2unix <file-name> 

Вы можете вызвать эту изнутри Perl или непосредственно в приглашении Unix.

Answer 8

Я предпочитаю более общее решение, которое будет работать с входами DOS или Unix. Предполагая, что вход от STDIN:

while (defined(my $ln = <>)) 
    { 
    chomp($ln); 
    chop($ln) if ($ln =~ m/\r$/); 

    # filter and write 
    } 

Answer 9

Это то, что решило мою проблему.^M - возврат каретки, и его можно легко избежать в сценарии Perl.

while(<INPUTFILE>) 
{ 
    chomp; 
    chop($_) if ($_ =~ m/\r$/); 
} 

Answer 10

Маленький сценарий, который у меня есть для этого. Модификация его помогла отфильтровать некоторые другие непечатаемые символы в кросс-платформенных устаревших файлах.

#!/usr/bin/perl 
# run this as 
# convert_dos2unix.pl <input_file> output_file 
undef $/; 
$_ = <>; 
s/\r//ge; 
print;