在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