К вопросу о бд на PERL
Ребята никак не могу запустить бд на локальной машине, не подскажите какие модули для perla нужны для этого.
В интернете работает.
В cgi-скрипте который открывает бд написано:
#!/usr/bin/perl
#use CGI qw(:standart);
print "Content-type: text/html\n\n";
dbmopen(%NEWS, "db/newslist", 0644);
...
...
...
А в админовском скрипте написано:
#!/usr/bin/perl
#use CGI qw(:standart);
В интернете работает.
В cgi-скрипте который открывает бд написано:
#!/usr/bin/perl
#use CGI qw(:standart);
print "Content-type: text/html\n\n";
dbmopen(%NEWS, "db/newslist", 0644);
...
...
...
А в админовском скрипте написано:
#!/usr/bin/perl
#use CGI qw(:standart);
у меня база MySQL и стоят два модуля
DBI-1.13 и DBD-mysql-2.0902 скачиваются в интернете и ставятся на ура.
Ну а потом
use mysql;
$host="localhost"; #если своя машина
$db ="название базы";
$username="user_mysql-я";
$pass="пароль";
$dbh = Mysql->Connect($host, $db, $username, $pass) or die "Mysql connect error!";
$query="текст запроса";
$sth = $dbh->Query($query) or die "Incorrect query!";
@data = $sth->FetchCol;
#или
@data = $sth->FetchRow;
DBI-1.13 и DBD-mysql-2.0902 скачиваются в интернете и ставятся на ура.
Ну а потом
use mysql;
$host="localhost"; #если своя машина
$db ="название базы";
$username="user_mysql-я";
$pass="пароль";
$dbh = Mysql->Connect($host, $db, $username, $pass) or die "Mysql connect error!";
$query="текст запроса";
$sth = $dbh->Query($query) or die "Incorrect query!";
@data = $sth->FetchCol;
#или
@data = $sth->FetchRow;
Не мне надо чтобы именно в перле было.
Так как в этой бд уже есть значения.
Так как в этой бд уже есть значения.
Цитата:
Originally posted by CoolDV
Не мне надо чтобы именно в перле было.
Так как в этой бд уже есть значения.
Не мне надо чтобы именно в перле было.
Так как в этой бд уже есть значения.
perldoc -f dbmopen так и не был прочитан
Прочитал, но там не написано как эти бд создавать и какие модули для этого нужны
Цитата:
Originally posted by CoolDV
Прочитал, но там не написано как эти бд создавать и какие модули для этого нужны
Прочитал, но там не написано как эти бд создавать и какие модули для этого нужны
Стандартная перловая функция => ни каких дополнительных модулей не требуется ;)=
ps В догонку набери-ка
perldoc -f tie
Думаю будет полезно.