Removendo caractere ^M de arquivos com Perl

Quem nunca precisou remover o caractere ^M de algum arquivo? Nesta dica faremos isso utilizando a linguagem Perl.

Primeiro vou executar o comando abaixo para verificar se meu arquivo possui tais tipos de caracteres:

cat -v file.txt
Eu adoro Linux.^M
Eu gosto de Linux.^M

Em seguida faremos a remoção dos mesmos:

perl -i -pe 's/\r//' file.txt

Agora faremos a validação para verificar se está tudo certo.

cat -v file.txt
Eu adoro Linux.
Eu gosto de Linux.

Bem espero que essa dica seja útil!!!

[]'s leoberbert