Re: Array of Hashes

Hi, you are debugging with:

$field1 = $row->{field1}; $field2 = $row->{field2}; $field3 = $row->{f +ield3}; print "Row id is $field1, field 2 is $field2, field 3 is $field3\n";
[download]

You might like sprintf, you can skip all that assigning to temporary variables just to debug an interpolated string:

print sprintf "Row id is %s, field 2 is %s, field 3 is %s\n", @{$row}{
+qw/field1 field2 field3/};
[download]

Hope this helps!

The way forward always starts with a minimal test.

Comment on Re: Array of Hashes Select or Download Code

Replies are listed 'Best First'.
Re^2: Array of Hashes by GrandFather (Saint) on Feb 07, 2019 at 19:42 UTC
Why `print sprintf ...` instead of `printf ...`? Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond	[reply] [d/l] [select]
Re^3: Array of Hashes by 1nickt (Canon) on Feb 08, 2019 at 02:28 UTC
Hi Grandfather, because I would use `say()` [download] but didn't want to introduce that change in my comment. And because usually I am doing `$log->debug(sprintf 'format', @values)` [download] or even `$msg = sprintf 'format', @values; $DEBUG && say $msg && $log->debug($msg);` [download] Basically, I've never used `printf` alone in the last 20 years, because it does not meet my needs. The way forward always starts with a minimal test.	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom