Try to find a subject line that actually describes your problem.
Here's one way:
#!perl use warnings; use strict; my $dir = '/home/sites/$arg1/users'; opendir DIR, $dir or die "Cannot opendir $dir:$!\n"; my @users = grep { -d "$dir/$_" and not /^\.{1,2}$/} readdir DIR; closedir DIR; # do whatever you want with @users print join "\n",@users;
--
Regards,
Helgi Briem
helgi AT decode DOT is
In reply to Re: (duplicate) Help
by helgi
in thread (duplicate) Help
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |