![]() |
![]() |
3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use CGI::Session;
use GO::Parser;
my $session = new CGI::Session("driver:File", undef, {Directory=>'/tmp/user'});
print $session->header();
my $parser = new GO::Parser({handler=>'obj'}); # create parser object
$parser->parse("anatomy.obo"); # parse file -> objects
my $graph = $parser->handler->graph; # get L<GO::Model::Graph> objec
$session->param('graph', $graph);
my $roots = $graph->get_top_nodes();
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use CGI;
use CGI::Session;
my $anfrage = CGI->new();
my $session = new CGI::Session("driver:File", undef, {Directory=>'/tmp/user/'});
my $node = $anfrage->param('node');
my $graph = $session->param('graph');
print $session->header(),
$anfrage->start_html("Hello world"),
$anfrage->h3("You selected node $node"),
$anfrage->p($graph->get_top_nodes());
$anfrage->end_html();
QuoteCan't locate object method "get_top_nodes" via package "GO::Model::Graph"
![]() |
![]() |
3 Einträge, 1 Seite |