Help for this page

Select Code to Download


  1. or download this
    /user/user1/foo.bar
/user/user1
...
/user/user500/foo.bar
/user/user500
/user
  2. or download this
    /user
/user/user1
...
/user/user4
/user/user500
/user/user500/foo.bar
  3. or download this
    sub wanted {
    my $depth = $File::Find::dir =~ tr{/}{/};
...
        if $depth == 1;
    print("$depth $File::Find::name\n");
}