Perl list slurp

list-slurp-fix.pl

#!/usr/bin/env perl

use strict;
use List::Util qw(any);
use Data::Dumper::Concise;

my %h = (
    k1 => {
        s1 => 0,
        s2 => 0,
    },
    k2 => {
        s1 => 0,
        s2 => 0,
    },
);

%c = (
    a => ( any { $h{$_}{s1} } qw(k1 k2) ),
    b => !$h{k1}{s1},
);

=cut

Output:

a, b: {
  a => "",
  b => 1,
}

=cut

print "a, b: " . Dumper( \%c );

list-slurp.pl

#!/usr/bin/env perl

use strict;
use List::Util qw(any);
use Data::Dumper::Concise;

my %h = (
    k1 => {
        s1 => 0,
        s2 => 0,
    },
    k2 => {
        s1 => 0,
        s2 => 0,
    },
);

my %c = (
    b => !$h{k1}{s1},
    a => any { $h{$_}{s1} } qw(k1 k2),
);

=cut

Output:

b, a: {
  a => "",
  b => 1,
}

=cut

print "b, a: " . Dumper( \%c );

# now, swap them
%c = (
    a => any { $h{$_}{s1} } qw(k1 k2),
    b => !$h{k1}{s1},
);

=cut

Output:

a, b: {
  a => "",
}

=cut

print "a, b: " . Dumper( \%c );