[perl] out() -- function

[perl]  out()  -- function

 

 

 

 

一、源码

#!/usr/bin/perl

# perl_file = xx.pl

# name:  out()
# function:  print all elements of array of  input parameters.
# return:  none
sub out {
    $i = 0;
    foreach (@_) 
    {
        print "element[$i] := " . $_ . "\n" ;
        $i++ ;
    }
    $i = 0 ;
}

# running part
@world = qw/tang-xuanzang sun-wukong zhu-wuneng sha-wujing/ ;
out ( @world ) ;

 

二、输出

element[0] := tang-xuanzang
element[1] := sun-wukong
element[2] := zhu-wuneng
element[3] := sha-wujing

 

三、参考资料

 

　　1、　　特殊变量【@_】　　--　　https://perldoc.perl.org/perlsub

 

　　2、　　数组【qw//】　　--　　https://www.runoob.com/perl/perl-arrays.html