[LUGOS] perl zanka

[Dalibor]

Cool. To bo tudi v redu.

Hvala!

Gregor Berginc wrote:

>
>
> On 6/16/05, *Dalibor* <lugos at ice.si <mailto:lugos at ice.si>> 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 at lugos.si
>http://liste2.lugos.si/cgi-bin/mailman/listinfo/lugos-list
>  
>