Question

我理解如何从字符串的末尾删除回车符 - 但是我在我的Perl脚本中遇到了一个问题，在字符串之前找到回车符。

例如，我的脚本会搜索以感叹号开头的字符串，但导致我的脚本出现问题的行是：^C!

有没有办法删除它？

Answer 1

^C不是回车的cat -v表示，而是ETX的表示，也许这就是你混淆的根源。 s/\cC//会删除它。

检查Devel::Peek ::从Perl中转储或从外部转移uniquote以获取其他不可见的字符。

Answer 2

你可以使用正则表达式来清理那些字符：

$line =~ s/^[^!]//;