如何使用perl grep最后一次出现的特殊字符

时间:2014-02-23 12:07:50

标签: regex perl

Tag: /tags/abc_d
 Tag: /tags/xyz

这是我的输入文件。我必须grep第二个“/”和剩下的字进入数组? 我怎样才能使用perl正则表达式完成此操作。 我更新perl所以你能帮助我吗?

2 个答案:

答案 0 :(得分:0)

如果$ _包含该行

my ($p) = (/\/([^\/]+)$/);

将使$ p包含路径的最后部分。它匹配/然后任意数量的非/字符到行尾。内括号捕获结果。

答案 1 :(得分:0)

如果您的输入数据中有更多内容,并且您需要确保只在开头使用标记,那么您可以使用此正则表达式:

/^\s*Tag.+?\/(\w+)$/

regex101上试用。