regex - 从Perl中的字符串开头删除回车？

Question

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

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

有什么办法可以去掉这个吗？

Answer 1

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

从 Perl 内部检查Devel::Peek ::Dump 或从外部单引号检查其他不可见字符。

Answer 2

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

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