#!/usr/bin/perl

# started on jan 30, 2007. continued on feb 1, 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));

print("Gene $query_gene has ", get_num_interactors($network, $query_gene),
      " interactors.\n");

$query_gene = "YFL039C";
print("Gene $query_gene has ", get_num_interactors($network, $query_gene),
      " interactors.\n");
# delete $query_gene.
delete_gene($network, $query_gene);

print("After deleting $query_gene, the network has ",
      get_num_interactions($network), " interactions.\n");
