Walk a directory/Recursively: Difference between revisions

=={{header|Perl 6}}==

Using the [https://github.com/tadzik/File-Find/ File::Find] module:

<lang perl6>use File::Find;

.say for find dir => '.', name => /'.txt' $/;</lang>

Alternatively, a custom solution that provides the same interface as the built-in (non-recursive) <tt>dir</tt> function, and uses <tt>gather</tt>/<tt>take</tt> to return a lazy sequence:

<lang perl6>sub find-files ($dir, Mu :$test) {

gather for dir $dir -> $path {

if $path.basename ~~ $test { take $path }

if $path.d { .take for find-files $path, :$test };

}

}

.put for find-files '.', test => /'.txt' $/;</lang>

Or if you value performance over portability, here's a function that runs the GNU <tt>find</tt> program and returns a lazy sequence of the files it finds. Parameters are not subjected to shell expansion, and the null-byte (which cannot be present in file paths) is used as the path delimiter, so it should be pretty safe.

<lang perl6>sub find-files ($dir, :$pattern) {

run('find', $dir, '-iname', $pattern, '-print0', :out, :nl«\0»).out.lines;

}

.say for find-files '.', pattern => '*.txt';</lang>