use Perl

• Syntactic sugar for less verbosity (Score:2, Interesting)

  by rafael (2125)

  Random thoughts :

  NewFind->file() instead of ->type('file')
  NewFind->name( '*.mp3', '*.ogg' ) to get a shorter 'or' condition (in this case, can be written as NewFind->name( qr/\.(mp3|ogg)$/ ))
  Provide an ->exec( \&command ) hook, similar to the -exec option to find(1) : i.e., gets the pathname as its only parameter, returns true or false.
  Think about -prune and finddepth.
  • Re:Syntactic sugar for less verbosity (Score:1)

    by richardc (1662)

    NewFind->file() instead of ->type('file')

    Yes, I was being very literal in a transliteration of a find(1) example, apart from making it longer of course.

    NewFind->name( '*.mp3', '*.ogg' ) to get a shorter 'or' condition (in this case, can be written as NewFind->name( qr/\.(mp3|ogg)$/ ))

    I like both of those.

    I still think there's need for a form of or. I just can't think of a good example right now.
    • Good example for 'or' (Score:2, Interesting)

      by rafael (2125) <{rgarciasuarez} {at} {gmail.com}> on 2002.07.19 5:16 (#10842) Homepage Journal

      my $finder = NewFind->or(
        NewFind->name( '*.pl' ),
        NewFind->exec( sub {
          my $file = shift; my $fh;
          if (open $fh, $file) {
            my $shebang = <$fh>;
            close $fh;
            return $shebang =~ /^#!.*\bperl/;
          }
          return 0;
        } ),
      );

      Reply to This

      Parent