Experimental Physics and
Industrial Control System

"Jeff Hill" <[email protected]> · Mon, 28 Nov 2005 12:21:46 -0700

> > What does the perl doc on your cygwin system say on find() ?
> 
> Mine says:
>
> --snip--

File::Find(3)         User Contributed Perl Documentation
File::Find(3)

NAME
       File::Find - Traverse a directory tree.

SYNOPSIS
           use File::Find;
           find(\&wanted, @directories_to_search);
           sub wanted { ... }

           use File::Find;
           finddepth(\&wanted, @directories_to_search);
           sub wanted { ... }

           use File::Find;
           find({ wanted => \&process, follow => 1 }, '.');

DESCRIPTION
       These are functions for searching through directory trees doing work
on
       each file found similar to the Unix find command.  File::Find exports
       two functions, "find" and "finddepth".  They work similarly but have
       subtle differences.

       find
             find(\&wanted,  @directories);
             find(\%options, @directories);

           "find()" does a depth-first search over the given @directories in
           the order they are given.  For each file or directory found, it
           calls the &wanted subroutine.  (See below for details on how to
use
           the &wanted function).  Additionally, for each directory found,
it
           will "chdir()" into that directory and continue the search,
invok-
           ing the &wanted function on each file or subdirectory in the
direc-
           tory.

       finddepth
             finddepth(\&wanted,  @directories);
             finddepth(\%options, @directories);

           "finddepth()" works just like "find()" except that is invokes the
           &wanted function for a directory after invoking it for the direc-
           tory's contents.  It does a postorder traversal instead of a pre-
           order traversal, working from the bottom of the directory tree up
           where "find()" works from the top of the tree down.

D:\Users\hill\R3.14\epics\base>perl -v

This is perl, v5.8.7 built for cygwin-thread-multi-64int

Copyright 1987-2005, Larry Wall

Perl may be copied only under the terms of either the Artistic License or
the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

D:\Users\hill\R3.14\epics\base>which perldoc
/usr/bin/perldoc

> -----Original Message-----
> From: Ralph Lange [mailto:[email protected]]
> Sent: Monday, November 28, 2005 8:46 AM
> To: [email protected]
> Subject: Re: [Fwd: RE: R3.14.8 makeBaseApp.pl]
> 
> Ralph Lange wrote:
> 
> > [...]
> >
> > What does the perl doc on your cygwin system say on find() ?
> 
> Mine says:
> 
> aragon: ...> perldoc File::Find
> 
> File::Find(3)         User Contributed Perl Documentation
> File::Find(3)
> 
> NAME
>        File::Find - Traverse a directory tree.
> 
> SYNOPSIS
>            use File::Find;
>            find(\&wanted, @directories_to_search);
>            sub wanted { ... }
> 
>            use File::Find;
>            finddepth(\&wanted, @directories_to_search);
>            sub wanted { ... }
> 
>            use File::Find;
>            find({ wanted => \&process, follow => 1 }, '.');
> [...]
> 
> 
> which would make the change legal perl code.
> 
> Ralph

Experimental Physics and Industrial Control System

Experimental Physics and
Industrial Control System