Re^6: Hash of Hash of Arrays

[voltas]

[voltas]

Thanks much Duyet.. Really appreciate your ur suggestions and for your valuable time. WRT your suggestion I tried modifying your logic to accommodate further new entries into the log file. New values 'DEV' and 'QA' have been added along with the JIRA, like below:

------------------------------------------
DEV: COM-1258
Program:Testing
Reviewer:Jackie
Description:New Entries 
rev:r145201
------------------------------------------
QA: COM-9696
Program:Testing
Reviewer:Poikla
Description:Some random changes
rev:r112356
------------------------------------------
JIRA: COM-1234
Program:Development
Reviewer:John Wick 
Description:Genral fix
rev:r345676
------------------------------------------
JIRA:COM-1234
Program:Development
Reviewer:None
Description:Updating Received 
rev:r909276
------------------------------------------
JIRA: COM-6789
Program:Testing
Reviewer:Balise Mat
Description:Audited
rev:r876391

Below is the modified section in the code:

   my $program = $hash->{Program} || '';
        my $jira    = $hash->{JIRA}    || '';
        my $qa    = $hash->{QA}    || '';
        my $dev    = $hash->{DEV}    || '';
        if ( $program && $jira ) 
        {
            push @{ $data->{ $program }{ $jira }}, $hash;
            $hash = {};
        }
        elsif ( $program && $qa) 
        {
            push @{ $data->{ $program }{ $qa}}, $hash;
            $hash = {};
        }
        elsif ( $program && $dev) 
        {
            push @{ $data->{ $program }{ $dev}}, $hash;
            $hash = {};
        }
    }
    else
    ...
    ....
    ....

but its unable to display the value in the format you displayed. I'm getting blank output.It cannot read the new entries QA and DEV . Below is the output i'm looking for

==================================
        Program: Development
===================================
*****************
JIRA ID: COM 1234 
*****************
rev => r345676
Reviewer => John Wick
Description => Genral fix

rev => r909276
Description => Updating Received
Reviewer => None

==================================
        Program: Testing
===================================
*****************
JIRA ID: COM 6789
*****************

rev => r876391
Description => Audited
Reviewer => Balise Mat

rev => r698392
Reviewer => Chan Joe
Description => SO hwat

rev => r327896
Reviewer' => Chan Joe
Description' => Paid the Due

*****************
DEV ID: COM-1258
*****************
rev => r14521
Reviewer => Jackie foja
Description =>New Entries

*****************
QA ID: COM-9696
*****************
rev => r112356
Reviewer => Poikla Star
Description => Some random changes

Sorry to test your patience but could you please help me out here . I'm a perl noob , so pls. bear with me.

[duyet]

I don't understand why you keep adding new stuff to your question. Why not at once? Anyway, you don't have to treat the 'QA' and 'DEV' differently, as it contains COM code just like JIRA:

        # save all stored data if we see dashes line
        my $program  = $hash->{Program} || '';
        my $com_code = $hash->{JIRA}    || $hash->{QA} || $hash->{DEV}
+ || '';
        if ( $program && $com_code )
        {
            push @{ $data->{ $program }{ $com_code }}, $hash;
            $hash = {};
        }

If you used the Dumper( $data ), commented out somewhere in the middle of the code, then you would have seen how the data is set. Based on that, you can change the code (after Dumper statement) to display what ever you wanted.

Good luck.