- fixed header output

- add quoting if value is not a number

lib/SLUB/LZA/TA/Output/CSV.pm

@@ -10,11 +10,17 @@ use namespace::autoclean -except => qr{SLUB::LZA::TA::.*};
 
 sub print_results($headers_ref, $result_ref) {
     binmode(STDOUT, ':encoding(UTF-8)');
-    say join(",", @{$headers_ref});
+    say join(",", map {
+        my $l = $_;
+        $l=~s/_//;
+        $l=~s/(.*)/"$1"/;
+        $l;
+    } @{$headers_ref});
     say join("\n", map {
         my $line = $_;
         my $res_line = join(
             ",",
+            map {m/^\d+(\.\d+)?$/ ? $_ : "\"$_\""}
             map {$line->{$_} // ""} @{$headers_ref}
         );
         $res_line;