Question

I have Perl code, which looks messy:

         my $x = $h->[1];
         foreach my $y (keys %$x) {
           my $ax = $x->{$y};
           foreach my $ay (keys %$ax) {
             if (ref($ax->{$ay}) eq 'JE::Object::Proxy') {
               my $bx = $ax->{$ay};
               if ($$bx->{class_info}->{name} eq 'HTMLImageElement') {
                 print $$bx->{value}->{src}, "\n";
               }
             }
           }
         }

Is it possible to optimize the code above to not use any variables, just $h, as that one is an input?

Answer 1

Here’s my crack at it:

print $$_->{value}{src}, "\n" for grep {
    ref $_ eq 'JE::Object::Proxy' &&
    $$_->{class_info}{name} eq 'HTMLImageElement'
} map {
    values %$_
} values %{ $h->[1] };