In Perl, come rimuovere^M da un file?

Question

Ho uno script che aggiunge nuovi campi a un file CSV esistente, tuttavia i caratteri ^M vengono visualizzati alla fine delle vecchie righe in modo che i nuovi campi finiscano in una nuova riga anziché nella stessa. Come rimuovere i caratteri ^M da un file CSV utilizzando Perl?

Answer 1

Hai scoperto che puoi o fare questo:

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

Answer 2

^M è il ritorno a capo. Si può fare questo:

$str =~ s/\r//g 

Answer 3

Per convertire in stile DOS a Unix fine riga stile:

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

Oppure, per rimuovere UNIX e/o DOS fine riga stile:

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

Answer 4

Or 1-liner:

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

Answer 5

In vi hit :.

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

Control-VControl-M sono ovviamente quelle chiavi. Non spiegarlo

Answer 6

Un po 'estranei, ma per rimuovere^M dalla riga di comando utilizzando Perl, fare questo:

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

Answer 7

Questo uno di linea sostituisce tutte le^caratteri M:

dos2unix <file-name> 

è possibile chiamare questo dall'interno di Perl o direttamente dal tuo prompt Unix.

Answer 8

Preferisco una soluzione più generale che funzioni con input DOS o Unix. Supponendo che l'ingresso è da STDIN:

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

    # filter and write 
    } 

Answer 9

Questo è ciò che ha risolto il mio problema.^M è un ritorno a capo e può essere facilmente evitato in uno script Perl.

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

Answer 10

Piccola sceneggiatura che ho per quello. Una modifica ha contribuito a filtrare alcuni altri caratteri non stampabili nei file legacy multipiattaforma.

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