Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: Value into array

by ameezys (Acolyte)
on Apr 08, 2019 at 07:29 UTC ( [id://1232271]=note: print w/replies, xml ) Need Help??


in reply to Re: Value into array
in thread Value into array

@input_array = (N1,N2,N3,N6,N7);

A[N1] = 1 A[N2] = 1 A[N3] = 1 A[N6] = 1 A[N7] = 1 B[N1] = 1 B[N2] = 1 B[N3] = 1 B[N6] = 1 B[N7] = 1

Im trying to store the value for A and B of each data inside the array into 1. Meaning that the data N1 has two values inside it which is A and B. Somehow I couldn't figure out how to store the value.

Replies are listed 'Best First'.
Re^3: Value into array
by hdb (Monsignor) on Apr 08, 2019 at 07:42 UTC

    A hash instead of an array could be useful for you:

    use strict; use warnings; my %hash = ( N1 => { A => 1, B => 1}, N2 => { A => 1, B => 1}, N3 => { A => 1, B => 1}, N6 => { A => 1, B => 1}, N7 => { A => 1, B => 1}, ); # usage e.g. print $hash{N3}{A}, "\n";
      Okay, thank you. How about if the input_array is obtained from user input. So the variable isn't fixed. Meaning that N1, N2, N3,... is not fixed.
        my @input_array = ( 'N1','N2','N3','N6','N7'); my %hash = ( map { $_ => { A => 1, B => 1} } @input_array );
        All of that is possible. You will need to further explain the problem - perhaps showing the input and output desired. And preferably write some code of your own.
Re^3: Value into array
by thanos1983 (Parson) on Apr 08, 2019 at 08:04 UTC

    Hello ameezys,

    From your initial description I believed also as other fellow Monks that you are looking for ARRAYS OF ARRAYS. Based on your updated description it looks that you are looking for HASHES OF ARRAYS.

    Sample of code below:

    #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %HoA = ( N1 => [undef], N2 => [undef], N3 => [undef], N4 => [undef] ); print Dumper \%HoA; # add to an existing row push @{ $HoA{"N1"} }, "A", "B"; print Dumper \%HoA; __END__ $ perl test.pl $VAR1 = { 'N3' => [ undef ], 'N2' => [ undef ], 'N1' => [ undef ], 'N4' => [ undef ] }; $VAR1 = { 'N3' => [ undef ], 'N2' => [ undef ], 'N1' => [ undef, 'A', 'B' ], 'N4' => [ undef ] };

    Is it possible to be looking for HASHES OF HASHES?

    Hope this helps, let us know if this is not what you are looking for.

    Seeking for Perl wisdom...on the process of learning...not there...yet!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1232271]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others examining the Monastery: (6)
As of 2024-03-28 16:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found