Help for this page

Select Code to Download


  1. or download this
    $MAIL_ROOT = '/var/mail';

my @users = (map  s/$MAIL_ROOT// , `find $MAIL_ROOT -type d -maxdepth 
+1`);
  2. or download this
    my @users = `find $MAIL_ROOT -type d -maxdepth 1`;
foreach (@users) {
...


}
  3. or download this
    chomp( my @users = map { s/$MAIL_ROOT//; $_ } `find $MAIL_ROOT -type d
+ -maxdepth 1` );