Help for this page

Select Code to Download


  1. or download this
        sub myglob { my @g = glob shift; @g }
  2. or download this
        if (glob "$dir/*") { print "glob $dir: yes\n"; }

    if (myglob "$dir/*") { print "myglob $dir: yes\n"; }
  3. or download this
    #!/usr/bin/perl -w
    
sub glob2 { glob(shift); }
...
}

map { unlink("$_/x.test") || die; rmdir($_) || die; } @dirs;
  4. or download this
    dir1/*: myglob glob glob2
dir2/*: myglob
dir3/*: myglob glob glob2
...
dir6/*: myglob glob glob2
dir-fake1/*: glob glob2
dir-fake2/*: glob glob2