regex - 如何在 Perl 中提取该文件名的部分内容？

Question

在包含“变更集”列的 Excel 工作表中，我得到的变更集如下:

C:\ccviews\hgdasdff-9302\dfcsz\ahgrt\kjhssl\ASGHLS@@\main\ajsdkljlat\hahdasdhfk\1\test.txt\sub\hsdaklfl\3

我需要在 Perl 脚本中使用 split 函数，以便有两个输出(输入为上面的字符串)

• @@ 之前的部分(例如此处C:\ccviews\hgdasdff-9302\dfcsz\ahgrt\kjhssl\ASGHLS)
• 字符串的最后一个字符(例如此处为 3)

Answer 1

对于常规拆分来说，这听起来太复杂了，您需要一个像这样的普通正则表达式:

my ($first, $second) = / ^ (.+?) @@ .* (.) $ /x;