柚子快報(bào)邀請(qǐng)碼778899分享：Perl 子程序（函數(shù)）

http://yzkb.51969.com/

目錄

1 子程序的定義

2 向子程序傳遞參數(shù)/子程序的返回值

2.1 向子程序傳遞參數(shù)

2.1.1 參數(shù)只有標(biāo)量

2.1.2?參數(shù)只有數(shù)組

2.1.3?參數(shù)只有哈希

2.1.4?參數(shù)為標(biāo)量，數(shù)組，哈希的混合

2.2 子程序的返回值

2.2.1 返回值只有標(biāo)量，數(shù)組或哈希

2.2.2 返回值有標(biāo)量，數(shù)組，和哈希

3 子程序的調(diào)用

Perl子程序也就是用戶定義的函數(shù)。

1 子程序的定義

函數(shù)的定義用sub，其語法格式如下：

sub subroutine{

statements;

}

2 向子程序傳遞參數(shù)/子程序的返回值

下面先來看一個(gè)例程：

sub add2{

my $para1 = shift(@_); #Perl函數(shù)通過特殊數(shù)組 @_接受參數(shù)

my $para2 = shift(@_); #my關(guān)鍵字約束變量范圍為本函數(shù)內(nèi)

my $ret = $para1 + $para2;

return $ret; #使用return語句返回函數(shù)值

}

@_是Perl的內(nèi)置變量，保存著傳遞到函數(shù)的參數(shù)，shift()是取出第一個(gè)參數(shù)，shift(@_);也可以簡(jiǎn)寫為shift; 。?

2.1 向子程序傳遞參數(shù)

add2后面不需要像C語言那樣寫一個(gè)參數(shù)列表。函數(shù)主體用{}括起來。Perl 子程序可以和其他編程一樣接受多個(gè)參數(shù)，子程序參數(shù)使用特殊數(shù)組 @_ 標(biāo)明。不論參數(shù)是標(biāo)量型還是數(shù)組型的，用戶把參數(shù)傳給子程序時(shí)，perl默認(rèn)按引用的方式調(diào)用它們。

2.1.1 參數(shù)只有標(biāo)量

在構(gòu)建數(shù)組時(shí)，如果參數(shù)只有標(biāo)量，則不需要引用。

sub scalar_sub {

my ($scalar_param) = @_;

# 在子函數(shù)中直接使用標(biāo)量參數(shù)

print "Scalar parameter: $scalar_param\n";

}

scalar_sub("Hello"); # 調(diào)用子函數(shù)，傳遞標(biāo)量參數(shù)

在上面的示例中，子函數(shù)scalar_sub接受一個(gè)標(biāo)量參數(shù)$scalar_param。在子函數(shù)內(nèi)部，我們可以直接使用$scalar_param變量。?

2.1.2?參數(shù)只有數(shù)組

由于 @_ 變量是一個(gè)數(shù)組，所以它可以向子程序中傳遞列表。

sub array_sub {

my (@array) = @_;

# 在函數(shù)中使用解引用后的數(shù)組

foreach my $element (@array) {

print "Element: $element\n";

}

}

my @array = (1, 2, 3, 4, 5);

array_sub(\@array); # 調(diào)用函數(shù)，傳遞數(shù)組參數(shù)

2.1.3?參數(shù)只有哈希

當(dāng)向子程序傳遞哈希表時(shí)，它將復(fù)制到 @_ 中，哈希表將被展開為鍵/值組合的列表。

sub hash_sub {

my (%hash) = @_;

# 在函數(shù)中使用解引用后的哈希

foreach my $key (keys %hash) {

my $value = $hash{$key};

print "Key: $key, Value: $value\n";

}

}

my %hash = (

name => 'John',

age => 30,

occupation => 'Engineer'

);

hash_sub(\%hash); # 調(diào)用函數(shù)，傳遞哈希參數(shù)

2.1.4?參數(shù)為標(biāo)量，數(shù)組，哈希的混合

