Thread Kann jemand diesen Code erklären? (3 answers)
Opened by dimpflmoser at 2010-08-30 19:42

dimpflmoser
 2010-08-30 19:42
#141053 #141053
User since
2004-06-28
46 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen,

im Internet habe ich den folgenden (funktionierenden) Code gefunden und nicht verstanden:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
# Emulate Perl/Tk's repeat() method
    sub repeat {
        my $ms  = shift;
        my $sub = shift;
        my $repeater; # repeat wrapper
        
        # Die folgende Zeile verstehe ich nicht
        $repeater = sub { $sub->(@_); Tkx::after($ms, $repeater); };

        Tkx::after($ms, $repeater);
    }


aufgerufen wird die Routine mit:

Code: (dl )
    repeat(100, \&UpdateCurrentProgress);


Kann jemand die fragliche Zeile erkären?

Danke Helmut

View full thread Kann jemand diesen Code erklären?