2012-02-27T15:30:58 GUIfreund

So ähnlich hätte ich es auch gemacht. Nur hätte ich erst mit grep die Buttons herausgefiltert (gibt weniger Verschachtelungen).

1
2

next unless $_->class eq 'Button';
# weiter

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem