debug-pmids.pl

use Atlas::AtlasAdmin;
use Atlas::Common qw(
	connect_atlas
	create_atlas_site_config
	get_atlas_contrast_details
	get_log_file_header
	get_log_file_name
);
use Atlas::AtlasConfig::Reader qw(
	parseAtlasConfig
);
use Data::Dumper;
my $logger_config = q(
	log4perl.rootlogger					= INFO, SCREEN
	log4perl.appender.SCREEN			= Log::Log4perl::Appender::Screen
	log4perl.appender.SCREEN.stderr		= 0
	log4perl.appender.SCREEN.layout		= Log::Log4perl::Layout::PatternLayout
	log4perl.appender.SCREEN.layout.ConversionPattern = %-5p - %m%n
);


Log::Log4perl::init( \$logger_config );
my $logger = Log::Log4perl::get_logger;


my $atlasDB = connect_atlas;

my @expAccs = qw(E-GEOD-61141 E-GEOD-54705);
my $expAcc2title = $atlasDB->fetch_experiment_titles_from_atlasdb( \@expAccs, $logger );
my $expAcc2pmids = $atlasDB->fetch_pmids_from_atlasdb(\@expAccs, $logger );
my $expAcc2titlePMIDs = {};
foreach my $expAcc ( @expAccs ) {
  $expAcc2titlePMIDs->{ $expAcc }->{ "title" } = $expAcc2title->{ $expAcc };
  $expAcc2titlePMIDs->{ $expAcc }->{ "pmids" } = $expAcc2pmids->{ $expAcc };
}
print(Dumper($expAcc2title));
print(Dumper($expAcc2pmids));
print (Dumper($expAcc2titlePMIDs));