perl - 任何格式到 UNIX 结束行格式递归

Question

我有两个不同的脚本要更改DOS2UNIX和MAC2UNIX结束行格式

DOS2UNIX： perl -pi -e 's/\r\n/\n/;' < dos1.txt > dos2.txt

MAC2UNIX： perl -p -e 's/\r/\n/g' < mac1.txt > mac2.txt

反正有没有在一个signle命令中获得这些功能来改变EOL UNIX格式！

谢谢

Answer 1

这可以处理这两种情况。

perl -pe 's/\r\n?/\n/g'

如果您的 DOS 文件在一行中的某处带有裸露的 CR，它（半明显地）会做错事，这应该（也许）不被转换为 LF。