Skip to content
Snippets Groups Projects
Commit 706fc9fb authored by Andreas Romeyke's avatar Andreas Romeyke
Browse files

- fixed header output

parent d0845e39
Branches
Tags
No related merge requests found
...@@ -16,7 +16,11 @@ use namespace::autoclean -except => qr{SLUB::LZA::TA::.*}; ...@@ -16,7 +16,11 @@ use namespace::autoclean -except => qr{SLUB::LZA::TA::.*};
sub print_results($header_ref, $result_ref) { sub print_results($header_ref, $result_ref) {
binmode(STDOUT, ':bytes'); binmode(STDOUT, ':bytes');
print join(CHR_VALUE_TERMINATOR, @{$header_ref}) . CHR_VALUE_TERMINATOR; print join(CHR_VALUE_TERMINATOR, map {
my $l = $_;
$l =~ s/_//;
$l;
} @{$header_ref}) . CHR_VALUE_TERMINATOR;
print CHR_ROW_TERMINATOR; print CHR_ROW_TERMINATOR;
print join("", map { print join("", map {
my $line = $_; my $line = $_;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment