Perl:在遇到某个字符后删除其余的字符串

Question

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

abc$hello-goodbye

我需要得到

abc

如何使用最少的代码在Perl中执行此操作？使用某种正则表达式？

Answer 1

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

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

哪里

$string = 'abc$hello-goodbye';