Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Access elements in the nested array

by k_manimuthu (Monk)
on May 26, 2011 at 08:43 UTC ( [id://906770]=perlquestion: print w/replies, xml ) Need Help??

k_manimuthu has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks,

I have a two ini files, I need to read the INI1 certain values and place the values INI2. I am troubling to access the nested array elements. Please suggest how to access the elements in below nested array.

Thanks,
Mani Muthu

my @myfiles = (
        ['INI_1','INI_2',
            ['VALUE_1'],
            ['VALUE_2'],
            ['VALUE_3']
         ],
        
        ['INI_3','INI_4',
            ['VALUE_1'],
            ['VALUE_2'],
            ['VALUE_3']
        ]

        );


foreach my $ini (@myfiles) {
    print "\n", $ini->[0];
    ## Access Next level values
    print "\n", $ini->[1];
    ## place the $ini->[0] values to  $ini->[1]
}

[download]

Replies are listed 'Best First'.
Re: Access elements in the nested array
by Nikhil Jain (Monk) on May 26, 2011 at 09:09 UTC

    It would be nice if you use modules like Config::Tiny , Config::IniFiles , Config::INI::Reader for reading ini files.

    I am troubling to access the nested array elements,

    try something like, 

    use strict;
use warnings;
my @myfiles = (
        ['INI_1','INI_2',
            ['VALUE_1'],
            ['VALUE_2'],
            ['VALUE_3']
         ],

        ['INI_3','INI_4',
            ['VALUE_1'],
            ['VALUE_2'],
            ['VALUE_3']
        ]

        );


foreach my $ini (@myfiles) {
    foreach my $nested_level (@{$ini}){
      if(ref($nested_level) eq 'ARRAY'){
         my @values = @{$nested_level};
         print"@values\n";
      }else{
        print"$nested_level\n";
      }
    }
}

    [download]
    Output:
INI_1
INI_2
VALUE_1
VALUE_2
VALUE_3
INI_3
INI_4
VALUE_1
VALUE_2
VALUE_3

    [download]
[reply]
[d/l]
[select]
Re: Access elements in the nested array
by choroba (Cardinal) on May 26, 2011 at 09:03 UTC
    Try $ini->[2][0], $ini->[3][0] etc.
[reply]
[d/l]

Back to Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: perlquestion [id://906770]
Approved by SilasTheMonk
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2024-04-20 02:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found