Mega Code Archive

 

Categories / Perl / File

 

File find closure

#!/usr/bin/perl use strict; use warnings; use File::Find; die "Give me a directory\n" unless @ARGV; {     my @results;     sub wanted { push @results, $File::Find::name }     sub findfiles {         @results=();         find \&wanted, $_[0];         return @results;     } } foreach my $dir (@ARGV) {     print("Error: $dir is not a directory\n"), next unless -d $dir;     my @files=findfiles($dir);     print "$_ contains @files\n"; }