Walk a directory/Recursively: Difference between revisions
Content added Content deleted
(omit from Unlambda) |
(→{{header|Perl 6}}: start the section) |
||
| Line 604: | Line 604: | ||
my $pattern = 'foo'; |
my $pattern = 'foo'; |
||
find sub {print $File::Find::name if /$pattern/}, $dir;</lang> |
find sub {print $File::Find::name if /$pattern/}, $dir;</lang> |
||
=={{header|Perl 6}}== |
|||
Uses File::Find from [http://github.com/tadzik/perl6-File-Tools File-Tools] |
|||
<lang perl6>use File::Find; |
|||
.say for find(dir => '.').grep(/foo/);</lang> |
|||
=={{header|PHP}}== |
=={{header|PHP}}== |
||