Posted to tcl by yeeling at Mon Jul 02 10:19:14 GMT 2007view pretty
#!/usr/bin/env perl use strict; $|=1; my $pct; while ($pct<=100) { print STDOUT "\r$pct\% diaries read and checked "; $pct++; }
#!/usr/bin/env perl use strict; $|=1; my $pct; while ($pct<=100) { print STDOUT "\r$pct\% diaries read and checked "; $pct++; }