in reply to Parse string and extract word after specific pattern

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";

[download]

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

"I do not feel obliged to believe that the same God who endowed us with sense, reason and intellect has intended us to forgo their use." -Galileo

Replies are listed 'Best First'.
Re^2: Parse string and extract word after specific pattern
by RonW (Parson) on Mar 24, 2017 at 18:55 UTC

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

[reply]
[d/l]
[select]
      It also avoids the result, though.

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

      [download]
      ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

      [download]
[reply]
[d/l]
[select]

        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.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom