�PNG  IHDR��;���IDATx��ܻn�0���K�� �)(�pA��� ���7�LeG{�� �§㻢|��ذaÆ 6lذaÆ 6lذaÆ 6lom��$^�y���ذag�5bÆ 6lذaÆ 6lذa{���� 6lذaÆ �`����}H�Fkm�,�m����Ӫ���ô�ô!� �x�|'ܢ˟;�E:���9�&ᶒ�}�{�v]�n&�6� �h��_��t�ڠ͵-ҫ���Z;��Z$�.�P���k�ž)�!��o���>}l�eQfJ�T��u і���چ��\��X=8��Rن4`Vw�l�>����n�G�^��i�s��"ms�$�u��i��?w�bs[m�6�K4���O���.�4��%����/����b�C%��t ��M�ז� �-l�G6�mrz2���s�%�9��s@���-�k�9�=���)������k�B5����\��+͂�Zsٲ ��Rn��~G���R���C����� �wIcI��n7jJ���hۛNCS|���j0��8y�iHKֶۛ�k�Ɉ+;Sz������L/��F�*\��Ԕ�#"5��m�2��[S��������=�g��n�a�P�e�ғ�L�� lذaÆ 6l�^k��̱aÆ 6lذaÆ 6lذa;���� �_��ذaÆ 6lذaÆ 6lذaÆ ���R���IEND�B` #!/usr/bin/perl -w eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' if 0; # not running under some shell use strict; use File::Find::Rule; use File::Spec::Functions qw(catdir); # bootstrap extensions for (@INC) { my $dir = catdir($_, qw( File Find Rule ) ); next unless -d $dir; my @pm = find( name => '*.pm', maxdepth => 1, exec => sub { (my $name = $_) =~ s/\.pm$//; eval "require File::Find::Rule::$name"; }, in => $dir ); } # what directories are we searching in? my @where; while (@ARGV) { local $_ = shift @ARGV; if (/^-/) { unshift @ARGV, $_; last; } push @where, $_; } # parse arguments, build a rule object my $rule = new File::Find::Rule; while (@ARGV) { my $clause = shift @ARGV; unless ( $clause =~ s/^-// && $rule->can( $clause ) ) { # not a known rule - complain about this die "unknown option '$clause'\n" } # it was the last switch unless (@ARGV) { $rule->$clause(); next; } # consume the parameters my $param = shift @ARGV; if ($param =~ /^-/) { # it's the next switch - put it back, and add one with no params unshift @ARGV, $param; $rule->$clause(); next; } if ($param eq '(') { # multiple values - just look for the closing parenthesis my @p; while (@ARGV) { my $val = shift @ARGV; last if $val eq ')'; push @p, $val; } $rule->$clause( @p ); next; } # a single argument $rule->$clause( $param ); } # add a print rule so things happen faster $rule->exec( sub { print "$_[2]\n"; return; } ); # profit $rule->in( @where ? @where : '.' ); exit 0; __END__ =head1 NAME findrule - command line wrapper to File::Find::Rule =head1 USAGE findrule [path...] [expression] =head1 DESCRIPTION C mostly borrows the interface from GNU find(1) to provide a command-line interface onto the File::Find::Rule heirarchy of modules. The syntax for expressions is the rule name, preceded by a dash, followed by an optional argument. If the argument is an opening parenthesis it is taken as a list of arguments, terminated by a closing parenthesis. Some examples: find -file -name ( foo bar ) files named C or C, below the current directory. find -file -name foo -bar files named C, that have pubs (for this is what our ficticious C clause specifies), below the current directory. find -file -name ( -bar ) files named C<-bar>, below the current directory. In this case if we'd have omitted the parenthesis it would have parsed as a call to name with no arguments, followed by a call to -bar. =head2 Supported switches I'm very slack. Please consult the File::Find::Rule manpage for now, and prepend - to the commands that you want. =head2 Extra bonus switches findrule automatically loads all of your installed File::Find::Rule::* extension modules, so check the documentation to see what those would be. =head1 AUTHOR Richard Clamp from a suggestion by Tatsuhiko Miyagawa =head1 COPYRIGHT Copyright (C) 2002 Richard Clamp. All Rights Reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L =cut