version 1.4, 2005/06/02 23:22:03
|
version 1.5, 2005/06/02 23:31:11
|
Line 47 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[
|
Line 47 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[
|
|
|
my $count = 0; |
my $count = 0; |
my $countby = 1; |
my $countby = 1; |
my $char_count = length(scalar(@userdirs)." files."); |
|
# print "Updating ".scalar(@userdirs)." files.\n"; |
# print "Updating ".scalar(@userdirs)." files.\n"; |
print "Updating ".scalar(@userdirs)." files."; |
print "Updating ".scalar(@userdirs)." files."; |
my $char_count = 0; |
my $char_count = 0; |