#!/usr/bin/perl 

BEGIN {
          $| = 1;
          $^W = 1;
}

use autodie;
use strictures 1;

my %graph = (
          A => { 
                  B => '10.0.0.128', 
                  C => '10.0.0.132', 
                  G => '10.0.0.129',
          },
          C => { 
                  A => '10.0.0.135', 
                  B => '10.0.0.128',
                  F => '10.0.0.134',
          },
);

use Paths::Graph;
use strict qw/refs/;
use warnings FATAL => 'syntax';

my $obj = Paths::Graph->new( 
        -origin   => "A", 
        -destiny => "B", 
        -graph   => \%graph,
);
$obj->debug();

my @paths = $obj->shortest_path();
foreach my $path (@paths) {
        print "Shortest Path:"
        .  join( "->", @{$path} )
        .  " Cost:"
        .  $obj->get_path_cost( @{$path} );
        print "\n";
}
[download]

my %graph = <FILE>
[download]

I think that will get you a "%graph" hash with the first line as a key, the 2nd line as a value, and so on so forth...

Try adding this right after you load %graph and see what it prints:

foreach my $k(keys %graph) {
    print "<<<<<\n$k     ===>>>>  $graph{$k}\n>>>>>\n"
}
[download]

Thank you very much , but my purpose is not to print file here, my purpose is to read file and calculate the shortest distance between desitantion and origin, which my code is not calculating the problem is not with path calculation here but it is in reading file. Please suggest on this issue.

Why not structure your data as correct perl, then just read it in and eval it?

# data file
(
    # Quoting the dotted quads since => will not quote 
    # those correctly
    '10.0.0.128' =>
        {
           '10.0.0.129'=>3,
           '10.0.0.129'=>4,
           '10.0.0.130'=>3,
           '10.0.0.131'=>2,
           '10.0.0.132'=>1,
           '10.0.0.133'=>1,
           '10.0.0.134'=>2,
           '10.0.0.135'=>4,
           '10.0.0.136'=>1,
           '10.0.0.137'=>4,
           '10.0.0.138'=>3
        },
    '10.0.0.129' =>
        {
           '10.0.0.128'=>3,
           '10.0.0.130'=>1,
           '10.0.0.131'=>2,
           '10.0.0.132'=>1,
           '10.0.0.133'=>2,
           '10.0.0.134'=>1,
           '10.0.0.135'=>2,
           '10.0.0.136'=>3, # the > was missing on this line...
           '10.0.0.137'=>3,
           '10.0.0.138'=>4
        },
);
[download]

Now your reading code can simply be:

my $x=join "",<FILE>;
my %graph = eval $x;
[download]


Mike