<br><br><div><span class="gmail_quote">On 6/16/05, <b class="gmail_sendername">Dalibor</b> &lt;<a href="mailto:lugos@ice.si">lugos@ice.si</a>&gt; 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>
&nbsp;&nbsp; # delam delam delam...<br>
until enter_pressed<br>
<br>
#!/usr/bin/perl<br>
<br>
for (my $i = 0; $i &lt; 100; $i++) {<br>
&nbsp;&nbsp;&nbsp; # Tvoje opravilo<br>
&nbsp;&nbsp;&nbsp; print &quot;$i...\n&quot;;<br>
<br>
&nbsp;&nbsp;&nbsp; # Po izvedbi vsakega koraka preveri, ce je uporabnik kaj vnesel<br>
&nbsp;&nbsp;&nbsp; my $rin = '';<br>
&nbsp;&nbsp;&nbsp; my $input = '';<br>
&nbsp;&nbsp;&nbsp; vec($rin, fileno(STDIN), 1) = 1;<br>
&nbsp;&nbsp;&nbsp; $input = &lt;STDIN&gt; if select($rin, undef, undef, 0.1);<br>
<br>
&nbsp;&nbsp;&nbsp; # ce naletis na neprazen string, izstopi iz zanke<br>
&nbsp;&nbsp;&nbsp; if (!($input eq &quot;&quot;)) {<br>
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; last;<br>
&nbsp;&nbsp;&nbsp; }<br>
}<br>
<br>
# Postprocesiranje<br>
...<br>
<br>
</div></div>lp,<br>
Gregor<br>