Perl--子程序传参

发布时间：2020-12-15 23:49:54 所属栏目：大数据来源：网络整理

导读：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 $varn"

<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 $varn";
  my $var1= shift;  
  print "$var1 is $var1n";
  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

------------------------------------------------------------------------------[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)= @_;  
  print "$LogInfo is $LogInfon";
  my $CurrTime = "2014-12-31";                   # 当前时间  
  if(!defined($LogInfo) ){$LogInfo="";}  
  my $StrLog="【${CurrTime}】 --- ${LogInfo} n";  
  
  print $StrLog;  
  #print LOGFILE $StrLog;  
}
printlog(aa,dd);
[oracle@june2 ~]$ perl 11.pl 
@_ is aa bb cc dd
$LogInfo is aa
【2014-12-31】 --- aa 

-----------------------------------------------------------------------------
[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,$var)= @_;  
  print "$LogInfo is $LogInfon";
  my $CurrTime = "2014-12-31";                   # 当前时间  
  if(!defined($LogInfo) ){$LogInfo="";}  
  my $StrLog="【${CurrTime}】 --- ${LogInfo}----$var n";  
  
  print $StrLog;  
  #print LOGFILE $StrLog;  
}
printlog(aa,dd);
[oracle@june2 ~]$ perl 11.pl 
@_ is aa bb cc dd
$LogInfo is aa

 my ($LogInfo,$var)= @_;  表示把数组的第一个元素赋值为$LogInfo，第2个元素给$var

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!