Add index and value to an array in Perl

Question

I'm new in Perl world and hope i get your help here.

let's say I have following array:

trap:  $VAR1 = [
      {
        'oid' => 'enterprises.12356.101.2.0.504',
        'type' => 'IPS Anomaly'
      }
    ];

and I want to add more indexes to it that i get following results:

trap:  $VAR1 = [
      {
        'oid' => 'enterprises.12356.101.2.0.504',
        'type' => 'IPS Anomaly',
        'attackid' => 'ID',
        'detail' => 'Some details',
        'url' => 'http://....'
      }
    ];

So the elements are not added to the end of the array - what is done by push or unshift - I've tried with splicing like but it doesnt work.

Could you show us the code you have done?

Toto
– Toto

2013-07-03 09:08:47 +00:00
Commented Jul 3, 2013 at 9:08 — Toto
– Toto, Commented Jul 3, 2013 at 9:08

TLP · Accepted Answer · 2013-07-03 09:23:38Z

4

You are not adding to an array, you are adding key/value pairs to the hash inside an array. You can see this by the brackets used in the Data::Dumper output

$VAR1 = [     # <-- this means start of anonymous array ref
          {   # <-- this means start of anonymous hash ref

So basically you have an array of hashes. E.g. $VAR->[0]{'key'} is the syntax you would use.

You should know that your resulting structure is just half the picture. What's more important in this case is the code you used to get there, so that is what you should show.

Also, you should know that there is no "start" and "end" to a hash: A hash is unordered, and there is no way to control the order of keys/values. (By normal means)

answered Jul 3, 2013 at 9:23

TLP

68.2k10 gold badges97 silver badges156 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Nikhil Jain · Accepted Answer · 2013-07-03 09:44:09Z

3

You can do something like below, and assuming that you don't care that one hash overwrites keys and values from the other, you could just use a hash slice to add one hash to another as this is array reference containing hash.

use strict;
use Data::Dumper;
use warnings;

my $arr_ref = [ { 'oid' => 'enterprises.12356.101.2.0.504', 'type' => 'IPS Anomaly' } ];
my %test = ('attackid' => 'ID', 'detail' => 'Some details') ;

@{$arr_ref->[0]}{ keys %test } = values %test;
print Dumper($arr_ref);

Output:

$VAR1 = [
          {
            'detail' => 'Some details',
            'attackid' => 'ID',
            'oid' => 'enterprises.12356.101.2.0.504',
            'type' => 'IPS Anomaly'
          }
        ];

answered Jul 3, 2013 at 9:44

Nikhil Jain

8,3782 gold badges28 silver badges50 bronze badges

Comments

RobEarl · Accepted Answer · 2013-07-03 09:19:27Z

1

That's an array reference containing a single hash reference. You can add values to the hash using:

$arrayref->[0]->{'detail'} = 'Some details';
$arrayref->[0]->{'url'} = 'http://....';

Explanation:

To access the elements in an array from its reference you use the ->. e.g. $arrayref->[0] gives you the first element. This first element is a reference to a hash so again you use -> to access its elements.

edited Jul 3, 2013 at 9:19

answered Jul 3, 2013 at 9:13

RobEarl

7,9226 gold badges38 silver badges52 bronze badges

Collectives™ on Stack Overflow

Add index and value to an array in Perl

3 Answers 3

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related