in reply to Re: Depth First Search
in thread Depth First Search

Hi lets say this I have this hash: 
my %document = (
    '1' => {
        '1.1' => 'xxx',
        '1.2' => {
            '1.2.1' => 'xxx',
            '1.2.2' => 'xxx'
        }
    },
    '2' => {
        '2.1' => {
            '2.1.1' => 'xxx'
        }
    }
);

[download]
and I would like to go over all of the children and then the fathers I will do it like this in perl 6 , I would like to find a why using perl5 to do the same . 


sub process (%chapters) {
    await do for %chapters.kv -> $number, $content {
        start {
            note "Chapter $number started";
            &?ROUTINE.outer.($content) if $content ~~ Hash;
            sleep 1; # here the chapter itself is processed
            note "Chapter $number finished";
        }
    }
}
process(%document);

[download]
Thanks , for the help !

Replies are listed 'Best First'.
Re^3: Depth First Search
by BrowserUk (Patriarch) on Aug 10, 2016 at 09:14 UTC

    Or more like this? 

    #! perl -slw
use strict;
use threads;

sub traverse {
    my $href = shift;

    $_->join for map async{
        print "Chapter $_ started";
        my $v = $href->{ $_ };
        ref( $v ) eq 'HASH' and  traverse( $v );
        sleep 1;
        print "Chapter $_ finished";
    }, keys %$href;
}

my %document = (
    '1' => { '1.1' => 'xxx', '1.2' => { '1.2.1' => 'xxx', '1.2.2' => '
+xxx' } },
    '2' => { '2.1' => { '2.1.1' => 'xxx' } }
);

traverse( \%document );

__END__
C:\test>1169475
Chapter 1 started
Chapter 2 started
Chapter 1.1 started
Chapter 1.2 started
Chapter 2.1 started
Chapter 1.2.2 started
Chapter 1.2.1 started
Chapter 2.1.1 started
Chapter 1.1 finished
Chapter 1.2.2 finished
Chapter 1.2.1 finished
Chapter 2.1.1 finished
Chapter 1.2 finished
Chapter 2.1 finished
Chapter 1 finished
Chapter 2 finished

    [download]
    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
      can I tell how much threads to open (max value of threads ? )
[reply]

        How do you specify the maximum number of threads with P6?

        With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
        Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
        "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
        In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
Re^3: Depth First Search
by BrowserUk (Patriarch) on Aug 10, 2016 at 09:03 UTC

    Could you post the output from the P6 code? Does it look like this?: 

    Chapter 1 started
Chapter 1.1 started
Chapter 1.1 finished
Chapter 1.2 started
Chapter 1.2.2 started
Chapter 1.2.2 finished
Chapter 1.2.1 started
Chapter 1.2.1 finished
Chapter 1.2 finished
Chapter 1 finished
Chapter 2 started
Chapter 2.1 started
Chapter 2.1.1 started
Chapter 2.1.1 finished
Chapter 2.1 finished
Chapter 2 finished

    [download]
    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
      I am trying to do the following : I would like to send Getinfo as a tread until we passing the return until child is 0; 
      sub GenerateVerilogFiles{
    my ($self,$blockname)=@_;
    my $fileName = $BlockNameClass->{FileName};
    $BlockNameClass->GetInfo($blockname);
    my $childFlag = ($fileName eq lala) ;
    return if($childFlag) ;
    foreach(my $x keys %{$BlockNameClass->{xxx}}) {
     GenerateVerilogFiles ($x);
    }
   
    }

      [download]
[reply]
[d/l]
        I would like to send Getinfo as a tread until we passing the return until child is 0;

        I'm sorry, but I cannot parse that sentence. Could you re-phrase it for me?

        (I get that "tread" => thread; but can't fathom "until we passing the return until"?)

        With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
        Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
        "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
        In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]

In Section Seekers of Perl Wisdom