En Perl, comment faire pour supprimer les ^M à partir d'un fichier?

J'ai un script qui ajoute de nouveaux champs à un CSV, cependant ^M personnages font leur apparition à la fin de l'ancien lignes de sorte que le nouveau champs se retrouvent sur une nouvelle ligne au lieu de le même. Comment puis-je supprimer ^M caractères à partir d'un fichier CSV à l'aide de Perl?

InformationsquelleAutor Alex Wong | 2009-03-16
  1. 46

    ^M est de retour chariot. Vous pouvez faire ceci:

    $str =~ s/\r//g
    InformationsquelleAutor Can Berk Güder
  2. 23

    Ou un 1-liner:

    perl -p -i -e 's/\r\n$/\n/g' file1.txt file2.txt ... filen.txt
    • C'est tellement facile de se rappeler ce que Perl Tarte.
    • haha perl tarte!
    • Sur windows de passage *.txt avec cette commande ne fonctionne pas. Il donne: ne Peut pas ouvrir *.txt: argument non Valide. N'importe qui?
    • Pas besoin de global 'g' ' $ ' ne correspond qu'à la fin de la ligne.
    InformationsquelleAutor JDrago
  3. 14

    Vous avez trouvé, vous pouvez aussi faire ceci:

    $line=~ tr/
    $line=~ tr/\015//d;
    15//d;
    • Cela a fonctionné parfaitement pour moi!
    • pas aussi lisible que \r - toute personne cherchant à qui (ou à vous-même dans un an) serait content de faire un commentaire en précisant ce qu'il fait
    InformationsquelleAutor Alex Wong
  4. 7

    Légèrement non, mais de supprimer les ^M de la ligne de commande à l'aide de Perl, faites ceci:

    perl -p -i -e "s/\r\n/\n/g" file.name
    InformationsquelleAutor Roy Rico
  5. 6

    Je préfère un cadre plus général de solution qui fonctionne avec le ms-DOS ou Unix entrée. En supposant que l'entrée est à partir de STDIN:

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

    # filter and write
  }
    InformationsquelleAutor KillerRabbit
  6. 2

    Ce un liner remplace toutes les ^M caractères:

    dos2unix <file-name>

    Vous pouvez appeler à partir de l'intérieur de Perl ou directement sur votre Unix invite.

    InformationsquelleAutor Akhil
  7. 1

    Pour convertir DOS, style style UNIX fins de ligne:

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

    Ou, pour supprimer UNIX et/ou de DOS, style de fin de ligne:

    for ($line in <FILEHANDLE>) {
   $line =~ s/\r?\n$//;
}
    • ne serait-ce pas supprimer les retours à la ligne, trop?
    • Je suppose que cela dépend de votre objectif. J'ai édité pour montrer les deux stratégies.
    InformationsquelleAutor spoulson
  8. 1

    C'est ce qui a résolu mon problème. ^M est un retour chariot, et il peut être facilement évité dans un script Perl.

    while(<INPUTFILE>)
{
     chomp;
     chop($_) if ($_ =~ m/\r$/);
}
    • Ne fait que supprimer les ^M à partir d'un fichier CSV? Modification du fichier d'entrée? T-il créer de fichier de sortie qui n'auront pas eux?
    InformationsquelleAutor user3274263
  9. 0

    Petit script que j'ai pour que. Une modification de il a aidé à filtrer certains autres caractères non-imprimables dans la croix-plate-forme des dossiers de legs.

    #!/usr/bin/perl
# run this as
# convert_dos2unix.pl < input_file > output_file
undef $/;
$_ = <>;
s/\r//ge;
print;
    InformationsquelleAutor Aleksandr V. Panchul
  10. -1

    En vi frappé :.

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

    Control-V Control-M sont évidemment ces touches. Ne pas le préciser.

    • C'est une mauvaise idée d'inclure les caractères non imprimables comme un retour chariot textuellement dans le code source de ce genre. De loin préférable d'utiliser le \r échappement qui est facile à voir et (b) ne seront pas perdus si la source est reformaté.
    InformationsquelleAutor