Next

Program Repair Shop

36

CopyFiles

     sub GrabFileList {
       ...
       my @files = grep !/^\./, readdir FILELISTDIR;
       ...

• However, he really wants to skip just . and ..

• For that, I like a more straightforward test

• GrabFileList becomes:

     my @files = grep { $_ ne '.' && $_ ne '..' } readdir FILELISTDIR;

Next

Copyright © 2002 M. J. Dominus