Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 13 lines (10 sloc) 1.375 kb
1 2 3 4 5 6 7 8 9 10 11 12
<pre>
<span class="k">use</span> <span class="w">File::Find</span><span class="sc">;</span>
<span class="i">find</span><span class="s">(</span>\<span class="i">&amp;wanted</span><span class="cm">,</span> <span class="i">@directories_to_search</span><span class="s">)</span><span class="sc">;</span>
<a name="wanted"></a><span class="k">sub </span><span class="m">wanted</span> <span class="s">{</span> ... <span class="s">}</span>

<span class="k">use</span> <span class="w">File::Find</span><span class="sc">;</span>
<span class="i">finddepth</span><span class="s">(</span>\<span class="i">&amp;wanted</span><span class="cm">,</span> <span class="i">@directories_to_search</span><span class="s">)</span><span class="sc">;</span>
<a name="wanted-1"></a><span class="k">sub </span><span class="m">wanted</span> <span class="s">{</span> ... <span class="s">}</span>

<span class="k">use</span> <span class="w">File::Find</span><span class="sc">;</span>
<span class="i">find</span><span class="s">(</span><span class="s">{</span> <span class="i">wanted</span> <span class="cm">=&gt;</span> \<span class="i">&amp;process</span><span class="cm">,</span> <span class="w">follow</span> <span class="cm">=&gt;</span> <span class="n">1</span> <span class="s">}</span><span class="cm">,</span> <span class="q">&#39;.&#39;</span><span class="s">)</span><span class="sc">;</span>
</pre>
Something went wrong with that request. Please try again.