in reply to Is there an is_deeply() outside of Test::More?

Seems every time I ask a question here, I end up finding a workable solution. It must be just the fact I'm speaking 'out loud' about the issue. The following seems to do what I'm after:

#!/usr/bin/perl
use warnings;
use strict;

use Data::Compare;

my %h = (a => [1, 2, 3], b => [1, 2], c => 3);
my %x = (a => [1, 2], b => [1, 2], c => 3);

for (keys %h){
    my $y = Compare($h{$_}, $x{$_});  
    print "$_ :: $y\n";
}

__END__
$ ./comp.pl 
a :: 0
b :: 1
c :: 1

[download]

As always, I'm still absolutely open to suggestions.

Replies are listed 'Best First'.
Re^2: Is there an is_deeply() outside of Test::More?
by Your Mother (Archbishop) on Aug 14, 2015 at 22:57 UTC
    It must be just the fact I'm speaking 'out loud' about the issue.

    It has a couple names, including Rubber duck debugging. It's used by quite a few monks. I use a platypus, a Motoko Kusanagi figurine, various Papo dinosaurs, etc.

[reply]
      It has a couple names, including Rubber duck debugging.

      I force a co-worker to listen, preferably one not working on my project. Or my wife. Or my neighbour. Or whoever is nearby. Simply because they can ask questions. In almost all cases, when starting to explaining the problem did not help, the problem is a little detail that I did not explained well enough, simply because I did not understand it well enough, or because I misread that detail.

      Another trick that really helps me is to stop working on the problem. Lock the computer, leave the room or even the building. Take a short walk (5 min). Think about something completely different. Go through your shopping list, watch the stupid dog next door freaking out, or use the restroom. Whatever helps to get your brain out of "job mode" and to get some unrelated input. Go back to the computer and rethink your problem.

      Alexander

      --
      Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)
[reply]

        At work, I now code in Python. In my previous job, I was a Network Engineer. Both require extreme concentration while being able to see the big picture while working on numerous details and project parts simultaneously. I've always been one to take frequent short walks to reset my thinking, then when I get back to it, I've got a different mentality. It allows me to take a step back to the bigger picture again and see things in a new light.

        When it's raining and I'm at home coding on my own projects like today, I get up, play a bit of PS3 and have a beer, then come back to it.

        I'll even blabber to my girlfriend who looks at me dumbfounded, then she's surprised when I say "holy crap, I think I just figured it out!".

[reply]

      That's awesome Your Mother, thanks. I've never heard of that before :)

      I was a bit afraid I was leaning into the XY Problem, but consistently when I ask a question of the fellow Monks, I inevitably come up with a solution. Perhaps not the best solution, but I learn something new either way, then usually more experienced Monks provide far better solutions... which is why I try to describe the problem, along with what I've currently got.

      Cheers,

      -stevieb

[reply]
Re^2: Is there an is_deeply() outside of Test::More?
by Hermano23 (Beadle) on Aug 14, 2015 at 21:06 UTC
    I've had good experiences using Data::Compare in the past. One of the reviews notes that it is quite a bit slower than is_deeply(), but I've never used it on anything especially large.
[reply]

      Yeah... and the following code looks a hell of a lot better than before...

          # set up for caching

    my @unsafe_cache_params
      = qw(file extensions include exclude search);

    my $current = $self->{params};
    my $previous = $self->{previous_run_config};

    $self->{cache_safe} = 0;

    for (@unsafe_cache_params){
        $self->{cache_safe}
          = Compare($current->{$_}, $previous->{$_});

        last if ! $self->{cache_safe};
    }

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom