Skip to content

Instantly share code, notes, and snippets.

@zhanglintc

zhanglintc/wanted_file.pl

Last active November 1, 2018 14:49
Show Gist options
  • Save zhanglintc/23e0d67b3a2517e008e155b53a647751 to your computer and use it in GitHub Desktop.
Save zhanglintc/23e0d67b3a2517e008e155b53a647751 to your computer and use it in GitHub Desktop.
Download ZIP
traverse a given dir(wanted version)
Raw
wanted_file.pl
use 5.016;
use File::Find;
find(\&wanted, $target);
sub wanted {
my $path = $File::Find::name;
say $path;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment