in reply to returning to the outer loop
Named blocks should be what you want (code is lightly tested). Generally shouldn’t use single letter var names, even for dummy code and $a and $b should really never be used outside sorting where they have special meaning.
use strict; use warnings; my @x = ( ['aaaaa', 'bbbbb', 'ccccc', 'ddddd',], ['eeeee', 'fffff', 'ggggg', 'hhhhh',], ['iiiii', 'jjjjj', 'kkkkk', 'lllll',], ); my $tolerance = 1; STEVE: for my $outer ( 1 .. 5 ) { TONY: for my $some_x ( @x ) { my $fail = 0; BRUCE: for my $just_this ( @{$some_x} ) { my $c = "..."; # ... get string for pattern matching here. $fail++ if $c =~ /\Q$just_this/; next STEVE if $fail > $tolerance; } } }
Update: In anything but straightforward, single-screen-of-code cases, I agree with GrandFather below.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: returning to the outer loop
by LanX (Saint) on Sep 21, 2018 at 02:19 UTC | |
by Your Mother (Archbishop) on Sep 21, 2018 at 02:42 UTC | |
by LanX (Saint) on Sep 21, 2018 at 11:42 UTC | |
by Your Mother (Archbishop) on Sep 21, 2018 at 17:02 UTC | |
by LanX (Saint) on Sep 21, 2018 at 21:05 UTC | |
by GrandFather (Saint) on Sep 21, 2018 at 05:08 UTC | |
|
Re^2: returning to the outer loop
by stevieb (Canon) on Sep 20, 2018 at 21:59 UTC | |
by Your Mother (Archbishop) on Sep 20, 2018 at 22:29 UTC |