>
>
> my ( $name, $uid, $dir );
> while ( ( $name, undef, $uid, undef, undef, undef, undef, $dir ) =
> getpwent()) {
>next if ( $name =~ /users/ || $name =~ /www/ || $name =~ /sysop/);
>if ( $uid > 500 ) {
> if (-l $dir ) { $dir = "/home2/$name"};
> my $maildir = "$dir/\*\-ma
Chad Kellerman wrote:
>
> Hi everyone,
Hello,
>I am having a small problem with opendir:
>
> #!/usr/bin/perl -w
>
> # getting disk usage for users
> # not quite as good as du(1) but alittle faster...maybe
> # written by [EMAIL PROTECTED]
> # Aug 17, 2002
>
> use strict;
> use diagnostics;
Hi everyone,
I am having a small problem with opendir:
#!/usr/bin/perl -w
# getting disk usage for users
# not quite as good as du(1) but alittle faster...maybe
# written by [EMAIL PROTECTED]
# Aug 17, 2002
use strict;
use diagnostics;
$|++;
my ( $name, $uid, $dir );
while ( ( $name, undef
