cut sep=

diff --git a/bin/dbq b/bin/dbq
index fef81d7242e87d8f5995930d648412bdf32c67c1..46a35169d3f2a5536ec0b6a4410f255a5359d16b 100755 (executable)
--- a/bin/dbq
+++ b/bin/dbq
@@ -156,7 +156,7 @@ $keys{table} = $1 if $keys{db} and $keys{db} =~ s/:(.*)$//;
 # Parser
 #
 if ( $Opt{cut} ) {
-  open(STDOUT,"|cut -f $Opt{cut}");
+  open(STDOUT,"|cut -f $Opt{cut}".($keys{sep} ? " -d '$keys{sep}'" : ''));
   $keys{format} = 'csv';
   $keys{header} = '0' unless defined $keys{header};