comparison wsdl_hmdb.pl @ 14:625fa968d99a draft

Master branch Updating - - Fxx

13:3587cb923890

	foreach my $mzs ( @{$submasses} ) {
#		print Dumper $mzs ;
		my $result = undef ;
		my ( $hmdb_masses, $nb_masses_to_submit ) = $oHmdb->prepare_multi_masses_query($mzs) ;
		$hmdb_pages = $oHmdb->get_matches_from_hmdb_ua($hmdb_masses, $delta, $molecular_species) ;
		($result) = $oHmdb->parse_hmdb_csv_results($hmdb_pages, $mzs, $max_query) ; ## hash format result
		## This previous step return results with cutoff on the number of entries returned ! 
		$results = [ @$results, @$result ] ;
	}
	
	## foreach metabolite get its own metabocard
	$hmdb_ids = $oHmdb->get_unik_ids_from_results($results) ;
#	$hmdb_ids->{'HMDB03125'} = 1 ,

14:625fa968d99a

	foreach my $mzs ( @{$submasses} ) {
#		print Dumper $mzs ;
		my $result = undef ;
		my ( $hmdb_masses, $nb_masses_to_submit ) = $oHmdb->prepare_multi_masses_query($mzs) ;
		$hmdb_pages = $oHmdb->get_matches_from_hmdb_ua($hmdb_masses, $delta, $molecular_species) ;
		
#		print Dumper $hmdb_pages ;
		
		sleep(2) ;
		
		($result) = $oHmdb->parse_hmdb_csv_results($hmdb_pages, $mzs, $max_query) ; ## hash format result
		## This previous step return results with cutoff on the number of entries returned ! 
		$results = [ @$results, @$result ] ;
		
		sleep(2) ;
	}
	
	## foreach metabolite get its own metabocard
	$hmdb_ids = $oHmdb->get_unik_ids_from_results($results) ;
#	$hmdb_ids->{'HMDB03125'} = 1 ,