Skip to content

Instantly share code, notes, and snippets.

@takus

takus/sample-File-Find.pl

Created October 9, 2011 10:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save takus/1273524 to your computer and use it in GitHub Desktop.
Save takus/1273524 to your computer and use it in GitHub Desktop.
Download ZIP
Sample code of File::Find
Raw
sample-File-Find.pl
use File::Find;
my $dir = '/home/takus';
find(\&print_file, $dir);
sub print_file {
print $File::Find::name, "\n";
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment