Re: [PERL] sleep i en loekke virker ikke

[Jesper Krogh <sslug@sslug>]

I sslug.perl, skrev David List:
>  Hvis jeg anvender sleep i en loekke virker det som om alle loekkens
>  iterationer foerst koeres igennem foer der sker alt det paa en gang,
>  som burde ske trinvist.
>  
>  Et eksempel:
>  ----------------------------
>  #!/usr/bin/perl
>  use strict;
>  use warnings;
>  my @array = (1..5);
>  for (reverse(@array))
>  {
>      print "$_..";
>      sleep 1;
>  }
>  print " BLAST OFF\n";
>  exit(0);
>  ---------------------------
>  
>  Her kommer hele linien paa en gang efter fem sekunders ventetid.
>  
>  Hvorfor sker det?

Det sker fordi du ikke har sat autoflush til, så output bufferen flusher
først når der kommer et \n

$| = 1;



-- 
./Jesper Krogh, sslug@sslug
Jabber ID: sslug@sslug
Tøm din hjerne for Linuxviden på http://www.linuxwiki.dk