На хостинге имею:
$ uname -a
FreeBSD 4.11-RELEASE-p17 #0: Fri May 5 01:55:14 MSD 2006
perl -v
This is perl, v5.8.6 built for i386-freebsd-64int
Дома имею:
$ uname -a
Linux Ubuntu 2.6.22-14-generic #1 SMP
$ perl -v
This is perl, v5.8.8 built for i486-linux-gnu-thread-multi
Дома не работает функция require(). На хостинге это все работает.
Пример кода:
#!/usr/bin/perl -w
use strict;
use DBI;
print "Content-type: text/html\\n\\n";
require(\'db.conf\');
my $sth = $dbh->prepare("select field1 from table2");
$sth->execute;
while ($ref = $sth->fetchrow_arrayref) {
print "$$ref[0]\\n";
}
my $rc = $sth->finish;
my $rc = $dbh->disconnect;
##############
# в файле db.conf вот эти строки
my $host = "u12345.mysql.masterhost.ru";
my $port = "3306";
my $user = "u12345";
my $pass = "password";
my $db = $user;
my $dbh = DBI->connect("DBI:mysql:$db:$host:$port",
$user,$pass);
##############
Причем если эти строки вставляю в сам скрипт, то все работает.
В чем засада. Вписывать реквизиты и коннектиться к базе в каждом скрипте очень не хочется. Да и не порядок это, когда что-то не работает. Помогите разобраться. Заранее спасибо всем.