perl - 在 Perl 中，如何从文件中删除 ^M？

Question

我有一个将新字段附加到现有 CSV 的脚本，但是^M字符出现在旧行的末尾，因此新字段最终出现在新行而不是同一行上。如何^M使用 Perl 从 CSV 文件中删除字符？

score 51 · Accepted Answer

51

^M 是回车。你可以这样做：

$str =~ s/\r//g

于 2009-03-16T14:51:33.377 回答

score 27 · Accepted Answer

27

或 1 线：

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

于 2009-03-16T16:36:04.203 回答

score 15 · Accepted Answer

15

你发现你也可以这样做：

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

于 2009-03-16T17:36:39.533 回答

score 8 · Accepted Answer

有点不相关，但要使用 Perl 从命令行中删除 ^M，请执行以下操作：

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

score 6 · Accepted Answer

我更喜欢使用 DOS 或 Unix 输入的更通用的解决方案。假设输入来自 STDIN：

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

    # filter and write
  }

score 3 · Accepted Answer

这一行替换了所有 ^M 字符：

dos2unix <file-name>

您可以从 Perl 内部或直接在 Unix 提示符下调用它。

score 2 · Accepted Answer

要将 DOS 样式转换为 UNIX 样式的行尾：

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

或者，要删除 UNIX 和/或 DOS 样式的行尾：

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

score 1 · Accepted Answer

这就是解决我的问题的方法。^M 是一个回车，在 Perl 脚本中可以很容易地避免它。

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

score 0 · Accepted Answer

我有这个小脚本。对其进行修改有助于过滤掉跨平台遗留文件中的一些其他不可打印字符。

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

score 0 · Accepted Answer

perl 命令将 dos 行结尾转换为以原始文件备份结尾的 unix 行：

perl -pi.bak -e 's/\r\n/\n/g' filename

此命令生成带有 unix 行结尾的文件名，并将原始文件保留为 filename.bak。

score -1 · Accepted Answer

在 vi 中命中:。

然后s/Control-VControl-M//g。

Control-V Control-M显然是那些钥匙。不要拼出来。

11 回答 11