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

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

abc$hello-goodbye

我需要得到

abc

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

解决方法 最快的是一个简单的正则表达式：

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

哪里

$string = 'abc$hello-goodbye';

总结

以上是内存溢出为你收集整理的regex – Perl：在遇到某个字符后删除其余的字符串全部内容，希望文章能够帮你解决regex – Perl：在遇到某个字符后删除其余的字符串所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。