Re: AW: Traversing directory recursively

Fri, 10 Jul 2015 08:57:12 -0700 

On 07/10/2015 04:50 AM, Nagy Tamas (TVI-GmbH) wrote:

Hi,

That works fine, thx:

sub Traverse
{
        find({wanted => sub {
                if(-d $File::Find::name) {
                        $writer->startTag("Folder", "Name" => 
$File::Find::name);
                }       
        }, postprocess => sub {              
                        $writer->endTag("Folder");
        }
        
        }, "c:\\ph\\"
     );
}
i did say to use File::Find. why did you take so long to use it? it is exactly the module for recursing in directories and it works. rewriting it from scratch and correctly is not easy. 

uri

--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/

Reply via email to