kleiner Timer: geht das? - #3117 (Perl/CGI)

steffenw

2004-07-10 00:46

User since
2003-08-15
692 Artikel
BenutzerIn

Dein Script sollte immer mit

Code: (dl )

1
2

use sctrict;
use warnings;

beginnen.

Eine Laufvariable brauchst Du nur, wenn Du auch etwas indizieren willst. Also schreibe anstatt

Code: (dl )

for (my $i=0; $i<$loop; $i++)

folgenden

Code: (dl )

1
2
3

for (0 .. $loop-1)
# oder
for (1 .. $loop)

Verzögerungszeiten im Sekundenbereich mache mit

Code: (dl )

sleep($sekunden);

kleinere Zeiten oder z.B. auch 5.7 erreicht man mit

Code: (dl )

select(undef, undef, undef, $sekunden_aber_float);

ergänzt: Meinen Vorrednern, die zwischenzeitlich auch geantwortet haben, kann ich nur zustimmen. Von der Seite her hatte ich mir das Script nicht angeschaut\n\n

$SIG{USER} = sub {love 'Perl' or die};