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 mookie
3 days ago
tcl by oldlaptop
8 days ago
tcl by rhobart
20 days ago
tcl by rhobart
20 days ago
tcl by rhobart
21 days ago
tcl by Bradipo
21 days ago
tcl by rhobart
21 days ago
tcl by sssc
25 days ago
tcl by mookie
41 days ago
tcl by JMN
49 days ago
Submit
New paste
Documentation
From Jabber