From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DLAMBLEY / DBI-Shell-11.98 / lib / DBI / Format / CSV.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
—
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

              
# -*- perl -*-
# vim:ts=4:sw=4:aw:ai:
#
#   DBI::Format::CSV - a package for displaying result tables
#
#   Copyright (c) 2001, 2002  Thomas A. Lowery
#
#   The DBI::Shell::CSV module is free software; you can redistribute
#   it and/or modify it under the same terms as Perl itself.
#
use strict;
package DBI::Format::CSV;
our $VERSION = '11.98'; # VERSION
@DBI::Format::CSV::ISA = qw(DBI::Format::Base);
use Text::Abbrev;
use Text::Reform qw(form break_with);
use Text::CSV_XS;
sub header {
    my ($self, $sth, $fh, $sep) = @_;
        $self->SUPER::header($sth, $fh, $sep);
    $self->{'data'} = [];
    $self->{'formats'} = [];
        $self->{csv_obj} = Text::CSV_XS->new({
                        binary                  => 1,
                        sep_char                => $self->{sep},
                        always_quote    => 1,
                });
    my $names = $sth->{'NAME'};
        my $csv = $self->{csv_obj};
        my $status = $csv->print($fh, $names);
        $fh->print( "\n" );
        return 1;
}
sub row {
    my($self, $orig_row) = @_;
    my $i = 0;
    my @row = $self->SUPER::row([@$orig_row]); # don't alter original
        my $columns = $self->{'columns'};
        my $breaks      = $self->{'breaks'};
    my $fh = $self->{'fh'};
        my $csv = $self->{csv_obj};
        my $status = $csv->print($fh, \@row);
        $fh->print( "\n" );
    return ++$self->{rows};
}
sub trailer {
    my $self = shift;
#    $self->SUPER::trailer(@_);
} 
1;
=head1 NAME
DBI::Format::CSV - A package for displaying result tables
=head1 SYNOPSIS
=head1 DESCRIPTION
THIS PACKAGE IS STILL VERY EXPERIMENTAL. THINGS WILL CHANGE.
=head1 AUTHOR AND COPYRIGHT
Orignal Format module is Copyright (c) 1997, 1998
    Jochen Wiedmann
    Am Eisteich 9
    72555 Metzingen
    Germany
    Email: joe@ispsoft.de
    Phone: +49 7123 14887
SQLMinus is Copyright (c) 2001, 2002  Thomas A. Lowery
The DBI::Format::CSV module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 SEE ALSO
L<DBI::Shell>, L<DBI>, L<dbish>