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

Question

在包含Changeset列的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;

Answer 2

来自Mark Dominus的正则表达精通 ：

兰德尔的规则

• Randal Schwartz（ Learning Perl的作者[以及Stack Overflow用户 ]）说：

当你知道要保留什么时，使用捕获或m//g 。

当你知道要扔掉什么时使用split 。

你知道你想要保留什么，所以在Leon Timmermans的回答中使用m//g 。

Answer 3

我认为这是你想要的，还是你需要一个声明？

 my ($before, $after) = split '@@', $input;
 my $last_char = substr($after, -1, 1);

Answer 4

已添加两个答案，您可以仅使用拆分功能尝试以下操作：

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

@temp = split/@@/,$s;
$part1 = $temp[0]; # C:\ccviews\hgdasdff-9302\dfcsz\ahgrt\kjhssl\ASGHLS

@temp = split//,$s;
$part2 = $temp[-1]; # 3