regex - 使用正则表达式删除 perl 中最多 _ 的内容？

Question

如何删除 Perl 中“_”之前的所有字符？因此，如果我有一个字符串“124312412_hithere”，它将将该字符串替换为“hithere”。我想有一个非常简单的方法可以使用正则表达式来做到这一点，但我对此仍然陌生，所以我在这里需要帮助。

Answer 1

删除“_”之前的所有字符:

s/^[^_]*_//;

删除“_”之前的所有字符:

s/^[^_]*(?=_)//;

删除“_”之前的所有字符(假设存在“_”):

s/^[^_]*//;