simplified snippet
Posted to
tcl
by yeeling at Mon Jul 02 10:19:14 GMT 2007
view raw
#!/usr/bin/env perl
use strict;
$|=1;
my
$pct
;
while
(
$pct
<=100)
{
print STDOUT "\r
$pct
\% diaries
read
and checked ";
$pct
++;
}
Recent Posts
tcl by egavilan
4 days ago
tcl by bch
10 days ago
tcl by Bradipo
10 days ago
tcl by aspect
10 days ago
tcl by Bradipo
10 days ago
tcl by Bradipo
10 days ago
tcl by Bradipo
10 days ago
lilypond by Bradipo
11 days ago
tcl by cgm
21 days ago
tcl by dandyn
30 days ago
Submit
New paste
Documentation
From Jabber