<br><br><div><span class="gmail_quote">On 6/16/05, <b class="gmail_sendername">Dalibor</b> <<a href="mailto:lugos@ice.si">lugos@ice.si</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Ker nisem vešč programiranja v perlu bi rabil nasvet. Zanima me kako naj<br>izvedem zanko v stilu<br>repeat<br>until keypressed</blockquote><div><br>
Spodnja resitev dela bolj v smislu:<br>
<br>
repeat<br>
# delam delam delam...<br>
until enter_pressed<br>
<br>
#!/usr/bin/perl<br>
<br>
for (my $i = 0; $i < 100; $i++) {<br>
# Tvoje opravilo<br>
print "$i...\n";<br>
<br>
# Po izvedbi vsakega koraka preveri, ce je uporabnik kaj vnesel<br>
my $rin = '';<br>
my $input = '';<br>
vec($rin, fileno(STDIN), 1) = 1;<br>
$input = <STDIN> if select($rin, undef, undef, 0.1);<br>
<br>
# ce naletis na neprazen string, izstopi iz zanke<br>
if (!($input eq "")) {<br>
last;<br>
}<br>
}<br>
<br>
# Postprocesiranje<br>
...<br>
<br>
</div></div>lp,<br>
Gregor<br>