Модули

Пример:

 package main;
 {	
   print "Hello!!!!!!!!";
 }

Пример:

 package mod1;
 {	
  @array = ('hello','bay','hay');
  sub proc1
  {
    print "@array 
";
  }
 }
 package main;
 {	
  mod1::proc1;
  print "@mod1::array 
";
 }

Результат:

  hello bay hay
  hello bay hay

Модуль можно так же определить и внутри другого модуля, всё делается точно также, только обращение к его содержимому выглядит так:

имя_модуля::имя_подмодуля::переменные_или_продрограмма

Пожалуй, наиболее полезным является создание библиотек - файлов с заключенными в них модулями. Имеются так же стандартные библиотеки, в unix они содержатся в каталоге /usr/lib/perl/, и имеют расширение 'pm'. Вы можете записать туда свою библиотеку и использовать её. Вернемся к созданию библиотек. Создайте файл с расширением pm и поместите его в указанный выше каталог.

#--------------------------------------------------
#  Главный файл можете поместить его куда хотите.
#--------------------------------------------------

use mod1;      # Подключение библиотеки mod1
mdo1::proc1;   # Использование подпрограммы из модуля mod1
proc2;	       # Почему то подпрограммы можно писать без ссылки на модуль
print "$mdo1::var1";    # Печать значения переменной и модуля
#----------END_FILE--------------------------------

#--------------------------------------------------
# Собственно сама библиотека, с именем файла
# mod1.pm, имя файла должно соответствовать 
# названию модуля.
#--------------------------------------------------

package mdo1; 
require Exporter;	# Нужна для экспорта перемененных и подпрограм
@ISA = qw(Exporter);	#  
@EXPORT = qw(proc1 proc2); # Экспорт процедур
@EXPORT_OK = qw( $var1 ); # Экспорт переменных
 $var1 = 10;
 $var2 = 10;
sub proc1
  {
    print "Hello!!!!!!!!!!";
  }
sub proc2
  {
    print "Привет!!!!!!!!";
  }

#------------END_FILE------------------------------