Perl--子程序传参

最新推荐文章于 2023-06-29 23:21:03 发布

scan724

最新推荐文章于 2023-06-29 23:21:03 发布

阅读量767

点赞数

分类专栏： Perl高级编程

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/42041551

版权

Perl高级编程专栏收录该内容

41 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客介绍了Perl中子程序(subroutine)的参数传递方式，通过实例展示了如何使用`shift`函数从`@_`数组中取出参数，并讨论了不同参数接收方式的影响。文章以修改`printlog`子程序为例，演示了如何获取并处理传入的参数值。

摘要由CSDN通过智能技术生成

<pre name="code" class="sql">[oracle@june2 ~]$ cat 11.pl 
#!/usr/bin/perl
#use strict;   
#use warnings;  
use File::Path;  
use File::Copy;  
#use Net::FTP;  
sub printlog  
{  
  print "\@_ is @_\n";  
  my ($LogInfo)= @_;  
  my $var= shift;  
  print "\$var is $var\n";
  my $var1= shift;  
  print "\$var1 is $var1\n";
  my $CurrTime = "2014-12-31";                   # 当前时间  
  if(!defined($LogInfo) ){$LogInfo="";}  
  my $StrLog="【${CurrTime}】 --- ${LogInfo} \n";  
  
  #print $StrLog;  
  #print LOGFILE $StrLog;  
}
printlog(aa, bb, cc, dd);
[oracle@june2 ~]$ perl 11.pl 
@_ is aa bb cc dd
$var is aa
$var1 is bb

-----------------

了解本专栏

scan724

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
打赏
0
评论
Perl--子程序传参

[oracle@june2 ~]$ cat 11.pl #!/usr/bin/perl#use strict; #use warnings; use File::Path; use File::Copy; #use Net::FTP; sub printlog { print "\@_ is @_\n"; my ($LogInfo)= @_;
复制链接

扫一扫