Показать сообщение отдельно
Старый 11.11.2004, 12:32
Timofey вне форума Посмотреть профиль Отправить личное сообщение для Timofey Найти все сообщения от Timofey
  № 1  
Timofey

Регистрация: 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