Help for this page

Select Code to Download


  1. or download this
    my( @userdirs ) = GetUserDirs();
ScanUserDirs( \@userdirs );
  2. or download this
    use File::Find::Rule qw/ find rule /;
my @userdirs = rule( 
...
 )->extras({ follow => 1 })
->in( 'startdir' );
...