File Coverage

blib/lib/AnyData/Format/Pipe.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition	2	4	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	24	27	88.8

#########################################################
package AnyData::Format::Pipe;
#########################################################
# copyright (c) 2000, Jeff Zucker
# all rights reserved
#########################################################

=head1 NAME

AnyData::Format::Pipe - tiedhash & DBI/SQL access to Pipe delimited files

=head1 SYNOPSIS

 use AnyData;
 my $table = adHash( 'Pipe', $filename,'r',$flags );
 while (my $row = each %$table) {
     print $row->{name},"\n" if $row->{country} =~ /us|mx|ca/;
 }
 # ... other tied hash operations

 OR

  use DBI
 my $dbh = DBI->connect('dbi:AnyData:');
 $dbh->func('table1','Pipe', $filename,$flags,'ad_catalog');
 my $hits = $dbh->selectall_arrayref( qq{
     SELECT name FROM table1 WHERE country = 'us'
 });
 # ... other DBI/SQL operations

=head1 DESCRIPTION

This is a plug-in format parser for the AnyData and DBD::AnyData modules. It will read column names from the first row of the file, or accept names passed by the user.  In addition to column names, the user may set other options as follows:

  col_names   : a pipe separated list of column names

If you are using this with DBD::AnyData, put ad_ in front of the flags, e.g.
ad_eol.

Please refer to the documentation for AnyData.pm and DBD::AnyData.pm
for further details.

=head1 AUTHOR & COPYRIGHT

copyright 2000, Jeff Zucker
all rights reserved

=cut

use strict;
use warnings;
use AnyData::Format::CSV;
use vars qw( @ISA $VERSION);
@AnyData::Format::Pipe::ISA = qw( AnyData::Format::CSV );

$VERSION = '0.12';

sub new {
    my $class = shift;
    my $flags = shift || {};
    $flags->{field_sep} ||= q(\|);
#    $flags->{field_sep} ||= q(\s*\|\s*);
#    my $self  = AnyData::Format::CSV::->new({
    my $self  = new AnyData::Format::CSV({
        %$flags
    });
    return bless $self, $class;
}
1;
__END__