Perl--子程序传参

scan724

于 2014-12-20 11:23:20 发布

阅读量833

点赞数

分类专栏： Perl高级编程

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/42041551

版权

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

41 篇文章 ¥39.90 ¥99.00

订阅专栏

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

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

<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

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

了解本专栏