How can I extract parts of this filename in Perl?

Question

In my Excel sheet with column Changeset I am getting the changeset like:

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

I need to use split function in a Perl script so that there will be two ouput (input as the above string)

• the part before @@ (e.g-here C:\ccviews\hgdasdff-9302\dfcsz\ahgrt\kjhssl\ASGHLS)
• the last character of the string (e.g-here 3)

Answer 1

This sounds too complicated for a regular split, you need an ordinary regex like this:

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

Answer 2

I think this is what you want, or do you need it all in one statement?

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

Answer 3

Adding to the two answers already, you can try the following using only split function:

$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

Answer 4

The split based solution, as requested by the OP:

my @a = split /@@.*?(.)$/, $s;

How it works:

1) The string is split into 2 parts: everything before '@@' and an empty string. The empty trailing one is deleted by split.

2) As the pattern contains parentheses, additional list element is created from the matching substring in the delimiter.

Answer 5

From Regular Expression Mastery by Mark Dominus:

Randal's Rule

• Randal Schwartz (author of Learning Perl [and also a Stack Overflow user]) says:

Use capturing or m//g when you know what you want to keep.

Use split when you know what you want to throw away.

You know what you want to keep, so use m//g as in Leon Timmermans's answer.