Re: Change variable multiple times within a single string?

in reply to Change variable multiple times within a single string?

If you only need the final state. This code returns 'yes' only if there is an 'A' in the string and there is no 'B' after it.

use warnings;
use strict;
my $string="A111B111A111B111";
my $yes_or_no= ($string =~ m/A[^B]*$/) ? 'yes' : 'no';
print "yes_or_no=$yes_or_no\n";
[download]

Update: The original description is not quite accurate. It should read "This code returns 'yes' only if there is at least one 'A' in the string and there is no 'B' after the final 'A'."

Bill

In Section Seekers of Perl Wisdom