comparison wsdl_hmdb.pl @ 22:453fbe98925a draft

" master branch Updating with tag :CI_COMMIT_TAG - - Fxx"

21:63ba1cb240b7

	
	my $cluster = 1 ;
	foreach my $mzs ( @{$submasses} ) {
#		print Dumper $mzs ;
		my $result = undef ;
		
		my ( $hmdb_masses, $nb_masses_to_submit ) = $oHmdb->prepare_multi_masses_query($mzs) ;
		my ($hmdb_adducts, $nb_selected_adducts) = $oHmdb->prepareAdductListFormat($adductType) ;
		
		print "\n\tSubmission of m/z cluster ".sprintf '%04s',$cluster."" if ($VERBOSE>1) ;

		
#		print Dumper $hmdb_pages ;
		
		sleep(1) ;
		
		($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(1) ;
		$cluster ++ ;
	}
	

22:453fbe98925a

	
	my $cluster = 1 ;
	foreach my $mzs ( @{$submasses} ) {
#		print Dumper $mzs ;
		my $result = undef ;
		my $cleanedResult = undef ;
		
		my ( $hmdb_masses, $nb_masses_to_submit ) = $oHmdb->prepare_multi_masses_query($mzs) ;
		my ($hmdb_adducts, $nb_selected_adducts) = $oHmdb->prepareAdductListFormat($adductType) ;
		
		print "\n\tSubmission of m/z cluster ".sprintf '%04s',$cluster."" if ($VERBOSE>1) ;

		
#		print Dumper $hmdb_pages ;
		
		sleep(1) ;
		
		## hard modification with $max_query fixed at 1000 !!! Need to be refactoring
		## Cutof will be done in next method after URI check
		($result) = $oHmdb->parse_hmdb_csv_results($hmdb_pages, $mzs, 1000) ; ## hash format result
		
		## This previous step return results with cutoff on the number of entries returned !
		
		## clean/max result by testing each HMDB_ID page in HMDB
		($cleanedResult) = $oHmdb->checkHmdbUrlEntries($CONF->{'HMDB_METABOCARD_URL'}, $result, $max_query ) ;
				
		$results = [ @$results, @$cleanedResult ] ;
		
#		sleep(1) ;
		$cluster ++ ;
	}