создание библиотеки с подпрограммами

[Timofey]

подскажите как лучше и правильно релизовать следующее
есть целый набор подпрограмм,которые вызываются с разными параметрами, как мне вынести все эти подрограммы в отдельный файл и потом просто от туда их дергать?

[commander]

в чем проблемма? запихиваешь их в отдельный файл... потом в скрипте его подключаешь:
-------------------
use lib \'.\';
use mydll.pl;
или
require "mydll.pl";

и пользуешся...

[Timofey]

а в чем разница?

[commander]

Timofey

а в чем разница?

лучше не задавай столь провакационные вопросы... Дискусии по этому вопросу на моей памяти доходити до 10 станиц... Народ с пеной у рта спорил по этому вопросу и все остались при своем мнении... просто юзай что больше нравиться...

[Chs]

perldoc perlmod

[commander]

да и ещё когда будешь создавать файл с подпрограммами не забудь:
mydll.pl
-------------------
sub my_sub
{
print "GO+";
}
1;  #вот ето.... Все файлы включения должны возращать значиние истены...
-------------------

[Timofey]

т.е. есть у меня

main.pl
--------
#!/usr/bin/perl
# index

use DBI;
use CGI qw/:standard/;
use vars qw(%form);

require \'main_sub.pl\';

print "Content-Type: text/html\\n\\n";

pack1::convert_param();
pack1::date_format();
.....

и есть main_sub.pl
--------------
package pack1;

BEGIN {}
sub convert_param()
 {
  .............
 }
sub date_format()
 {
  ............
 }
return 1;
END{}

запарно перед каждым вызовом подрограммы подставлять имя пакета pack1::convert_param(); и т.п. это можно обойти?

[commander]

ну можешь без пакетов юзать... просто подпрограммы...

[NeoNox]

Timofey:
запарно перед каждым вызовом подрограммы подставлять имя пакета pack1::convert_param(); и т.п. это можно обойти?

можно.
perldoc perlmod

[Timofey]

require \'templates/maintemp.pl\'; -работает
как в use указать путь к библиотеки

use \'templates/maintemp.pl\'; -не работает

[NeoNox]

Есть два варианта:
1. Я читаю тебе вслух и с выражением perldoc.
За это ты мне платиш 50$ в час.

2. Читать до того как сам не поймеш насколько неверен твой вопрос:
http://wdh.suncloud.ru/perl07.htm

[Mog.]

NeoNox:
1. Я читаю тебе вслух и с выражением perldoc.
За это ты мне платиш 50$ в час.

С выездом к клиенту?


[OFF]В "цитаты..." отправил[/OFF]

[commander]

3. Юзаешь require...

[NeoNox]

Mog. этой шутке уже лет 10, если не больше.
В оригинале звучит как:
\'Чтение документации вслух с выражением - $50/час.\'
commander не нужно require.
Лучше неделю на ОО и пакеты убить, зато потом можно двойное жалование на работе просить.

[commander]

NeoNox
"лучше пол дня потерять потом за час долететь..."
"Крылья, ноги.... Главное хвост!"