Модуль Perl

sub hello { "Hello, world!\n" } print hello(); 

print "Hello, world!\n"; 

#!/usr/bin/perl # Підключення модуля та імпорт всіх його публічних функцій в простір назв програми   use Hello::World; # підключення модуля  print hello();             # друкує з модуля "Hello, world!\n" print hello("Milky Way");  # друкує "Hello, Milky Way!\n" 

package Hello::World; # Назва модуля й одночасно простір назв, де будуть знаходиться всі об'єкти модуля   use strict;   # включення перевірки, що всі зміні попередньо визначені та мають початкові значення use warnings; # показувати всі попередження компілятора - зазвичай, вони не відображаються, так як                # вважається що виконується скрипт користувача our $VERSION = '1.00'; # версія модуля, зберігається в $ModuleName::VERSION use base 'Exporter';   # підключення механізму експорту назв об'єктів модуля в простір програми our @EXPORT = qw(hello); # в масиві перераховуємо назви, які експортуємо   # Строки, що починаються із символу "=" є ознакою, що далі пішов текст документації  # в форматі POD, до стрічки, яка має починатись з "=cut"  =head1 NAME   Hello::World - An encapsulation of a common output message  =head1 SYNOPSIS   use Hello::World;   print hello();   print hello("Milky Way");  =head1 DESCRIPTION  Це процедурний модуль, який друкує привітання тому, кому вказано  в параметрі процедури. Інакше - просто "Hello, world!"  =head2 Functions     Доступні наступні функції   =head3 hello     print hello();     print hello($target);  Друкує привітання. Якщо C<$target> пусте, то замість нього використовується "world".  =cut     # безпосередньо сам код функції hello() sub hello {     my $target = shift;     $target = 'world' unless defined $target;          return "Hello, $target!\n"; } =head1 AUTHOR    Joe Hacker <joe@joehacker.org> =cut  # Важливо! Кожний модуль Perl має повертати ознаку, що він успішно завантажений. #  Це будь-яке значення, яке не "0" та не пусте. Інакше він не буде завантажений.  1; 

#!/usr/bin/perl  use Hello::World; my $hello = Hello::World->new;    $hello->print;                # друкує "Hello, world!\n"    $hello->target("Milky Way");    $hello->print;                # друкує "Hello, Milky Way!\n"  my $greeting = Hello::World->new(target => "Pittsburgh"); # створюємо інший об'єкт    $greeting->print;             # надрукує "Hello, Pittsburgh!\n"    $hello->print;                # все ще надрукує "Hello, Milky Way!\n" 

# Perl не має окремого визначення класу, на зразок зарезервованого слова 'class', #   простір назв і є клас. package Hello::World;  use strict; use warnings; our $VERSION = "1.00";  =head1 NAME Hello::World - узагальнене привітання   =head1 SYNOPSIS     use Hello::World;     my $hello = Hello::World->new();     $hello->print;   =head1 DESCRIPTION   Об'єктно-орієнтована бібліотека, що надає класичне "Hello word!" повідомлення.   =head2 Methods   =head3 new     my $hello = Hello::World->new();     my $hello = Hello::World->new( target => $target );  Екземпляри об'єкту, що містять привітання. Якщо C<$target> визначено,   то воно передається в C<< $hello->target >>.   =cut   # Конструктор об'єкта зазвичай має назву new(). Проте їм може бути будь-який метод  #  і конструкторів може бути декілька   sub new {  my($class, %args) = @_;    my $self = bless({}, $class);    my $target = exists $args{target} ? $args{target} : "world";  $self->{target} = $target;    return $self; }     =head3 target       my $target = $hello->target;     $hello->target($target);   Встановлює та повертає значення повідомлення. =cut   sub target {   my $self = shift;   if( @_ ) {       my $target = shift;       $self->{target} = $target;   }    return $self->{target}; }    =head3 to_string      my $greeting = $hello->to_string;  Повертає $greeting як рядок. =cut   sub to_string {  my $self = shift;  return "Hello, $self->{target}!"; }   =head3 print     $hello->print; Виводить привітання в стандартний потік STDOUT  =cut sub print {  my $self = shift;  print $self->to_string(), "\n"; }   =head1 AUTHOR    Joe Hacker <joe@joehacker.org> =cut  1;