From 67d1afeca0e79009d6ed7a03cc91fcebe52ebffa Mon Sep 17 00:00:00 2001
From: Patrick Meidl <pm2@sanger.ac.uk>
Date: Fri, 4 Apr 2008 10:53:02 +0000
Subject: [PATCH] debug
---
misc-scripts/id_mapping/utils/dump_scores.pl | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/misc-scripts/id_mapping/utils/dump_scores.pl b/misc-scripts/id_mapping/utils/dump_scores.pl
index 14d8e70de9..c3e1eed3fa 100755
--- a/misc-scripts/id_mapping/utils/dump_scores.pl
+++ b/misc-scripts/id_mapping/utils/dump_scores.pl
@@ -67,11 +67,7 @@ my $conf = new Bio::EnsEMBL::Utils::ConfParser(
);
$conf->parse_options(
- 'mode=s' => 0,
'dumppath|dump_path=s' => 1,
- 'chromosomes|chr=s@' => 0,
- 'region=s' => 0,
- 'biotypes=s@' => 0,
);
# set default logpath
@@ -88,7 +84,6 @@ my $logger = new Bio::EnsEMBL::Utils::Logger(
-LOGPATH => $conf->param('logpath'),
-LOGAPPEND => $conf->param('logappend'),
-LOGLEVEL => $conf->param('loglevel'),
- -IS_COMPONENT => $conf->param('is_component'),
);
# initialise log
@@ -143,6 +138,7 @@ sub read_matrix {
return $matrix;
}
+
sub dump_scores {
my $type = shift;
my $matrix = shift;
@@ -155,7 +151,10 @@ sub dump_scores {
open(my $fh, '>', $logfile) or
throw("Unable to open $logfile for writing: $!");
+ #my $i = 0;
foreach my $entry (@{ $matrix->get_all_Entries }) {
+ #$logger->info($entry->to_string."\n");
+ #last if (++$i == 10);
print $fh ($entry->to_string."\n");
}
--
GitLab