初めてのPerl 第7版

78

4 章　サブルーチン

sub list_from_fred_to_barney ( $fred = 0, $barney = 7 ) {

if ($fred < $barney) { $fred..$barney }

else { reverse $barney..$fred }

}

my @defaults = list_from_fred_to_barney();

my @default_end = list_from_fred_to_barney( 17 );

say "defaults: @defaults";

say "default_end: @default_end";

このコードを実行すると、デフォルト値が使われていることがわかります。

defaults: 0 1 2 3 4 5 6 7

default_end: 17 16 15 14 13 12 11 10 9 8 7

デフォルト値を持たないオプション引数を使いたい場合があります。その場合は

$=

プレースホ

ルダを使用して、オプション引数を指定することができます。

sub one_or_two_args ( $first, $= ) { ... }

Perl

の特殊変数にフォーマットで使う

$=

がありますが、これはそれとはまったくの別物です。

そしてときには、引数を受け取らないこともあるでしょう。次のようにすれば定数を作ることが

できます。

sub PI () { 3.1415926 }

シグネチャについて詳しくは

perlsub

ドキュメントを読んでください。また、われわれはブログ ...