Today's PerlQuiz

Q.

use Data::Dumper;

my $h1 = +{
    a => (split /,/, "")[0],
    b => 3,
};

my $h2 = +{
    a => scalar((split /,/, "")[0]),
    b => 3,
};

warn Dumper([$h1, $h2]);

A.
(split /,/, "")[0] returns empty list in list context!!!!!!!!!!!!!!!!!!!!!!!

Published: 2012-09-19(Wed) 11:27