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

前端之家收集整理的这篇文章主要介绍了regex – Perl:在遇到某个字符后删除其余的字符串前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在清理文件中的数据.因此,我读取每一行并检查某些条件并在文件中执行适当的操作.我需要做的一件事是检查字符串中字符$的出现.如果找到我需要删除该行的其余部分,包括$.例如,如果该行是

abc$hello-goodbye

我需要得到

abc

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

解决方法

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

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

哪里

$string = 'abc$hello-goodbye';

猜你在找的Perl相关文章