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

Question

在包含Changeset列的Excel工作表中,我得到的变更集如下:

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

我需要split在Perl脚本中使用函数,这样就会有两个输出(输入为上面的字符串)

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

Answer 1

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

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