48 |
my $duration_format = $workbook->add_format(num_format => 'hh:mm:ss'); |
my $duration_format = $workbook->add_format(num_format => 'hh:mm:ss'); |
49 |
my $header_format = $workbook->add_format(color => 'gray'); |
my $header_format = $workbook->add_format(color => 'gray'); |
50 |
my $pcnt_format = $workbook->add_format(num_format => '0.0%'); |
my $pcnt_format = $workbook->add_format(num_format => '0.0%'); |
51 |
|
my $size_format = $workbook->add_format(num_format => '#0'); |
52 |
|
|
53 |
my $formats = { |
my $formats = { |
54 |
duration => $duration_format, |
duration => $duration_format, |
55 |
sizeNewRatio => $pcnt_format, |
sizeNewRatio => $pcnt_format, |
56 |
sizeExistRatio => $pcnt_format, |
sizeExistRatio => $pcnt_format, |
57 |
|
size => $size_format, |
58 |
|
sizeNew => $size_format, |
59 |
|
sizeExist => $size_format, |
60 |
|
sizeNewComp => $size_format, |
61 |
|
sizeExistComp => $size_format, |
62 |
}; |
}; |
63 |
|
|
64 |
my $bpc = BackupPC::Lib->new || die; |
my $bpc = BackupPC::Lib->new || die; |
104 |
$f =~ s/##/($row+1)/ge; |
$f =~ s/##/($row+1)/ge; |
105 |
$worksheet->write($row, $i, $f, $formats->{$n}); |
$worksheet->write($row, $i, $f, $formats->{$n}); |
106 |
} else { |
} else { |
107 |
$worksheet->write($row, $i, $backup->{ $cols[$i] }); |
$worksheet->write($row, $i, $backup->{$col}, $formats->{$col}); |
108 |
} |
} |
109 |
} |
} |
110 |
$row++; |
$row++; |