File::Wildcard::Find - Simple interface to File::Wildcard

File-Wildcard documentation Contained in the File-Wildcard distribution.

Index

Code Index:

NAME

Top

File::Wildcard::Find - Simple interface to File::Wildcard

SYNOPSIS

Top

  use File::Wildcard::Find;
  findbegin( "/home/me///core");
  while (my $file = findnext()) {
     unlink $file;
  }

DESCRIPTION

Top

File::Wildcard provides a comprehensive object interface that allows you to do powerful processing with wildcards. Some consider this too unwieldy for simple tasks.

The module File::Wildcard::Find provides a straightforward interface. Only a single wildcard stream is accessible, but this should be sufficient for one liners and simple applications.

FUNCTIONS

Top

findbegin

This takes 1 parameter, a path with wildcards as a string. See File::Wildcard for details of what can be passed.

findnext

Iterator that returns successive matches, then undef.

findall

Returns a list of all matches

File-Wildcard documentation Contained in the File-Wildcard distribution. 
package File::Wildcard::Find;
use strict;

BEGIN {
    use Exporter ();
    use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $finder);
    $VERSION     = '0.01';
    @ISA         = qw(Exporter);
    @EXPORT      = qw(findbegin findnext findall);
    @EXPORT_OK   = qw(findbegin findnext findall $finder);
    %EXPORT_TAGS = ( all => \@EXPORT_OK );
}

use File::Wildcard;

sub findbegin {
    $finder = File::Wildcard->new( path => shift );
}

sub findnext {
    $finder->next;
}

sub findall {
    my $allfinder = File::Wildcard->new( path => shift );
    $allfinder->all;
}

1;
__END__