1. 使用反引号可以调用外部程序并返回程序的输出, 如 $cwd = `pwd`;
2. Perl 中的变量类型之间的区别主要是单数和复数; 单数变量称为标量 $scalar , 复数变量称为数组 @array . Perl中还有 Hash, Handle, typeglob 和引用 等一些变量类型. Perl中的标量可以使用 = 赋值, 可以指向其他变量或对象等等复杂数据结构的引用.
3.Perl中的引用
$ary = \@myarray; # 引用一个命名数组
$hsh = \%myhash; # 引用一个命名哈希
$sub = \&mysub; # 引用命名子程
$ary = [1,2,3,4,5]; # 引用匿名数组
$hsh = {"Roger"=>"A", "r"=>4}; #引用匿名哈希
$sub = sub{print "Hello\n";} #引用匿名子程
$fido = new Camel "Amelia"; # 引用一个对象
4. Perl中的复数变量
=> 需要在赋值等式右边提供列表环境, 当需要用编号查找时用数组, 如果需要用名称查找,则用散列
=> 可以通过列表赋值简单实现两个标量的值交换: ($var1,$var2)=($var2,$var1);
=> 因为散列是一种特殊的数组, 可以通过{}来获取单个散列元素 , 如: $roger{‘name‘} , 注意因为是处理标量, 所以前面用 $,而不是 % ,后者表示整个散列表.如果用了 %roger{‘name‘},那么得到的是键值一起. 另外胖箭头左边的字符串不需要加引号(自动加), 而右边不行(考虑要支持复杂数据结构), 所以不加可能会和保留字冲突.
=> 散列的键值之间可以用逗号隔开, 因此可能会在自动构造时用上, 如:
$longday = {"Sun","Sunday","Mon","Monday"};
5. Perl中的复杂数据结构
在Perl中, 逗号用于分隔,小括号用于分组, 但是并不能将一个列表转换成为标量; 如果需要将一个列表转换成一个标量要用 [ ] , 表示是一个匿名数组; 如果要将一个哈希转换成一个标量, 需要使用 {} 表明是一个匿名散列. 所以可以定义一个哈希
$wife{"Jacob"}=["A","B","C","D"];
# print "$wife{\"Jacob\"}[0]\n";
print $wife{"Jacob"}[0]."\n"; ## A
$kids_of_wife{"Jacob"} = {
"A" => ["A1","A2"],
"B" => ["B1","B2"],
"C" => ["C1","C2"],
"D" => ["D1","D2"]
};
# print "$kids_of_wife{\"Jacob\"}{\"A\"}[0]\n";
print $kids_of_wife{"Jacob"}{"A"}[0]."\n"; ## A1
6. Perl中的foreach循环中循环变量直接引用数组元素本身, 修改循环变量就是修改原始数组, 和java不同 , 可以在foreach 中修改原始数组.
7.使用行输入和$_可以是程序简洁并增加可扩展性, 如匹配一个文件中的 链接:
while(<FILE>){
print if /http:/;
print if /ftp:/;
print if /mailto:/;
...
}