<?xml version="1.0" encoding="windows-1252"?>
<node id="1007644" title="Re: perl script to print just directory names" created="2012-12-06 15:28:19" updated="2012-12-06 15:28:19">
<type id="11">
note</type>
<author id="961">
Anonymous Monk</author>
<data>
<field name="doctext">
[mod://findrule] C:\Input --dir
&lt;c&gt; 
use [mod://File::Find::Rule]; my @dirs = find( directory =&gt;in =&gt;[ 'C:\Input' ]);
&lt;/c&gt;</field>
<field name="root_node">
1007640</field>
<field name="parent_node">
1007640</field>
<field name="reputation">
14</field>
</data>
</node>
