我正在清理文件中的数据.因此,我读取每一行并检查某些条件并在文件中执行适当的操作.我需要做的一件事是检查字符串中字符$的出现.如果找到我需要删除该行的其余部分,包括$.例如,如果该行是
abc$hello-goodbye
我需要得到
abc
如何使用最少的代码在Perl中执行此操作?使用某种正则表达式?
解决方法
最快的是一个简单的正则表达式:
$string =~ s/\$.*//;
哪里
$string = 'abc$hello-goodbye';