Process files recursively

Author: stmuk

You want to recurse over all files in and under a directory

Source code: 09-07-all-files-process.p6

#!/usr/bin/env perl6

use v6;

use File::Find;

sub MAIN(:$dir = ".") {

    my $files = find(:dir($dir), :type('file'));

    for $files.map({.IO}).sort -> $io {
        say $io.absolute;
    }
}