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);
}
}, postproce
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->e
Hi,
I also tried the $writer = shift, but it drops an error for XML syntax.
This version traverses only into one directory branch. So it opens a dir and
goes down, list
Everything but forgets to go down into the second or third dir.
What does shift do actually? It tells that it is about array, b
