如果换行符是文件中的最后一个字符，该如何删除？

如果换行符是文件中的最后一个字符，该如何删除？

perl -pe 'chomp if eof' filename >filename2

或者，在适当位置编辑文件：

perl -pi -e 'chomp if eof' filename

[编者注：

-pi -e

最初是

-pie

，但正如一些评论者所指出并由@hvd解释，后者不起作用。]

在我看到的awk网站上，这被描述为“ perl亵渎”。

但是，在测试中，它奏效了。