Perl实战，一
在Perl中，我们可以通过uc，lc，\U，\L来修改变量的值。其中uc，\U可以将变量中的字母全部转换为大写。
lc，\L可以将变量中的字母全部转换为小写。
$big = "\U$var"; $big = uc($var);
$little = "\L$var"; $little = lc($var);
ucfirst和lcfirst表示只改变变量的首字母。
$big = ucfirst($var); $little = lcfirst($var);
在Perl程序中需要增加参数时，可以通过控制参数模块Getopt::long。
#！/user/bin/perl
use strict;
use Getopt::Long;
........
GetOptions(
'verbose+' => \$verbose,
'more!' => \$more,
'test|t' => \$test,
'debug:i' => \$debug,
'lib=s' => \@libs,
'flag=s' => \%flags, );
左侧变量，会加很多操作符在变量之后。右侧变量都会使用反斜杠。
'verbose+'表示命令行参数中verbose的个数存放在$verbose中。
'more!'中的！表示，命令行参数中，有这个参数或者没有，只有0或者1两个值，通常做某种开关使用。
'flag=s' 变量后加=，s表示接收字符串型的变量，i表示接收整数类型变量，f表示接收浮点类型变量。如果右侧接收的是数组，
如@lib，则表示，选项可以多次出现， 值被依次存放在数组中。如果右侧接收的是散列，
如%flags，则表示，选项可以多次出现，值按键--值对的形式存放在散列中。
'debug:i' 接有：表示接受数据，i表示整型，s表示字符串，f表示浮点。
'test|t' 接有| 表示简写，可以将-test简写为-t。
在Perl中加载好引用Perl子模块。可以用use/require来声明。其中两者的区别是
1)use引入的名称不需要加后缀名，require需要。
2)use语句是编译时引入的，require是运行时引入的。所以应用require时，不可以有子模块的中间变量等。
3)use语句引入模块的同时，也会引入模块中的子模块。而require不会。
4)use语句使用时，可以用::表示/，来指定目录。否则只搜索@INC路径。@INC可以通过setenv增加环境变量或在Perl中自己操作。
use Src::MuxTestflow;
require("help.pl");
my $testflow = new Src::MuxTestflow($padc);
#！/user/bin/perl -w
push(@INC,"/home/test");
perl中的grep操作，更加简洁，快速的寻找所需行。
perl中的匹配完全可以实现，但是perl更加简洁。
while(<$line>)
if($line = /(word)/i) print $line;
$num_apple=grep/^apple$/i,@fruits; //只匹配apple单独行，并把个数传给num_apple
@word = grep /\b(word)\b/, @line; //返回匹配行到数组
perl中的引用和解引用：
常见数据类型的引用定义：
数据类型 定义 举例
标量变量 \$Var $Pointer = \$Var
数组 \@Array $Pointer = \@Array
哈希变量 \%Hash $Pointer = \%Hash
文件句柄 \*FILEHANDLE $Pointer = \
常量 \常量 $Pointer = \3.1415926
子程序 \&SubRoutine $Pointer = \&SubRoutine
reference是另一个变量的地址。reference可以指向array，hash，或perl代码段。reference使perl代码运行更快。
一 array的reference和dereference
1）array的reference 正常地，我们存储list的元素在array中如下：@array = (“one”,”two”,”three”,”four”,”five”);
使用\来将array的地址赋给reference变量，如下：$array_ref = \@array;
如果你print $array_ref，将显示如下：ARRAY(0x1a2b3c)；
array的reference可以被传递给subroutine，如下： sub add_numbers { my $array_ref = shift; ..... }
@numbers = (11,2,3,45);
$array_ref = add_numbers(\@numbers); 在以上的代码中，我们需要对array的reference进行dereference，然后才可以使用array中的元素。
下面是传递array的reference到subroutine的优点：
* 如果array传递给subroutine，perl将整个array重新copy到@_中，当array比较大时，这将非常的低效。
* 当我们需要在subroutine中修改原来的array的时候，我们需要传递array的reference。
* reference其实是构造复杂数据结构的本质。
我们也可以将匿名的array赋给reference如下：$array_ref = (11,2,3,45)
2）array的reference的dereference 在subroutine中，我们可以使用如下的方法来dereference array的reference：
@{ $array_ref }; 取得第一个元素如下：$ { $array_ref }[0]；
或者可以使用perl的特殊符号来使用array的reference，如下： # Get all the elements of @numbers array. @ { $_[0] }
# Get a particular element. This gives the first element of the array. $ { $_[0] } [0]
注意，如果只是dereference一个简单的scalar变量，可以忽略括号，如下： @$array_ref # same as @{ $array_ref }
$$array_ref # same as $ { $array_ref }
$_[0] # not a simple scalar variable and this cant be dereferenced,
二 hash的reference和dereference
hash的reference和dereference与array的一样。
hash的reference如下： %author = ( 'name' => "Harsha", 'designation' => "Manager" );
$hash_ref = \%author;
dereference后访问元素如下： $name = $ { $hash_ref} { name };
等价于 my $name = $hash_ref->{name};
访问所有的keys如下： my @keys = keys % { $hash_ref }; 等价于my @keys = keys %author;
如果是简单scalar变量，可以忽略括号，如下：my @keys = keys %$hash_ref; $name = $$hash_ref{name};
匿名hash的reference如下：
my $hash_ref = { 'name' => "Harsha", 'designation' => "Manager" };
使用如下：$name = $ { $hash_ref} { name };
三 对reference变量使用-> 来获得属性
my $name = $hash_ref->{name};
参考http://www.cnblogs.com/itech/archive/2011/04/21/2023491.html
