ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anton Potekhin 2:5020/400 14 Jul 2004 17:34:33
To : All
Subject : package
--------------------------------------------------------------------------------
Hello, All!
делаю такой пэкадж и записываю в модуль
package conf;
BEGIN {
use Exporter();
@ISA = qw(Exporter);
@EXPORT = qw(&connect &disconnect);
}
$driver = "mysql";
$database="spidergiveramp";
$hostname="localhost";
$user="root";
$password='scout';
sub connect {
....
}
sub disconnect {
....
}
return 1;
END { }
затем в скрипте пишу :
require 'conf.cgi';
$dbh = conf::connect();
то вызывается функция из моего модуля и все ок работает...
А Export не работает т.е
require 'conf.cgi';
$dbh = connect();
выдает ошибку.... что я не так делаю ? почему имена не экспортируются ?
With best regards, Anton Potekhin. E-mail: anton@orbita1.ru
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
