Архив форумов ЦИТФорума

[Dmitry.Karpov http://prof]

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

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

[ugz]

Лучше всего, разумеется, вынести все общие куски кода в модуль и подключать его use.

Но можно сделать и совсем просто:

---test.pl-------------------------------
#!/usr /bin/perl -w

use strict;

# Получить точный путь к разделяемому куску.
# Подразумевается, что он лежит там же где и
# запускаемая программа.
my $path_to_shared;
($path_to_shared = $0) =~ s#/[^/]*$##;

# Загрузить и выполнить
do "$path_to_shared/shared.pl";

for (1..10)
{
print counter(), "\n";
}
-----------------------------------------

Чтобы переменные не были видны остальной программе их нужно завернуть в {...} и объявлять как my. (Именованные подпрограммы в любом случае видны глобально).

--------shared.pl-------------------------
{
my $c;
sub counter
{
return ++$c;
}
}
-------------------------------------------

В сети где-то валяется в электронном виде "Perl Cookbook" Кристиансена и Торркингтона (изд. O'Reilly). Там все описано намного лучше.