in reply to using map to replace text without using a foreach....
However what you really should be doing is:chomp( my @users = map { s/$MAIL_ROOT//; $_ } `find $MAIL_ROOT -type d + -maxdepth 1` );
$MAIL_ROOT = '/var/mail'; opendir my $dh, $MAIL_ROOT or die "Cannot open '$MAIL_ROOT' $!"; my @users = grep -d && !/\A\.\.?\z/, readdir $dh; closedir $dh;
|
|---|