Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re^4: Using grep and glob to find directories containing file

by Anonymous Monk
on Feb 03, 2013 at 17:21 UTC ( #1016840=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    mkdir dir1 dir2
    touch dir1/f{1,2}
    
  2. or download this
    foreach (1,2,3,4) {
    print "dir1\n" if glob("dir1/f*");
    print "dir2\n" if glob("dir2/f*");
    }
    
  3. or download this
    print "dir1\n" if glob("dir1/f*");
    print "dir2\n" if glob("dir2/f*");
    ...
    print "dir2\n" if glob("dir2/f*");
    print "dir1\n" if glob("dir1/f*");
    print "dir2\n" if glob("dir2/f*");