Мне нужно создать сервер. Сейчас там уже установлен и настроен апач и перл. CGI сценарии работают. Но
dbmopen не работет! Вообще. Не создает никаких файлов. И не выдает никаких ошибок... Как сделать так что б они все же работали????

Не все операционки работают с DBM файлами. Узнай установлен у тебя на сервере модуль DB_File, затем пиши сюда.

Не знаю. В каталоге перла есть файл DB.pm
И есть DB_File.pm в каталоге i586-linux-thread-multi

Это типа он и есть?
Добавлено @ 12:48
Вот это код, который я использую для работы с BDM файлами

Код

#!/usr/bin/perl -w use CGI qw(:all); ############################################################################## ##        Объявление некоторых констант                    ##     $root_path    =    "../cgi-bin";     $docs_path    =    "../www"; ############################################################################## dbmopen(%a, "$docs_path/hash/admin_pass",0644); print header( -charset => 'Windows-1251' ); $a{'12345'} = '12345';

rcdimon укажи полные пути и поставь права на запись в эти папки

путь /usr/lib/perl5/5.8.1/

Код

$root_path    =    "../cgi-bin";     $docs_path    =    "../www";

вот тут пути поставь полные и на эти же папки надо поставить права на запись.

Попробой такой код:

Код

#!/usr/bin/perl use strict; use DB_File; my $file = "mybdm"; my %dbm  = (); tie( %dbm, 'DB_File', $file, 0644 ) or die "Can't open DBM file: $!\n"; $dbm{1} = 'Perl'; $dbm{2} = 'Delphi'; untie( %dbm );

Если в том же каталоге, где находится и сам скрипт появится файл "mydbm", значит всё работает.

korob2001, не работает.

А что пишет??? Если не знаешь, то допиши в начало кода строку:

Код

use CGI::Carp qw( fatalsToBrowser );

Это сообщение отредактировал(а) korob2001 - 27.4.2005, 14:35

И без DB_FIle работает
$key="hehe"
get_lock('gamelimit');
dbmopen(%baza ,"gamelimit",0666) || die;
$baza{$key}="sssss";
dbmclose(%baza);
relase_lock('gamelimit');

А может весь глюк в правах доступа. Которые вы указываете при dbmopen и которые стоят на самом перле и на папке, где он создает файл

Цитата

И без DB_FIle работает

Гость_frenky - да это мы знаем, просто DBM файл открытый с dbmopen у чела изначально не работал, DBM созданные с помощью DB_File имеют абсолютно другую стрктуру.

Я немного попарился: Изменил права на директории где хранятся DBM'ки. Изменил права самого скрипта и т.д. Короче сами файлы создаются и имеют размер 12Кб. Но в них ничего не записывается и не считывается

rcdimon - это нормальное явление, так что не стоит удивляться. Такова природа DBM файлов, они хранят не только информацию помещённую в них из вне, но и информацию о своей структуре, именно по этой причине работать с DBM'кой так же быстро, как и с обычным хешем.

Вот так делаем запись:

Код

dbmopen( %dbm, "myfile", 0644 ) or die $!;    $dbm{ 1 } = "Ля-ля-ля"; dbmclose( %dbm );

А вот так считываем:

Код

dbmopen( %dbm, "myfile", 0644 ) or die $!;    print $dbm{ 1 }; dbmclose( %dbm );

Если создавал файл с помощью, DB_File, то открывать его нужно таким же способом, потому как у них абсолютно разная структура.

Это сообщение отредактировал(а) korob2001 - 6.5.2005, 11:12