Форум Flasher.ru
Ближайшие курсы в Школе RealTime
Список интенсивных курсов: [см.]  
  
Специальные предложения: [см.]  
  
 
Регистрация Блоги Правила Справка Пользователи Календарь Поиск рулит! Сообщения за день Все разделы прочитаны
 

Вернуться   Форум Flasher.ru > Архив Flasher.ru > Программирование > Perl

Версия для печати  Отправить по электронной почте    « Предыдущая тема | Следующая тема »  
Опции темы Опции просмотра
 
Создать новую тему  
Старый 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

Создать новую тему   Часовой пояс GMT +4, время: 04:32.
Быстрый переход
  « Предыдущая тема | Следующая тема »  
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


 


Часовой пояс GMT +4, время: 04:32.


Copyright © 1999-2008 Flasher.ru. All rights reserved.
Работает на vBulletin®. Copyright ©2000 - 2021, Jelsoft Enterprises Ltd. Перевод: zCarot
Администрация сайта не несёт ответственности за любую предоставленную посетителями информацию. Подробнее см. Правила.