After learning graphs in Java, I thought I'd try to do the same in perl. I'll admit that I've never tried something that used references as heavily as this, but somehow I expected it to work exactly the way I wanted. I'm also not sure if the first two push statements are doing what I think they do. UPDATE: here is the rest of the source code/ data file

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
@ARGV = 'roads.dat';
my (@lines,@edge,%verts);
while(<>){
   chomp;
   push @lines, [split ",", $_];
}
map push(@edge, load(@{$_})), @lines;
foreach my $edge(@edge){
   my($from,$to)=($verts{$edge->{From}},$verts{$edge->{To}});
   push @{$from->{Edges}}, $edge;
   push @{$to->{Edges}}, $edge;
   print map "$_->{Cost} " , @{$verts{"East Jordan"}->{Edges}};
   #print ${$edge}{To};
   ${$to}{Cost}=${$from}{Cost}=99999999;
}

push my @queue, $verts{"East Jordan"};
${$verts{"Ellsworth"}}{Cost}=0;
while(@queue ne 0){
   my $town = shift @queue;
   my $cost = $town->{Cost};
   print " | ";
   print map "$_->{Cost} ", @{$verts{$town}->{Edges}};
   foreach(@{$verts{$town}->{Edges}}){
      print"[runs]";
      my $other = $verts{opposite($_,$town)};
      if($cost+$_->{Cost} < $other->{Cost}){
         $other->{Cost}=$cost+$_->{Cost};
         $other->{Last}=$_;
         push @queue, $other; 
      }
   }
}
print map "$_->{Name} $_->{Cost} $_->{From} $_->{To}\n", @edge;
print Dumper(\%verts,\@edge);
sub opposite{
   if($verts{${$_[0]}{From}} eq $_[1]){
      $_[0]->{To};
   } elsif ($verts{$_[0]->{To}} eq $_[1]){
      $_[0]->{From};
   } else {
      die "opposite failed, ",$!;
   }
}
sub load{
   {Name => $_[0],
    Cost => $_[1],
    From => "$_[2]",
    To   => "$_[3]",};
}
[download]

with data file roads.dat

A,5,Ellsworth,East Jordan
C,12,Ellsworth,Bellaire
B,30,Bellaire,East Jordan
D,19,East Jordan,Charleviox
E,45,Ellsworth,Elk Rapids
F,22,East Jordan,Elk Rapids
G,2,East Jordan,Atwood
H,14,Atwood,Charleviox
[download]

This outputs 12 12 30 12 30 12 30 12 30 12 30 12 30 |

Where if I replace East Jordan with Bellaire, it will print out: 12 12 30 12 30 12 30 12 30 12 30 12 30 | 12 30 runs

And so, if the two strings match, it runs fine, but if they don't, it stops short. But it should work for any string in the data file. What is going on. BTW I'm using 5.8.8 FURTHER UPDATES: print Dumper(\%verts,\@edge); ouputs the following,which makes me wonder why East Jordan never got edge A, as well as how sharing might work in the future.

$VAR1 = {
          'HASH(0x9f646ec)' => {
                                 'Edges' => []
                               },
          'Ellsworth' => {
                           'Cost' => 0
                         },
          'East Jordan' => {
                             'Cost' => 99999999,
                             'Edges' => [
                                          {
                                            'To' => 'East Jordan',
                                            'Cost' => '30',
                                            'Name' => 'B',
                                            'From' => 'Bellaire'
                                          },
                                          {
                                            'To' => 'Charleviox',
                                            'Cost' => '19',
                                            'Name' => 'D',
                                            'From' => 'East Jordan'
                                          },
                                          {
                                            'To' => 'Elk Rapids',
                                            'Cost' => '22',
                                            'Name' => 'F',
                                            'From' => 'East Jordan'
                                          },
                                          {
                                            'To' => 'Atwood',
                                            'Cost' => '2',
                                            'Name' => 'G',
                                            'From' => 'East Jordan'
                                          }
                                        ]
                           }
        };
$VAR2 = [
          {
            'To' => 'East Jordan',
            'Cost' => '5',
            'Name' => 'A',
            'From' => 'Ellsworth'
          },
          {
            'To' => 'Bellaire',
            'Cost' => '12',
            'Name' => 'C',
            'From' => 'Ellsworth'
          },
          $VAR1->{'East Jordan'}{'Edges'}[0],
          $VAR1->{'East Jordan'}{'Edges'}[1],
          {
            'To' => 'Elk Rapids',
            'Cost' => '45',
            'Name' => 'E',
            'From' => 'Ellsworth'
          },
          $VAR1->{'East Jordan'}{'Edges'}[2],
          $VAR1->{'East Jordan'}{'Edges'}[3],
          {
            'To' => 'Charleviox',
            'Cost' => '14',
            'Name' => 'H',
            'From'
          }
        ];
[download]

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.