Next

Program Repair Shop

281

Compound Compound Compound Statements

     my @files = grep { $_ ne '.' && $_ ne '..' } readdir FILELISTDIR;
     push @FileList, map "$dir/$_", @files;

• Some people really like compound statements

• They might write:

     push @FileList, 
        map {"$dir/$_"}
        grep { $_ ne '.' && $_ ne '..' } 
        readdir FILELISTDIR;

• I think the biggest problem here is you have to read it backwards

• Try it Both Ways and see which one you like best

Next

Copyright © 2002 M. J. Dominus