Perl(2)

2019独角兽企业重金招聘Python工程师标准>>>

Perl 函数的说明：

$n=10;
sub pxy{
my($n);###定义内部变量--如果不是的话，Perl 默认是全局的变量--也就是说哪里都可以进行引用
$n=0;
}
print "内部变量",pxy();
print "外部变量",$n;

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

 

#### 参数的个数 
sub pxy{
##定义一个变量（局部的变量）
my($one)=shift@_;##这里把第一个参数拿出来啦
print "第一个参数为：$one";
##进行遍历这些参数的值--并把最大的值返回
foreach(@_){
if($_>$one){
#### $_ 表示是当前遍历的对象的值  ---和之前的值做比较
$one=$_;
}
}
$one;###返回
}
$max=pxy(2,4,5,6);
print "the max is ",$max,"\n";

 

###funtction
sub pxy{
my($test,@array)=@_;
foreach(0..$#array){
    if($test eq $array[$_]){
    return $test.$array[$_];
}
}
return -1;
}
$text="p45xy";
@array=qw(pxy2 yui pxy yufui);
print "this is my value ",pxy($text,@array),"\n"; 

 

###计算1--10000的和
sub sum{
my $n=1;
my $sumsum=0;
foreach(1..100){
$sumsum+=($n++);
}
return $sumsum;
}
print "1---10000 add ",&sum,"\n";

 

转载于:https://my.oschina.net/u/617513/blog/86703