Re: Parse string and extract word after specific pattern

[injunjoel]

Not that fancy, but straightforward.

#!/usr/bin/perl -w
use strict;
my $string = "stash_ST1.2.3.4_1.ROLLBACK.check.20170228-101051.435944.
+txt";
my $action = '';
my @parts = split(/\./, $string); # split on dot
for (0..$#parts){
    # slot after ROLLBACK
    $action = $parts[$_+1] if $parts[$_] eq "ROLLBACK";
}    
print "$action\n";

I'm sure this can be golfed down a bit.

[RonW]

FWIW, split(/\./, $string) can be rewritten as split('.', $string) which avoids using a regular expression.

[choroba]

It also avoids the result, though.

my $s = 'a.b.c';
say "1: $_" for split /\./, $s;
say "2: $_" for split '.', $s;

[RonW]

Apparently, the first argument to split is always treated as a regex, because split '\.', $s worked.

The documentation implies a string and a regex are treated differently:

(such as ' ' or "\x20" , but not e.g. / / )

Seems that, as luck would have it, I never happened to use a regex meta character split 'x'.

In light of the described differences in handling of ' ' vs / /, the documentation should state that the first argument is always treated as a regex even supplied as a string.