redo erzeugt Endlosschleife (war: Ich find den Fehler nicht!!!) - #105534 (Allgemeines zu Perl)

Struppi

2008-02-04 10:17

User since
2006-02-17
628 Artikel
BenutzerIn

Klasse, jetzt versteh ich was der Code machen soll.

Er soll eine gewisse Zeitspanne warten und dazu benutzt pl eine Art Endlosschleife. Ich kann mich täuschen, aber kann man sowas nicht mit sleep machen?
Also in etwa so:

Code (perl): (dl )

    foreach $ai (@ai) {
        sleep($a1);
        print @letters
}

Aber selbst wenn man das unbedingt mit einer Schleife machen will, geht es ohne redo und next.

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use constant CR => "\r";
use constant NL => "\n";
my @x = qw(2 6 8 12);
print "start";
$|++;
foreach(@x) {
        print NL, "warte ....", CR;
        warte($_);
        print "$_ sekunden vorbei.";
}

sub warte{
        my $wait = shift;
        my $t1 = time();
        while(1) {
                my $t2 = time();
                my $diff = $t2 - $t1;
                last if($diff == $wait);
        }

}