[Debian]:Re: delay in perl

[Stefan Troeger <stefan.troeger@wirtschaft.tu-chemnitz.de>]

Hi,

On Fri, Aug 04 2000 at 15:30 +0200, Ulrich Wiederhold wrote:

> ich suche nach einer Funktion in Perl, die sozusagen im Sekundentakt bis
> z.B. 60 Sekunden hochzählt.
> Soll in etwa so ablaufen:
> 
> timer = 0
> Event1
> start_timer
> Repeat
> 	event 2	
> until timer = 60 

print "Event1\n";
for (1..60) {
    sleep 1;
    print "Event2\n";
}

> würde auch so funktionierten:
> 
> event1
> delay 60 secs
> event2

print "Event1\n";
sleep 60;
print "Event2\n";

Ciao,
	Stefan
-----------------------------------------------------------
Um sich aus der Liste auszutragen schicken Sie bitte eine
E-Mail an majordomo@jfl.de die im Body
"unsubscribe debian-user-de <deine emailadresse>" enthaelt.
Bei Problemen bitte eine Mail an: Nils.Gundelach@lehmanns.de
-----------------------------------------------------------
Anzahl der eingetragenen Mitglieder:     738