Deep recursion (Seite 2) (Allgemeines zu Perl)

J-jayz-Z

2005-09-14 12:40

User since
2005-04-13
625 Artikel
BenutzerIn

Hilft da $main->repeat(1000. \&foo); nicht?

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

pktm

2005-09-15 00:55

User since
2003-08-07
2921 Artikel
BenutzerIn

[quote=J-jayz-Z,14.09.2005, 10:40]Hilft da $main->repeat(1000. \&foo); nicht?[/quote]
Nein, da repeat auch ausgeführt wird, wenn die Methode noch nicht fertig ist (die braucht etwas länger).

http://www.intergastro-service.de (mein erstes CMS :) )

esskar

2005-09-15 01:22

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=pktm,14.09.2005, 22:55][quote=J-jayz-Z,14.09.2005, 10:40]Hilft da $main->repeat(1000. \&foo); nicht?[/quote]
Nein, da repeat auch ausgeführt wird, wenn die Methode noch nicht fertig ist (die braucht etwas länger).[/quote]

Code: (dl )

$main->repeat(2000, \&foo);

zonk :)

J-jayz-Z

2005-09-15 10:10

User since
2005-04-13
625 Artikel
BenutzerIn

^^

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

Crian

2005-09-15 12:40

User since
2003-08-04
5873 Artikel
ModeratorIn

Wenn man sich darauf nicht verlassen will, nimmt man nicht Tk::repeat, sondern Tk::after und ruft am Ende der fraglichen Methode wieder Tk::after auf. Dann hat man sichergestellt, dass zwischen den Abläufen der Methode immer eine feste Zeit vergeht.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

pktm

2005-09-15 22:34

User since
2003-08-07
2921 Artikel
BenutzerIn

Nun, das mit after hatte ich mir auch überlegt, aber irgendwie habe ich den Ansatz nicht weiter verfolgt.
Die Methode braucht übrigens nie die selbe Zeit. Sie splittet sich in mehrere Teilbereiche auf, wobei jeder entweder direkt oder erst nach einigen Minuten terminiert.

http://www.intergastro-service.de (mein erstes CMS :) )

Crian

2005-09-20 19:51

User since
2003-08-04
5873 Artikel
ModeratorIn

Wenn Du sie trotzem regelmäßig starten willst, füg den After-Aufruf halt als erstes ein und lass genügend Zeit oder merk Dir, wie lange die Funktion brauchte und zieh den Wert vom gewünschten Intervall ab.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

esskar

2005-09-20 22:19

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

oder benutzt eine programmiersprache in der man in jeder situation suaber mit threads arbeiten kann