Функции.

• Определение пользовательской функции.
• Вызов пользовательской функции.
• Возвращаемые значения.
• Аргументы.
• Локальные переменные в функциях.
• Полулокальные переменные. Функция local.
• .Создаваемые операцией my переменные файлового уровня.

Определение пользовательской функции.

sub имя {
	оператор_1;
	оператор_2;
	оператор_3;
}

sub say_hello {
	print "hello, world!\n";
}

Вызов пользовательской функции.

say_hello();
$a = 3 + say_hello();

Возвращаемые значения.

sub sum_of_a_and_b {
	return $a + $b;
}

sub list_of_a_and_b {
	return ($a, $b);
}
$a = 5;
$b = 6;
@c = list_of_a_and_b();

Аргументы.

sub say_hello_to {
	print "Hello, $_[0]!\n";
}
say_hello_to("world");
sub say {
	print "$_[0], $_[1]!\n";
}
say_hello_to("hello", "world");

sub add {
	$sum = 0;
	foreach $_ (@_) {
		$sum += $_;
	}
	
	return $sum;
}
$a = add(4, 5, 6);
print add(1..5);

Локальные переменные в функциях.

sub add {
	my($sum);
	$sum = 0;
	foreach $_ (@_) {
		$sum += $_;
	}
	
	return $sum;
}

sub bigger_than_100 {	# создает список всех элементов массива > 100
	my(@result);
	foreach $_ (@_) {
		if($_ > 100) {
			push(@result, $_);
		}
	}
	return @result;
}

sub bigger_than {	# создает список всех элементов массива > 100
	my($n, @values);
	($n, @values) = @_;

	my($result);
	foreach $_ (@values) {
		if($_ > $n) {
			push(@result, $_);
		}
	}
	return @result;
}
@new = bigger_than(100, @list);
@this = bigger_than(5, 1, 5, 15, 30);	# @this содержит (15, 30)

Список, создаваемый my, можно использовать в правой части выражения:

my($n, @values) = @_;

my($sum) = 0;

Полулокальные переменные. Функция local.

Операцию my можно использовать только для обьявления простых скалярных переменных, переменных-массивов и хеш-переменных, для переменной local такие ограничения не установлены.

$value = "original";
tellme();
spoof();
tellme();

sub spoof {
	local ($value) = "temporary";
	tellme();
}

sub tellme {
	print "Current value is $value\n";
}

Current value is original
Current value is temporary
Current value is original

Создаваемые операцией my переменные файлового уровня.

Если поставить прагму strict в начало программы, то становится небходимо использовать обьявление переменных с помощь операции my().

use strict;
my $a;
my @b = qw(fred mike igor);
...
push @b, qw(betty);
@c = sort @b;			# mistake

1. Программа работает несколько быстрее
2. Легче искать ошибки