如果傳入的參數(shù)是數(shù)組、哈希或混合類型的參數(shù)，為了正確處理它們，應(yīng)該使用引用進(jìn)行傳遞。在子函數(shù)中，可以解引用這些引用參數(shù)，以便訪問它們的元素或鍵值對(duì)。如果不使用引用，則作為輸入的?@_，perl 無法區(qū)分變量，則整個(gè)打包了，這會(huì)導(dǎo)致丟失獨(dú)立的標(biāo)識(shí)。

下面是一個(gè)使用引用進(jìn)行傳遞的例子。

sub reference_sub {

my ($array_ref, $hash_ref, $scalar_ref) = @_;

# 解引用引用參數(shù)，并訪問元素和鍵值對(duì)

my @array = @$array_ref;

my %hash = %$hash_ref;

my $scalar = $$scalar_ref;

# 在子函數(shù)中使用解引用后的變量

print "Array element: $array[0]\n";

print "Hash value: $hash{'key'}\n";

print "Scalar value: $scalar\n";

}

my @array = (1, 2, 3);

my %hash = ('key' => 'value');

my $scalar = 42;

reference_sub(\@array, \%hash, \$scalar); # 調(diào)用子函數(shù)，傳遞引用參數(shù)

在上面的示例中，子函數(shù)reference_sub接受一個(gè)數(shù)組引用$array_ref、一個(gè)哈希引用$hash_ref和一個(gè)標(biāo)量引用$scalar_ref作為參數(shù)。在子函數(shù)內(nèi)部，我們使用解引用操作符@、%和$來解引用這些引用參數(shù)，并將它們賦值給對(duì)應(yīng)的數(shù)組、哈希和標(biāo)量變量。

通過使用引用和解引用，我們可以在子函數(shù)中正確地處理傳遞的復(fù)雜數(shù)據(jù)結(jié)構(gòu)。

2.2 子程序的返回值

子程序可以使用return語句來返回函數(shù)值。如果沒有return,函數(shù)會(huì)返回最后一個(gè)表達(dá)式。

sub add2{

my $para1 = shift(@_);

my $para2 = shift(@_);

$para1 + $para2; #沒有return，函數(shù)會(huì)返回最后一個(gè)表達(dá)式

}

2.2.1 返回值只有標(biāo)量，數(shù)組或哈希

子程序中我們可以返回標(biāo)量，數(shù)組和哈希。?在返回?cái)?shù)組和哈希時(shí)，它們會(huì)被展開成列表，并且在賦值給對(duì)應(yīng)的數(shù)組或哈希變量時(shí)，會(huì)按照相應(yīng)的順序進(jìn)行賦值。

return $scalar0; #返回一個(gè)標(biāo)量

return @array0; #返回一個(gè)數(shù)組

return %hash0; #返回一個(gè)哈希

2.2.2 返回值有標(biāo)量，數(shù)組，和哈希

在返回多個(gè)數(shù)組和哈希時(shí)，我們需要使用引用，否則導(dǎo)致丟失獨(dú)立的標(biāo)識(shí)。

sub multi_return_sub {

my $scalar = "Hello";

my @array = (1, 2, 3, 4, 5);

my %hash = (

name => 'John',

age => 30,

occupation => 'Engineer'

);

return ($scalar, \@array, \%hash);

}

my ($scalar_result, $array_ref, $hash_ref) = multi_return_sub();

print "Scalar result: $scalar_result\n";

my @array_result = @$array_ref;

print "Array result: @array_result\n";

my %hash_result = %$hash_ref;

foreach my $key (keys %hash_result) {

my $value = $hash_result{$key};

print "Key: $key, Value: $value\n";

}

3 子程序的調(diào)用

子程序的調(diào)用有以下兩種格式：

#當(dāng)函數(shù)的定義在調(diào)用前：

my $sum = add2(10, 20);

#當(dāng)函數(shù)的定義在調(diào)用后：

my $sum = &add2(10, 20); #這里需要額外加一個(gè)&

柚子快報(bào)邀請(qǐng)碼778899分享：Perl 子程序（函數(shù)）

http://yzkb.51969.com/

推薦文章