![]() |
|
|
![]() |
![]() |
« Предыдущая тема | Следующая тема » |
Опции темы | Опции просмотра |
|
![]() |
|
|||||
Регистрация: Feb 2001
Сообщений: 127
|
![]() есть у меня головной скрипт и есть свои модули из которых он дергает процедуры и возникла проблема с видимостью переменных ,т.е.
#!/usr/bin/perl -w # index use DBI; use CGI qw/:standard/; print "Content-Type: text/html\n\n"; #мои модули require 'modules/pricetemp.cgi'; require 'modules/maintemp.cgi'; require 'config.txt'; #вызываю процедуры из модулей pack1::convert_param(); pack1::date_format(); $dbh = DBI->connect("dbi:$dbdriver:$basename:$hostname:$port","$username","$passwordb") || die print "$DBI::errstr"; .... сам модуль package pack1; BEGIN{} .... sub formating_date($$$$) { my $sqlstatement1 = "SELECT DATE_FORMAT($_[3],'%d.%m.%Y %T') FROM $_[2] WHERE $_[0]=$_[1]"; my $sth1 = $dbh->prepare($sqlstatement1); $sth1->execute || die print "$DBI::errstr"; @format_date=$sth1->fetchrow_array; # formating_date("id_request",$type_request[0],"type_request","date_publication"); } и тут засада, как быть с переменной для доступа к базе $dbh |
![]() |
Часовой пояс GMT +4, время: 03:57. |
|
« Предыдущая тема | Следующая тема » |
Опции темы | |
Опции просмотра | |
|
|