Cool. To bo tudi v redu.
Hvala!
Gregor Berginc wrote:
On 6/16/05, *Dalibor* <[EMAIL PROTECTED] <mailto:[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
_______________________________________________
lugos-list mailing list
lugos-list@lugos.si
http://liste2.lugos.si/cgi-bin/mailman/listinfo/lugos-list
