regex - Perl:遇到某个字符后删除字符串的其余部分

Question

我正在清理文件中的数据。因此，我阅读每一行并检查某些条件并在文件中执行适当的操作。我需要做的一件事是检查字符串中字符 $ 的出现。如果找到，我需要删除该行的其余部分，包括 $.例如，如果该行是

abc$hello-goodbye

我需要得到

abc

我如何用最少的代码在 Perl 中做到这一点？使用某种正则表达式？

Answer 1

最快的是通过一个简单的正则表达式:

$string =~ s/\$.*//;

在哪里

$string = 'abc$hello-goodbye';