version 1.6, 2005/12/09 16:26:48
|
version 1.7, 2006/01/31 10:33:51
|
Line 47 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[
|
Line 47 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[
|
|
|
my $count = 0; |
my $count = 0; |
my $countby = 100; |
my $countby = 100; |
# print "Updating ".scalar(@userdirs)." files.\n"; |
print "Updating ".scalar(@userdirs)." files.\n"; |
print "Updating ".scalar(@userdirs)." files."; |
|
my $char_count = 0; |
my $char_count = 0; |
foreach my $udir (@userdirs) { |
foreach my $udir (@userdirs) { |
if (++$count % $countby == 0) { |
if (++$count % $countby == 0) { |
print ("\b" x $char_count); |
print("\b" x $char_count); |
print $count."/".scalar(@userdirs); |
print($count."/".scalar(@userdirs)); |
$char_count = length($count."/".scalar(@userdirs)); |
$char_count = length($count."/".scalar(@userdirs)); |
} |
} |
chomp($udir); |
chomp($udir); |