Below please find the error message, current path, code, and .pm. I'm
using active perl on win2k. I added threesharp.pm to
C:\Perl\site\lib\AnyData\Format\ with the other .pm files.
I think my path needs help. This is my first attempt at DBI code below.
What should I be looking for to add to the path...if that's what
the problem is(?)
Thanks
C:\Documents and Settings\Administrator\Desktop\threesharp>perl
threesharp.pl
Can't locate object method "ad_catalog" via package "DBI::db" at
threesharp.pl line 9.
----------------------------------------------------------
PATH=C:\Perl\bin\;C:\WINNT\system32;C:\WINNT;C:\WINNT\System32\Wbem
-----------------------------------------------------------
#!/usr/bin/perl -w
use strict;
use DBI;
my $file_name='C:\Documents and
Settings\Administrator\Desktop\threesharp\datatest.threesharp';
my $table_name='pips';
my $dbh = DBI->connect('dbi:AnyData(RaiseError=1):');
$dbh->ad_catalog( $table_name, 'ThreeSharp', $file_name);
my $sth = $dbh->prepare("SELECT field1, field2 FROM $table_name");
$sth->execute();
while (my $row = $sth->fetch) {
print "@$row\n";
}
----------------------------------------------------------------
package AnyData::Format::ThreeSharp;
use base 'AnyData::Format::Base';
sub write_fields { shift; sprintf "%s\n",join '###',@_ }
sub read_fields { split '###', $_[1] }
1;
--
http://www.fastmail.fm - Does exactly what it says on the tin
