view release on metacpan or  search on metacpan

scripts/get_abundance_profile  view on Meta::CPAN

#!perl
use strict ;
use warnings;
use JSON;
use Getopt::Long;
use LWP::UserAgent ;
use HTTP::Request::Common;

use Bio::KBase;

use Data::Dumper;

my $mgid   = "mgm4447970.3" ;
my $type   = "function";
my $format = 'plain' ;
my $source = 'Subsystems';
my $debug  = 0 ;

scripts/get_abundance_profile  view on Meta::CPAN

my $ua = LWP::UserAgent->new;
$ua->agent("KBASE/0.1 ");


# Create a request
my $base_url = "http://dev.metagenomics.anl.gov/api.cgi/" ;
#my $base_url = "http://dunkirk.mcs.anl.gov/~tharriso/mgrast/api.cgi/";
my $url      = $base_url . "abundance_profile/".$mgid."?format=".$format."&type=".$type."&source=".$source;

my $req = HTTP::Request->new(GET => "$url");
my $res = $ua->request($req);

if ($res->is_success){

  if ($res->header('Content-Type') eq "application/json") {
    
    my $json = JSON->new->allow_nonref;
    my $biom = $json->decode( $res->decoded_content ); 
   
    # transform biom into plain list