<?xml version="1.0" encoding="windows-1252"?>
<node id="1007642" title="Re: perl script to print just directory names" created="2012-12-06 15:25:45" updated="2012-12-06 15:25:45">
<type id="11">
note</type>
<author id="622051">
toolic</author>
<data>
<field name="doctext">
One way is to use [doc://File::Basename]::&lt;c&gt;basename&lt;/c&gt;:

&lt;c&gt;
use File::Basename;

# in your loop...

            print basename($file);
&lt;/c&gt;


&lt;p&gt;See also:

&lt;ul&gt;
&lt;li&gt;[doc://File::Find]
&lt;li&gt;[mod://File::Find::Rule]

&lt;/ul&gt;
</field>
<field name="root_node">
1007640</field>
<field name="parent_node">
1007640</field>
</data>
</node>
