#!/usr/bin/perl -w
#
# db_to_csv.pm
# Copyright (C) 2007-2018 by John Heidemann <johnh@isi.edu>
#
# This program is distributed under terms of the GNU general
# public license, version 2. See the file COPYING
# in $dblibdir for details.
#
=head1 NAME
db_to_csv - convert fsdb to the comma-separated-value file-format
=head1 SYNOPSIS
db_to_csv [-C]
=head1 DESCRIPTION
Covert an existing fsdb file to comma-separated value format.
Input is fsdb format.
Output is CSV-format plain text (I<not> fsdb).
=head1 OPTIONS
=over 4
=item B<-C> or <--omit-comments>
Also strip all comments.
=back
=for comment
begin_standard_fsdb_options
This module also supports the standard fsdb options:
=over 4
=item B<-d>
Enable debugging output.
=item B<-i> or B<--input> InputSource
Read from InputSource, typically a file name, or C<-> for standard input,
or (if in Perl) a IO::Handle, Fsdb::IO or Fsdb::BoundedQueue objects.
=item B<-o> or B<--output> OutputDestination
Write to OutputDestination, typically a file name, or C<-> for standard output,
or (if in Perl) a IO::Handle, Fsdb::IO or Fsdb::BoundedQueue objects.
=item B<--autorun> or B<--noautorun>
By default, programs process automatically,
but Fsdb::Filter objects in Perl do not run until you invoke
the run() method.
The C<--(no)autorun> option controls that behavior within Perl.
=item B<--help>
Show help.
=item B<--man>
Show full manual.
=back
=for comment
end_standard_fsdb_options
=head1 SAMPLE USAGE
=head2 Input:
#fsdb -F S paper papertitle reviewer reviewername score1 score2 score3 score4 score5
1 test, paper 2 Smith 4 4 - - -
2 other paper 3 Jones 3 3 - - -
2 input double space 3 Jones 3 3 - - -
# | csv_to_db
=head2 Command:
cat data.fsdb | db_to_csv
=head2 Output:
paper,papertitle,reviewer,reviewername,score1,score2,score3,score4,score5
1,"test, paper",2,Smith,4,4,-,-,-
2,"other paper",3,Jones,3,3,-,-,-
2,"input double space",3,Jones,3,3,-,-,-
# | csv_to_db
# | db_to_csv
=head1 SEE ALSO
L<Fsdb>.
L<dbfilealter>.
L<csv_to_db>
=cut
# WARNING: This code is derived from db_to_csv.pm; that is the master copy.
use Fsdb::Filter::db_to_csv;
my $f = new Fsdb::Filter::db_to_csv(@ARGV);
$f->setup_run_finish; # or could just --autorun
exit 0;
=head1 AUTHOR and COPYRIGHT
Copyright (C) 2007-2018 by John Heidemann <johnh@isi.edu>
This program is distributed under terms of the GNU general
public license, version 2. See the file COPYING
with the distribution for details.
=cut
1;