perl_regexp_pos_magyar.pl

#! /usr/bin/perl
use warnings;
use strict;

my $a = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut cursus ante non lorem euismod suscipit. Aenean luctus commodo neque, a rutrum arcu vestibulum in. Duis dictum dignissim justo, eget aliquam risus scelerisque posuere. Nulla nec nisi a turpis accumsan hendrerit et vel orci. Quisque hendrerit sed diam tincidunt luctus. Proin euismod enim commodo interdum dictum. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos. Aenean vitae neque quam. Aenean nec augue vitae augue suscipit auctor malesuada vitae felis. Aenean mollis hendrerit ornare. Vestibulum a pharetra nulla. Duis id tincidunt leo, eu ornare ligula. Donec leo mauris, semper eget eros ut, venenatis eleifend elit. Aliquam purus nisl, mattis tempus odio vel###, tempor volutpat mauris. Mauris luctus in purus ac sagittis.";

my $b = $a;
my $i = 0;
my $j = 0;
my $k = 0;
my $pos = 'NULL';

#============================================================================#
#============================================================================#
=magyarazat
OUTER: m/it/, ekkor pos nem kap értéket, mindig igaz lesz ez a feltétel, hiszen lorem ipsum-ra illeszkedni fog /it/
OUTER: m/it/g, ekkor ő reseteli a pos-t miközben a szövegen annyiszor végig megy, ahányszor csak megtalálja it-t
OUTER: m/it/g, ekkor nem reseteli a pos-t miközben a szövegen annyiszor végig megy, ahányszor csak megtalálja it-t

INNER: m/an/g, ekkor végtelen ciklus lesz, az OUTER-től függetlenül, hiszen ő reseteli a pos-t az adott bemenetre, így a másik feldolgozásban ismét előről fogja kezdeni az illesztést.
INNER: m/an/gc nem reseteli a pos-t és végig megy majd az illesztéseken

Érdekességként beleraktam egy újabb global matchinget a ciklusba, ha érdekel, a kimenete, a $flag-et állítsd 1-re.
A pos értéke változik, pedig egy helyen van csak a ###, azaz nem ez az illesztés fogja befolyásolni a pos-t.
Ha belerakjuk a /g-t. Más lesz a helyzet. De miért nem reseteli a pos-t elsőre? Azért, mert nem ért a string végére, csak egyszer futott le a global matching és ilyenkor a post nem kell resetelni. Másodszorra lefut az if-en belüli illesztés, akkor nem fogja megtalálni ###-t, hanem elér a string végére és ekkor reseteli a pos-t.
Ha /###/cg esetén (gc, cg mindegy a sorrend), a pos nem fog resetelődni ennél az illesztésnél, csak a következőnél, azaz az OUTER-nél, ha ott éppen /g van és nem /gc.
Amikor $i 3 lesz, harmadszorra már nem megy bele az if-be ágába a program.

=cut
#============================================================================#
#============================================================================#
my $flag = 0;

OUTER: while ($b =~ m/it/g) {
    $i++;
    $pos = pos($b);
    $pos ||= 'reseted';
    print "'it' found $i at $pos\n";

    INNER: while ($b =~ m/an/gc) {
        $j++;
        $pos = pos($b);
        $pos ||= 'reseted';
        print "'an' found $j at $pos\n";
    }

    if (($flag == 1) && ($i < 3)) {
        $k++;
        print "\nHere comes Johnny $k!\n";
        if ($b =~ m/###/) {
            $pos = pos($b);
            $pos ||= 'reseted';
            print "'###' found at $pos\n";
        }
    }

    $pos = pos($b);
    $pos ||= 'reseted';
    print "END of OUTER, pos = $pos\n";
}

$pos = pos($b);
$pos ||= 'reseted';
print "final pos = $pos\n";