Perl サブルーチン (関数)
Perl サブルーチンもユーザー定義関数です。
Perl サブルーチンは、特別なタスクを実行する分離されたコードであり、コードの繰り返しを減らし、プログラムを読みやすくします。
Perl サブルーチンはプログラム内のどこにでも出現でき、構文形式は次のとおりです:
sub subroutine{
statements;
}サブルーチンを呼び出すための構文形式:
subroutine( 参数列表 );
Perl 5.0 より前のバージョンでは、サブルーチンを呼び出す方法は次のとおりです:
&subroutine( 参数列表 );
新しいバージョンでは、この呼び出しメソッドもサポートされていますが、その使用は推奨されません。
次に簡単な例を見てみましょう:
#!/usr/bin/perl
# 函数定义
sub Hello{
print "Hello, World!\n";
}
# 函数调用
Hello();上記のプログラムを実行すると、出力結果は次のようになります:
Hello, World!
サブルーチンにパラメータを渡します
Perlサブルーチンは他のプログラミングと同様に複数のパラメータを受け入れることができ、サブルーチンパラメータは特別な配列を使用します@_ を指定します。
つまり、サブルーチンの最初のパラメータは $_[0]、2 番目のパラメータは $_[1] というようになります。
パラメーターがスカラーか配列かに関係なく、ユーザーがパラメーターをサブルーチンに渡すと、Perl はデフォルトでそれらを参照によって呼び出します。
#!/usr/bin/perl
# 定义求平均值函数
sub Average{
# 获取所有传入的参数
$n = scalar(@_);
$sum = 0;
foreach $item (@_){
$sum += $item;
}
$average = $sum / $n;
print '传入的参数为 : ',"@_\n"; # 打印整个数组
print "第一个参数值为 : $_[0]\n"; # 打印第一个参数
print "传入参数的平均值为 : $average\n"; # 打印平均值
}
# 调用函数
Average(10, 20, 30);上記のプログラムを実行すると、出力結果は次のようになります:
传入的参数为 : 10 20 30 第一个参数值为 : 10 传入参数的平均值为 : 20
ユーザーは @_ 配列の値を変更することで、対応する実パラメータの値を変更できます。
サブルーチンにリストを渡す
@_ 変数は配列なので、サブルーチンにリストを渡すことができます。
しかし、スカラーと配列パラメータを渡す必要がある場合は、以下に示すように、最後のパラメータにリストを置く必要があります:
#!/usr/bin/perl
# 定义函数
sub PrintList{
my @list = @_;
print "列表为 : @list\n";
}
$a = 10;
@b = (1, 2, 3, 4);
# 列表参数
PrintList($a, @b);上記のプログラムはスカラーと配列を結合し、出力結果は次のようになります:
列表为 : 10 1 2 3 4
Weサブルーチンは複数の配列とハッシュを渡しますが、複数の配列とハッシュが渡されると、独立した ID が失われます。したがって、合格するには参照（次の章で紹介します）を使用する必要があります。
サブルーチンにハッシュを渡す
ハッシュ テーブルがサブルーチンに渡されると、ハッシュ テーブルが @_ にコピーされ、ハッシュ テーブルはキーと値の組み合わせのリストに展開されます。
#!/usr/bin/perl
# 方法定义
sub PrintHash{
my (%hash) = @_;
foreach my $key ( keys %hash ){
my $value = $hash{$key};
print "$key : $value\n";
}
}
%hash = ('name' => 'php', 'age' => 3);
# 传递哈希
PrintHash(%hash);上記のプログラムの実行出力は次のとおりです:
age : 3 name : php
サブプログラムの戻り値
サブプログラムは、他のプログラミング言語と同様に、return ステートメントを使用して関数の値を返すことができます。
return ステートメントが使用されていない場合、サブルーチンの最後の行が戻り値になります。
#!/usr/bin/perl
# 方法定义
sub add_a_b{
# 不使用 return
$_[0]+$_[1];
# 使用 return
# return $_[0]+$_[1];
}
print add_a_b(1, 2)上記のプログラムの実行出力は次のとおりです:
3
サブルーチンでは、スカラー、配列、ハッシュを返すことができますが、複数の配列とハッシュを返す場合、独立した ID が失われます。したがって、複数の配列と関数を返すには参照 (次の章で紹介) を使用する必要があります。
サブルーチンのプライベート変数
デフォルトでは、Perl のすべての変数はグローバル変数です。つまり、プログラム内のどこからでも変数を呼び出すことができます。
プライベート変数を設定する必要がある場合は、my 演算子を使用して設定できます。
my 演算子は、字句スコープ付き変数を作成するために使用されます。 my によって作成された変数は、宣言の最初から閉じられたスコープの終わりまで存続します。
閉じたスコープは、一対の中括弧内の領域を指します。ファイルまたは if、while、for、foreach、eval 文字列の場合があります。
次の例は、1 つ以上のプライベート変数を宣言する方法を示しています:
sub somefunc {
my $variable; # $variable 在方法 somefunc() 外不可见
my ($another, @an_array, %a_hash); # 同时声明多个变量
}#!/usr/bin/perl
# 全局变量
$string = "Hello, World!";
# 函数定义
sub PrintHello{
# PrintHello 函数的私有变量
my $string;
$string = "Hello, php!";
print "函数内字符串：$string\n";
}
# 调用函数
PrintHello();
print "函数外字符串：$string\n";上記のプログラムの実行出力は次のとおりです:
函数内字符串：Hello, php! 函数外字符串：Hello, World!
変数の一時的な割り当て
ローカルを使用してグローバル変数に一時的な値を提供できます。スコープを抜けた後、元の値を返します。
ローカル定義変数はメインプログラムには存在しませんが、このサブプログラムとこのサブプログラムによって呼び出されるサブプログラムには存在します。定義時に次のような値を割り当てることができます:
#!/usr/bin/perl
# 全局变量
$string = "Hello, World!";
sub Printphp{
# PrintHello 函数私有变量
local $string;
$string = "Hello, php!";
# 子程序调用的子程序
PrintMe();
print "Printphp 函数内字符串值：$string\n";
}
sub PrintMe{
print "PrintMe 函数内字符串值：$string\n";
}
sub PrintHello{
print "PrintHello 函数内字符串值：$string\n";
}
# 函数调用
Printphp();
PrintHello();
print "函数外部字符串值：$string\n";上記のプログラム実行出力結果は次のとおりです:
PrintMe 函数内字符串值：Hello, php! Printphp 函数内字符串值：Hello, php! PrintHello 函数内字符串值：Hello, World! 函数外部字符串值：Hello, World!
静的変数
状態演算子の機能は、C の静的修飾子と似ています。状態キーワードローカル変数を永続化します。
state も字句変数であるため、変数が定義されている字句スコープ内でのみ有効です。例:
#!/usr/bin/perl
use feature 'state';
sub PrintCount{
state $count = 0; # 初始化变量
print "counter 值为：$count\n";
$count++;
}
for (1..5){
PrintCount();
}上記のプログラムの実行の出力結果は次のとおりです:
counter 值为：0 counter 值为：1 counter 值为：2 counter 值为：3 counter 值为：4
注 1: state は、プログラム内の子変数として閉じたスコープのみを作成できます。
注 2: state は Perl 5.9.4 から導入されたため、使用する前に use を追加する必要があります。
注 3: 状態はスカラー、配列、ハッシュを宣言できます。ただし、配列とハッシュは宣言時に初期化できません (少なくとも Perl 5.14 では)。
サブプログラム呼び出しコンテキスト
サブプログラム呼び出しプロセス中、コンテキストに応じてさまざまな種類の値が返されます。たとえば、次の localtime() サブプログラムは、スカラー コンテキストで文字列を返し、リストを返します。 list context:
#!/usr/bin/perl
# 标量上下文
my $datestring = localtime( time );
print $datestring;
print "\n";
# 列表上下文
($sec,$min,$hour,$mday,$mon, $year,$wday,$yday,$isdst) = localtime(time);
printf("%d-%d-%d %d:%d:%d",$year+1990,$mon+1,$mday,$hour,$min,$sec);
print "\n";上記プログラムの実行の出力結果は次のとおりです:
Sun Jun 12 15:58:09 2016 2106-6-12 15:58:9
