ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitriy Kuvshinov 2:5020/400 08 Nov 2000 07:46:21
To : All
Subject : чего-то я не понял наверное...
--------------------------------------------------------------------------------
#!/usr/bin/perl -w
use POSIX qw(locale_h);
use DBI;
my $dbh = DBI->connect("dbi:XBase:EJ_STR.DBF")
|| die "Can't connect: $DBI::errstr";
my $sth = $dbh->prepare( q{
SELECT name, phone
FROM mytelbook
}) || die "Can't prepare statement: $DBI::errstr";
my $rc = $sth->execute
|| die "Can't execute statement: $DBI::errstr";
print "Query will return $sth->{NUM_OF_FIELDS} fields.\n\n";
print "Field names: @{ $sth->{NAME} }\n";
while (($name, $phone) = $sth->fetchrow_array) {
print "$name: $phone\n";
}
# check for problems which may have terminated the fetch early
die $sth->errstr if $sth->err;
$dbh->disconnect;
pereplet:~/bin/devel$ ./rr.pl
DBI->connect(EJ_STR.DBF) failed: Directory EJ_STR.DBF doesn't exist at ./rr.pl
line 6
Can't connect: Directory EJ_STR.DBF doesn't exist at ./rr.pl line 6.
pereplet:~/bin/devel$
Что бы это значило? И как тут писали в форуме пробовал, та-же ошибка. Почему
оно
как директорию спрашивает?
Дима
--
...
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
