>
>
> 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/\*\-mail/";
> print "$name has $dir and $maildir\n";
> opendir( MAILDIR, "$maildir" ) || die "what the: $!";
> my @mail = grep -T, readdir MAILDIR;
> closedir MAILDIR;
> print "@mail\n";
> }
> }
>
> This code dies on the opendir statemenet saying that
> /home/$name/*-mail
> is not there. But it is there. What else can I use for the
> "*" so that
> it will read the mail direcotry for a user?
have you tried using one of the quoting operators like 'qw' or maybe
escaping the string with \Q..\E ?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
