Re: [LUGOS] perl zanka

[Gregor Berginc]

On 6/16/05, Dalibor <[EMAIL PROTECTED]> wrote:

Ker nisem vešč programiranja v perlu bi rabil nasvet. Zanima me kako naj
izvedem zanko v stilu
repeat
until keypressed

Spodnja resitev dela bolj v smislu:

repeat
   # delam delam delam...
until enter_pressed

#!/usr/bin/perl

for (my $i = 0; $i < 100; $i++) {
    # Tvoje opravilo
    print "$i...\n";

    # Po izvedbi vsakega koraka preveri, ce je uporabnik kaj vnesel
    my $rin = '';
    my $input = '';
    vec($rin, fileno(STDIN), 1) = 1;
    $input = <STDIN> if select($rin, undef, undef, 0.1);

    # ce naletis na neprazen string, izstopi iz zanke
    if (!($input eq "")) {
        last;
    }
}

# Postprocesiranje
...

lp,
Gregor

_______________________________________________
lugos-list mailing list
lugos-list@lugos.si
http://liste2.lugos.si/cgi-bin/mailman/listinfo/lugos-list