SPUG: idioms of late

[Andrew Sweger]

On Mon, 18 Jan 2010, Fred Morris wrote:

> $foo->{names} = [ map { my $x = $_; $x =~ s/\.$//o; $x; }
>                       @{$foo->{names}}
>                 ];

I prefer (because of munging the original items):

s/\.$// for @{$foo->{names}};

> printf "%s\n", join( "\t", @{$foo}{@FIELDS} );

I love hash slices! ...to the consternation of some coworkers (heavy
comments always provided). But does this behave correctly? Did you mean:

printf "%s\n" for join "\t", @{$foo}{@FIELDS};

I use a similar technique of hash slices for dealing with mapping to/from
my hashes and SQL insert/update statements. I use the @FIELDS to control
the field list so it only has to be stated once. (The legacy code resorts
to explicit numeric array indices to tease out the data for each field.
Oy!)

> my ($name, $address, $city) =
>     map $dbh->quote($_), @{$self}{qw/ name address city /};

Boo! Parameter binding is your friend, Fred. But partial points for using
the DBI/DBD quote method (as opposed to the insane DIY one I found in some
legacy code!).

-- 
Andrew B. Sweger -- The great thing about multitasking is that several
                                things can go wrong at once.