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

Hi all, first-time poster, mediocre Perl programmer.
I'm taking in a "|"-delimited file with predefined columns and want to turn it into an AoH for sorting. This works fine: 
foreach (@array) {
    @hash{qw<source_id exchange_id status exchange desc depth_flag dep
+th_indic>} = split /\|/;
    push @AoH, {%hash};
};

[download]
I want to combine the two lines down to one, like this: 
foreach (@array) {
    push @AoH, { @{ qw<source_id exchange_id status exchange desc dept
+h_flag depth_indic> } = split /\|/} ;  
};

[download]
...but I get the error:
Can't modify anonymous hash ({}) in list assignment at /home/omann/exch_list.pl line 66, near "/\|/;"
Is this possible?

Replies are listed 'Best First'.
Re: pushing an anonymous hash onto an array on the fly
by SuicideJunkie (Vicar) on Feb 22, 2013 at 22:53 UTC

    I don't see the point of making it one line, but sure you can do it:

    use strict;
use warnings;
use List::MoreUtils qw(mesh);
use Data::Dumper;


my @array = ('source|ex|stat|ex2|desc|dep|ind');
my @columns = qw<source_id exchange_id status exchange desc depth_flag
+ depth_indic>;
my @AoH;

foreach (@array) 
{
    push @AoH, { mesh(@columns, @{[split /\|/,(shift @array)]}) } ;  
};
print Dumper @AoH;

    [download]
    Gives: 
    C:\>perl test.pl
$VAR1 = {
          'source_id' => 'source',
          'desc' => 'desc',
          'status' => 'stat',
          'depth_indic' => 'ind',
          'depth_flag' => 'dep',
          'exchange_id' => 'ex',
          'exchange' => 'ex2'
        };

C:\>

    [download]
[reply]
[d/l]
[select]
Re: pushing an anonymous hash onto an array on the fly
by choroba (Cardinal) on Feb 22, 2013 at 22:52 UTC
    I am not sure it is quite readable, but it works: 
    @{ $AoH[@AoH] }{ qw<source_id exchange_id status exchange desc depth_f
+lag depth_indic> } = split /\|/;

    [download]
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]

Back to Seekers of Perl Wisdom