ambiser
/
btrbk
mirror of https://github.com/digint/btrbk
9
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

btrbk: support custom table format

pull/358/head
Axel Burri 2020-12-20 20:12:20 +01:00
parent 792c3de6c0
commit 2c4827ca9f
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
btrbk
View File

@ -5056,6 +5056,14 @@ sub print_formatted(@)
my $fh = $args{outfile} // *STDOUT; my $fh = $args{outfile} // *STDOUT;
my $table_spacing = 2; my $table_spacing = 2;
if($format =~ s/^col:\s*(h:)?\s*//) {
$args{no_header} = 1 if($1);
$key_defs = []; $ralign = {};
foreach (split(/\s*,\s*/, $format)) {
$ralign->{$_} = 1 if s/:R(ALIGN)?$//i;
push @$key_defs, lc($_);
}
}
unless($key_defs) { unless($key_defs) {
WARN "Unsupported output format \"$format\", defaulting to \"$default_format\" format."; WARN "Unsupported output format \"$format\", defaulting to \"$default_format\" format.";
$key_defs = $table_format->{$default_format} || die; $key_defs = $table_format->{$default_format} || die;