PHP sizin için nearly size istediğinizi verir normal ifadelerde özyineleme kullanabilirsiniz:

$s = 'abc [one[two]][three] def';
$matches = array();
preg_match_all('/\[(?:[^][]|(?R))*\]/', $s, $matches);
print_r($matches);

Sonuç:

Array
(
    [0] => Array
        (
            [0] => [one[two]]
            [1] => [three]
        )

)

Bu daha gelişmiş bir şey için, düzenli ifadeler kullanmak için muhtemelen en iyisidir.

Perl 5.10 regexdeki, bunu yapmak adında geriye gidilmiştir ve bir özyinelemeli altprogram kullanabilirsiniz:

#!/usr/bin/perl

$re = qr  /
     (                      # start capture buffer 1
        \[                  #   match an opening brace
        (                   # capture buffer 2
        (?:                 #   match one of:
            (?>             #     don't backtrack over the inside of this group
                [^\[\]]+    #       one or more non braces
            )               #     end non backtracking group
        |                   #     ... or ...
            (?1)            #     recurse to bracket 1 and try it again
        )*                  #   0 or more times.
        )                   # end buffer 2
        \]                  #   match a closing brace
     )                      # end capture buffer one
    /x;


print "\n\n"; 

sub strip {
my ($str) = @_;
while ($str=~/$re/g) {
    $match=$1; $striped=$2;
    print "$striped\n";
    strip($striped) if $striped=~/\[/;
    return $striped;
}
}


$str="[one[two]][three][[four]five][[[six]seven]eight]";

print "start=$str\n";

while ($str=~/$re/g) { 
    strip($1) ;
}

Çıktı:

start=[one[two]][three][[four]five][[[six]seven]eight]
one[two]
two
three
[four]five
four
[[six]seven]eight
[six]seven
six

Bir döngü ile düzenli ifade uygulayabilir, örneğin,

1. Tüm \[([^\]]*)\] Maç.
2. Her maç için, ] ve çıkış sonuç ile [ ve \x02 ile \x01 olarak değiştirin.
3. Içine \[([^\]]*)\] her yerine \x01$1\x02 (warning, kabul \x01 ve \x02 dizisi tarafından kullanılmaz. )
4. Eşleşme yok olana kadar 1 tekrarlayın.

Ama ben :) bu sorun için bir dize tarayıcı yazmak istiyorum.

#!/usr/bin/perl
use Data::Dumper;
@a = ();
$re = qr/\[((?:[^][]|(??{$re}))*)\](?{push@a,$^N})/;
'[one[two]][three]' =~ /$re*/;
print Dumper \@a;
# $VAR1 = [
#           'two',
#           'one[two]',
#           'three'
#         ];

Değil exactly Sizin için ne istedi, ancak (ir) düzenli ifade uzantıları ile biraz yapılabilir bulunuyor. (Perl 5.10 'nin (?PARNO) (??{CODE}) kullanımını değiştirebilirsiniz.)