свои модули и область видимости переменных
есть у меня головной скрипт и есть свои модули из которых он дергает процедуры и возникла проблема с видимостью переменных ,т.е.
#!/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, время: 18:02. |
Copyright © 1999-2008 Flasher.ru. All rights reserved.
Работает на vBulletin®. Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Администрация сайта не несёт ответственности за любую предоставленную посетителями информацию. Подробнее см. Правила.