Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
ensembl-gh-mirror
ensembl-hive
Commits
85187e3c
Commit
85187e3c
authored
Apr 08, 2015
by
Matthieu Muffato
Browse files
Merge branch 'version/2.2'
* version/2.2: Fixed the bacct (LSF) parser for multi-hosts jobs
parents
6a40d005
c7fe4e93
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
2 deletions
+10
-2
modules/Bio/EnsEMBL/Hive/Meadow/LSF.pm
modules/Bio/EnsEMBL/Hive/Meadow/LSF.pm
+10
-2
No files found.
modules/Bio/EnsEMBL/Hive/Meadow/LSF.pm
View file @
85187e3c
...
...
@@ -220,6 +220,8 @@ sub parse_report_source_line {
my
(
$exit_status
,
$exception_status
)
=
(''
x
2
);
my
(
$when_died
,
$cause_of_death
);
my
(
@keys
,
@values
);
my
$line_has_key_values
=
0
;
foreach
(
@lines
)
{
if
(
/^(\w+\s+\w+\s+\d+\s+\d+:\d+:\d+):\s+Completed\s<(\w+)>(?:\.|;\s+(\w+))/
)
{
$when_died
=
_yearless_2_datetime
(
$
1
);
...
...
@@ -230,10 +232,16 @@ sub parse_report_source_line {
$exception_status
=
$
1
;
$exception_status
=~
s/\s+/;/g
;
}
elsif
(
/^\s*CPU_T/
)
{
@keys
=
split
(
/\s+/
,
'
'
.
$_
);
$line_has_key_values
=
1
;
}
elsif
(
$line_has_key_values
)
{
@values
=
split
(
/\s+/
,
'
'
.
$_
);
$line_has_key_values
=
0
;
}
}
my
(
@keys
)
=
split
(
/\s+/
,
'
'
.
$lines
[
@lines
-
2
]);
my
(
@values
)
=
split
(
/\s+/
,
'
'
.
$lines
[
@lines
-
1
]);
my
%usage
;
@usage
{
@keys
}
=
@values
;
#warn join(', ', map {sprintf('%s=%s', $_, $usage{$_})} (sort keys %usage)), "\n";
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment