"nebufferovany" vystup

[Tom Mueller]

Ahoj ve spolek

Potreboval bych udelat neco jako "nebufferovany" vystup ze skritpiku
v Perlu nebo neco jako flush. Tedy aby se vypisovany text objevil na
vystupu (stdout, terminal) hned kdyz ho chci vypsat a ne az po "\n"
(nebo uzavreni stdoutu). V beznem shellu to tak funguje.
Prosim vas, nevedel byste nekdo jak na to?

#!/bin/ksh
n=1; c=0
while ((n <= 20)); do
 printf "%3i" $n;
 ((c+=1))
 ((c == 3)) && { echo; c=0; }
 ((n+=1))
 sleep 1
done
((c != 0)) && echo


#!/usr/bin/perl -w
$n=0; $c=0;
while (++$n <= 20) {
 printf "%3i", $n;
 if (++$c == 3) {
  print "\n";
  $c=0;
 }
 sleep 1;
}
print "\n" if ($c != 0);
-- 
Tom Mueller