perl - Perlで、ファイルから^ Mを削除するにはどうすればよいですか？

Question

既存のCSVに新しいフィールドを追加するスクリプトがありますが^M、古い行の最後に文字が表示されているため、新しいフィールドは同じ行ではなく新しい行に表示されます。^MPerlを使用してCSVファイルから文字を削除するにはどうすればよいですか？

score 51 · Accepted Answer

^Mはキャリッジリターンです。あなたはこれを行うことができます：

$str =~ s/\r//g

score 27 · Accepted Answer

27

またはワンライナー：

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 3 · Accepted Answer

この 1 つのライナーは、すべての ^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 -1 · Accepted Answer

インビヒット:。

それからs/Control-VControl-M//g。

Control-V Control-M明らかにそれらのキーです。それを綴らないでください。

11 に答える 11