Программирование > Perl

Соединение с базой

<< < (2/3) > >>

mookee:
Есть пакет, в котором есть некоторое кол-во функций работающих с базой (выборка, запись и т.п.), и вот в каждой функции я соединяюсь с базой и отключаюсь в конце. В основном скрипте загружаю пакет и потом вызываю функции.

mookee:
frenky
можно пример?

commander:
mookee
блин...

#!/usr/bin/perl -w
use strict;

   connect;

   my $var=Select("ha-ha-ha");

   disconnect;

print "Content-type: text/html\\n\\n";
print "Hello world $var!\\n";


sub connect
{
 ......
    return 1;
}
sub disconnect
{
 ......
    return 1;
}

sub Select {

return ...;
}

mookee:
tnx

commander:
mookee
а вообще лучше все это в модуль запихать... и не париццо... connect - будет конструктором... а disconnect - диструктором...

Навигация

[0] Главная страница сообщений

[#] Следующая страница

[*] Предыдущая страница