#!/usr/bin/perl

# started on feb 6, 2007.
use strict;
use warnings;

use Data::Dumper;

use Network;

my ($file, $network, $query_gene);

$file = "data/2006-07-06-GRID-ORGANISM-Saccharomyces_cerevisiae-2.0.20.tab.txt";
$query_gene = "query";

$network = read($file);
# Dumper prints out the internals of any data structure, if passed a
# reference.
#print(Dumper($network));

my ($degree_distribution);
$degree_distribution = get_degree_distribution($network);


# print the degree distribution.
foreach my $degree (sort {$b <=> $a} keys %$degree_distribution)
  {
    print("$degree: ", $degree_distribution->{$degree}, "\n");
  }
