Re: AW: Traversing directory recursively

[Uri Guttman]

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: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/