Code Snippets

tags:
FileFindRecursion

Recursive Directory Walk with File::Find

Walk a directory tree and print every regular file found.

Author: chris

// Language: Perl 

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

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