Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Inserting an array in an array of hashes

by choroba (Abbot)
on Oct 18, 2012 at 17:28 UTC ( #999783=note: print w/ replies, xml ) Need Help??


in reply to Inserting an array in an array of hashes

Documentation: Perl Data Structures Cookbook and Perl references and nested data structures.

#!/usr/bin/perl use warnings; use strict; use Data::Dumper; my @file_attachments = ( {file => 'test1.zip', price => '10.00', des +c => 'the 1st test'}, {file => 'test2.zip', price => '12.00', des +c => 'the 2nd test'}, {file => 'test3.zip', price => '13.00', des +c => 'the 3rd test'}, {file => 'test4.zip', price => '14.00', des +c => 'the 4th test'} ); # Get the number of items (hashes) in the array. my $file_no = scalar (@file_attachments); # $file_no is now: 4 in this instance as there is 4 hashes in the arra +y. # Looping through the hash and printing out all the hash "file" elemen +ts. for my $file_attachment (@file_attachments) { print "$file_attachment\n"; } # Looping through the hash and printing out all the hash "price" eleme +nts. for my $file_attachment (@file_attachments) { print $file_attachment->{price}, "\n"; } # Looping through the hash and printing out all the hash "desc" elemen +ts. for my $file_attachment (@file_attachments) { print $file_attachment->{desc}, "\n"; } # Change price to an array reference. $file_attachments[0]{price} = [12, 12.5]; $file_attachments[1]{price} = [ $file_attachments[1]{price} ]; push @{ $file_attachments[1]{price} }, 10.5; $file_attachments[2]{price} = []; @{ $file_attachments[2]{price} } = (13, 13.5); print Dumper \@file_attachments;
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ


Comment on Re: Inserting an array in an array of hashes
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2014-12-29 01:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (183 votes), past polls