in reply to Is Perl scary or is it me?

my %hash = map { 
                    join(':', $_->{Computer}, 
                              $_->{Bulletin}, 
                              ( $_->{Product} || "" ), 
                              $_->{Status} 
                    ) => $_ 
                } @{GetQueryTable('all_records_for_report', 138)};

[download]
or 
my %hash;
for ( @{GetQueryTable('all_records_for_report', 137)} ) {
    $hash{"$_->{Computer}:$_->{Bulletin}:"
            . ($_->{Product}||"") 
            . ":$_->{Status}"} = $_;
}

[download]

Well, the map-based approach puts the focus on the fact that you're populating %hash. Where you're getting the data from is secondary. The for-based approach puts the focus on the fact that you're doing something with each element in all_records_for_report. What you're doing with it is secondary.

--
Yours in pedantry,
F o x t r o t U n i f o r m
"Anything you put in comments is not tested and easily goes out of date." -- tye

Replies are listed 'Best First'.
Re^2: Is Perl scary or is it me?
by Golo (Friar) on Nov 06, 2004 at 00:17 UTC
    mmmh...

    Good point - I see, I won't get around some comments* :-(

    update:
    *comments to where the data comes from, because I think that part is secondary. Now I also know the why :-)

    update2: 
    sub make_lookup {
    my %hash = map { my $hash = $_;
                    join(':', map { $hash->{$_} || "" 
                                } sort(keys(%{$_})) ) => $_ 
                } @_;

    return \%hash;
}

my $lookup = make_lookup(@{GetQueryTable('all_records_for_report', 138
+)});

    [download]
[reply]
[d/l]

In Section Meditations