perl - 如何从字符串中删除特定单词？

Question

我有一个字符串＆＃34; / project / pkt / sw / tool / xxx＆＃34;并应删除＆＃34; sw / tool / xxx＆＃34;从原始字符串。 请让我建议怎么做？

输入：

"/project/pkt/sw/tool/xxx";

期望输出

"/project/pkt/"

代码

my $ str = "project/pkt/sw/tool/xxx";
$str =~ s|\w*/\w*/\w*$||;
print $str;

我在这里获得相同的原始字符串，请告诉我如何从原始字符串中删除最后三个单词。

Answer 1

以下正则表达式修改$str以删除问题中定义的最后三个单词。

$str =~ s|\w*/\w*/\w*$||;