>
>
> 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;
