AnyData::Format::Fixed - tiedhash & DBI/SQL access to Fixed length data
use AnyData;
my $table = adHash( 'Fixed', $filename,'r',{pattern=>'A20 A2'} );
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','Fixed', $filename, {pattern=>'A20 A2'},'ad_catalog');
my $hits = $dbh->selectall_arrayref( qq{
SELECT name FROM table1 WHERE country = 'us'
});
# ... other DBI/SQL operations
This is a parser for fixed length record files. You must specify an unpack
pattern listing the widths of the fields e.g. {pattern=>'A3 A7 A20'}. You
can either supply the column names or let the module get them for you from the
first line of the file. In either case, they should be a comma separated
string.
Refer to <http://perldoc.perl.org/functions/pack.html> for
the formatting of the pattern.
Please refer to the documentation for AnyData.pm and
DBD::AnyData.pm for further details.
copyright 2000, Jeff Zucker <jeff@vpservices.com> all rights reserved