L~R:

Since you asked in the ChatterBox for a recursive version, I thought I'd take up the challenge. Here's my take on a recursive solution:

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

my %net = (
        '1.2.3.3' => ['1.2.3.4'],
        '1.2.3.4' => ['1.2.3.3', '1.2.3.5', '1.2.3.7'],
        '1.2.3.5' => ['1.2.3.4', '1.2.3.6', '1.2.3.7'],
        '1.2.3.6' => ['1.2.3.5', '1.2.3.7'],
        '1.2.3.7' => ['1.2.3.6', '1.2.3.4', '1.2.3.5'],
);

my %visited=();
my @stack=();

print find_path('1.2.3.4', '1.2.3.6') || "no solution!";

sub find_path {
        my ($beg, $end) = @_;

        return $end if $beg eq $end;

        $visited{$beg}=1;

        for my $try (@{$net{$beg}}) {
                if (!defined($visited{$try})) {
                        push @stack, $beg;
                        my $t = find_path($try, $end);
                        return $beg.'=>'.$t if $t;
                        pop @stack;
                }
        }
        undef;
}

[download]
--roboticus

In reply to Re^2: traversing a hash looking for path? by roboticus
in thread traversing a hash looking for path? by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.