tags:

Recursive Directory Walk with File::Find

Walk a directory tree and print every regular file found.

Author: chris

#!/usr/bin/perl
use strict;
use warnings;
use File::Find;

find(sub {
    return unless -f $_;
    print $File::Find::name, "\n";
}, '.');