Perl语言入门笔记 第四章 子程序

=pod
定义子程序：
	sub sub_name
	{
		#($var1, $var2) = @_;
		#$var1 = $_[0];
		#$var2 = $_[1];
		#定义局部变量: my $myVar = $_[1];
		my ($m, $n) = @_;
	}
	
调用子程序：
	&sub_name;


	$maximum = &max(3, 5, 10, 4, 6);
	sub max
	{
		my($max_so_far) = shift @_; #数组中的第一个值，暂时把它当成最大值
		foreach(@_) #遍历@_比较得出最大值
		{
			if($_ > $max_so_far)
			{
				$max_so_far = $_;
			}
		}
		$max_so_far; #此时就相当于，return $max_so_far;	
	}

关于词法(my)变量：
	可以在if、while、foreach的语句块里使用。
	foreach(1..10)
	{
		my($square) = $_ * $_; #该循环中的私有变量
		print "$_ squared is $square.
";
	}
	
	my($num) = @_; #列表上下文，和($num) = @_;相同，得到@_的第一个元素
	my $num = @_; #标量上下文，和$num = @_;相同，得到@_里面元素的个数
	my @phone_number;
	在日常perl编程当中，最好对每个新变量都是用my声明，让它保持在自己所在的词法作用于内。在第三章中，你已经看到过如何在foreach循环中定义自己的控制变量而这个控制变量也可以声明为词法变量：
	foreach my $rock (qw/bedrock slate lava/)
	{
		print "One rock is $rock.
";#依次输出每块石头的名字
	}
	
return操作符：
	和c/c++的语言没多大区别，可以终止循环，提前退出，也可以在最后返回某值	
	可以返回非标量数值，通俗点讲就是返回数组和哈希表类的变量
	
state限定符：
	state限定符和c语言中的static限定符一样，限定某个变量后，只会初始化一次，然后会保存上次的值
	如：
	注意：要加上use 5.010；
	sub marine
	{
		state $n = 0; #持久性私有变量$n
		$n += 1;
		print "Hello, sailor number $n!
";
	}
	
	
=cut

#!/usr/bin/perl -w
use utf8;
use diagnostics;
use strict;







system "pause";