Methodenaufrufe & sleep() - #58295 (Allgemeines zu Perl)

J-jayz-Z

2005-09-20 22:38

User since
2005-04-13
625 Artikel
BenutzerIn

Und wenn ich mir die Variable $mw ansehe, dann solltest du kein sleep nutzen. Wenn es ein Tk Programm ist, dann bleib die GUI eingefroren. Nutze Tk::sleep

Code: (dl )

sub Tk::Widget::tk_sleep {
 #Parameter aus subaufruf sichern
 my($main, $s) = @_;
 #Variable deklarieren
 my $sleep_dummy = 0;
 #Tk::after aufrufen und die Anzahl der übergebenen Zahl
 #mal 1000 nehmen, da ein after Aufruf mit 1000 ziemlich genau 
 #eine Sekunde ist. Nach Ablauf dieser Zeit wird die Variable
 #sleep_dummy durch ihre Inkrementierung auf 'true' gesetzt.
 $main->after($s*1000,
 sub { $sleep_dummy++ });
 #Der normale Scriptablauf wird hinausgezögert, bis
 #die Variable sleep_dummy 'true' ist
 $main->waitVariable(\$sleep_dummy)
 unless $sleep_dummy;
 }

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de