Perl笔记：Perl语言入门（第六版） - 数据类型

标量数据

数字直接量

浮点数据指数表示：7.25e45, -1.2E-4；

长数字便于阅读的格式：12_345_678_910_111，支持非十进制0x1234_5678,0x12_34_56_78；

字符串直接量

单引号内的字符串：只转义单引号和反斜线。
双引号内的字符串：可以转义控制字符及非十进制写法表示的任何字符，例如："\x{2668}"，"\007"八进制表示的ASCII值。
字符串操作符：连接操作符“.”、重复操作符"x"，例如："Hello " . "world"，5x4.8<==>"5"x4 -> "5555"。
Perl会根据需要自动在数字和字符串之间进行类型转换，由操作符确定。前置零表示八进制仅对直接量有效，自动转换时会当做十进制来处理。不含数字的字符串自动转换时为零。

标量变量基本用法

定义：$number = 5; $number += 5; $str .= "Hello"; $str .= " world!";

打印：print "The answer is ", 6 * 7, ".\n"; print "Fred ate a $meat";
undef值：未赋值变量默认值是undef，可以用defined函数测试。$var = undef; defined($var)返回假。
获取用户输入操作符：<STDIN>，$line = <STDIN>。可以使用chomp()操作符去除末尾换行符chomp($line = <STDIN>);

列表与数组

列表基本用法

直接量：(1, 2, 3)，(“string”, 4.5)， (1..100)， ("name", "addr", "no")，其中..为范围操作符。

qw简写：qw(name addr no)，内部不能使用\n或变量内插，忽略所有空白符。

其中()为定界符，可以使用任何标点符号，但左右字符需要匹配。 qw! name addr no !，如果内部字符和定界符冲突，可以使用反斜线转义。

赋值：($name, $addr, $no) = ("name", "addr", "no");

互换变量：($a, $b)= ($b, $a);

赋值时，如果数量不等，多余的变量被设置为undef，多余的值会被忽略。

数组基本用法

定义：@list = qw(name addr no);

数组元素访问：$fred[0] = "yabba"; Perl的数组可以自动扩大，数组$fred的最后元素索引为$#fred，其值为数组元素数量减一。

$fred[$#fred] = dabba，未赋值的部分为undef，数组也可以使用负数索引，-1为最后一个元素。$fred[$#fred] <==> $fred[-1]

空数组：@empty = ();

范围操作符：@num = 1..1000; @all = (undef, @num, 1001..2000);

数组赋值：@copy = @all;

操作符

pop

取出数组最后一个元素并返回 @array = 5..9; $nine = pop(@array); $eight = pop @array; pop @array; pop @empty <==>undef;

push

添加元素到数组末尾 push @array, 0; push @array, 1..10;

shift

取出数组第一个元素 $m = shift(@array); $n = shift @array;

unshift

数组开头添加元素 unshift @array, @others;

splice

添加或移除数组中间的元素最多接受4个参数，后两个可选，第一个参数目标数组，第二个参数数组开始位置，第三个参数数组长度，第四个参数是要替换的列表@array = qw (1 2 5); @list = splice @array, 2, 0, qw( 3 4 );

reverse

读取列表元素，并按逆序返回 @array = reverse @array。

sort

升序排序

each

返回数组下一个元素的索引和值

数组内插

打印数组时会在数组各个元素之间自动添加分隔符，由$"指定，默认为空格：print @number;；

索引表达式会被当做普通表达式处理，$array[$y-1] <==>$array[1] <- $y = "2*4";；

如果要在标量变量后面接着写方括号，需要和数组引用区别 ${fred}[3]或$fred\[3]；

列表遍历：foreach $rock (qw/ bedrock slate lava /){} ，控制变量就是列表元素本身，修改控制变量会同时修改列表元素；

$_ Perl的默认变量 foreach (1..10){....$_....}依次为1-10。

标量上下文与列表上下文

@number 标量上下文返回列表元素数量，列表上下文返回列表

强制指定标量上下文 scalar @rocks 数组元素数量。

chomp(@line = <STDIN>);读入所有行，不包含换行符。

哈希

基本用法

定义：%hash

访问哈希元素：$hash{$key}；

哈希展开：@list = %hash 展开为键值对列表，顺序不确定。

打印：不支持整个哈希的内插，仅单个元素。$hash{$key}。

裸字：由字母数字下划线组成非数字开头的字符串，称为裸字。裸字部分处理可以简写，无需加引号。
赋值：%hash = ('foo', 35, 'bar', 12.4, 2.5, 'hello',);为便于赋值，可以使用胖箭头=>，对Perl其等同于逗号，例如%hash = ('foo'=>35, 'bar' => 12.4, 2.5
=> 'hello',);使用胖箭头时可以省略键的引号，但仅限于裸字。

花括号里的键名引用也可以省略引号，但如果不是裸字，就会作为表达式求值，$hash{ bar.foo } = 1<==> $hash{barfoo} = 1。

my %inversh_hash = reverse %hash; 将哈希展开为键值对并逆序，原来的键作为新哈希的值。

函数

keys values返回哈希的键列表和值列表。取得键和值得动作之间不修改哈希，键值的顺序是对应的。

each ($key, $value) = each %hash取下一组键值对。空的哈希键值均返回undef。

exists 判断哈希中是否存在键， exists $books{"dino"} dino是否存在于keys %books列表。

delete 删除键值对

%ENV哈希

Perl程序可访问的运行环境，例如PATH变量：$ENV{PATH}；