如何在Perl中提取以子字符串开头的字符串的其余部分？

vshtjzan 于 2023-01-13 发布在 Perl

关注(0)|答案(1)|浏览(161)

数据是这样的

MWF-ZoRyDL50.mp4

我想提取连字符（-）之后的字符串的其余部分，因此输出将为

ZoRyDL50.mp4

如果我能传入一个变量子字符串，程序就能提取它后面的字符串，那就太棒了，在这个例子中，输入子字符串是"MWF-"
你知道用Perl怎么做吗？谢谢

my $string = 'MWF-ZoRyDL50.mp4'
my $input = 'MWF-'

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

1条答案

去掉.*，这将匹配字符串的其余部分并删除所有内容。您还应该使用^锚，因为您只希望在开始时匹配$input。
在$input包含任何regexp元字符的情况下，使用\Q regexp操作符是一个好主意，这样它们将按字面匹配。

$string =~ s/^\Q$input//;