Na verdade, existe um campo de bpdbjobs -all_columns
que parece com '06 / 09/09 19:41:27 - terminar de escrever; escrever tempo: 000: 06: 56 '. Pode aparecer várias vezes para um trabalho e nem sempre no mesmo índice. Mas minha iteração em todos os campos é fácil de analisá-los e convertê-los em segundos e adicionar tudo isso.
Algo como:
sub stripLeadZeros {
my $number = shift;
$number =~ s/^0+//;
return $number;
}
sub parseWriteTime {
my $writeString = shift;
if ( $writeString =~ /([0-9]{3}):([0-9]{2}):([0-9]{2})/ ) {
my $hours = stripLeadZeros($1) || 0;
my $minutes = stripLeadZeros($2) || 0;
my $seconds = stripLeadZeros($3) || 0;
my $totalSec = (($hours * 60) * 60) + ($minutes * 60) + $seconds;
return $totalSec;
}
return 0;
}