perl子例程参数传递方式初探

最新推荐文章于 2023-11-07 16:22:45 发布

lbl20020123

最新推荐文章于 2023-11-07 16:22:45 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏：可爱的骆驼文（perl）文章标签： perl 语言

本文链接：https://blog.youkuaiyun.com/lbl20020123/article/details/177082

可爱的骆驼文（perl）专栏收录该内容

5 篇文章

订阅专栏

博客介绍了Perl语言中子例程采用可变长参数列表，体现动态语言优点。通过传递引用可在子例程里改变参数值，还给出示例代码及运行结果。同时说明若不想改变参数值，可声明局部变量，并给出相应示例及结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

perl里，子例程采用可变长参数列表，因此参数的个数不再限制，体现出动态语言的优点。由于传递的是引用，所以可以在sub里改变它的值。
samle01.pl
#!/usr/bin/perl
sub sub_routine{
    $_[0] = "hello"; $_[1] = 999;
    print "sub_par1:$_[0]/n";
    print "sub_par2:$_[1]/n";
}
my $par1 = "abcde";
my $par2 = 2;
print "main_par1:$par1/n";
print "main_par2:$par2/n";
&sub_routine($par1, $par2);
print "main_par1:$par1/n";
print "main_par2:$par2/n";

运行结果:
main_par1:abcde
main_par2:2
sub_par1:hello
sub_par2:999
main_par1:hello
main_par2:999

如果不想在子例程里改变参数的值,可以采用生命局部变量的方法。
sample02.pl
#!/usr/bin/perl
sub sub_routine{
my $par1 = $_[0];
my $par2 = $_[1];
$par1 .= "fghijklmn";
$par2 += 10000;
print "sub_par1:$par1/n";
print "sub_par2:$par2/n";
}
my $par1 = "abcde";
my $par2 = 2;
print "main_par1:$par1/n";
print "main_par2:$par2/n";
&sub_routine($par1, $par2);
print "main_par1:$par1/n";
print "main_par2:$par2/n";

运行结果：
main_par1:abcde
main_par2:2
sub_par1:abcdefghijklmn
sub_par2:10002
main_par1:abcde
main_par2:2