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

Question

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

Answer 1

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

$str =~ s/\r//g

Answer 2

или 1 вкладыш:

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

Answer 3

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

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

Answer 4

Немного не связано, но чтобы удалить ^ M из командной строки, используя Perl, сделайте это:

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

Answer 5

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

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

    # filter and write
  }

Answer 6

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

dos2unix <file-name>

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

Answer 7

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

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

Answer 8

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

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

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

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

Answer 9

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

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

Answer 10

В ви хит :.

Тогда s/Control-VControl-M//g.

Control-V Control-M, очевидно, эти ключи. Не разъясняй это.