Perl语言入门

脚本式的开头#!/bin/perl
脚本式的注释:#
经常会提示变量下面未使用或只出现一次的意思是提醒作者这个变量名字可能写错了，尤其是这种不需声明就可以使用的语言。

前言

项目需要，本文参考<perl语言入门>主要记录一些与c/c++等高级语言不通的地方，快速入门perl

编译指令

1.use strict:告诉编译器接下来的代码要严谨些，遵循好的编程风格，如:要求先声明变量再使用
2.use warnning:使用警告，对不严谨的地方打出log

一、标量$

最简单的数据类型，数字或者字符串

标量常量

1.数字

Perl中都是以双精度存储数字的，没有整数这一说，就算是整数也会被转换成双精度
支持用下划线分隔数字达到易读的效果
乘幂用两个**

2.字符串

单引号中的字符都是字符本身
双引号中的字符串可能为换行符之类的
字符串拼接用.例如:’a’.’b’等价于’ab’
字符串重复操作符x，’a’x4等价于’aaaa’,5x4等价于’5555’

3.数字和字符串的转换

完全取决于操作符，如+则自动将左右转换为数字,.自动将左右转换为字符串

标量变量

以$开始，如$a=1;
除了赋值或者声明(事实上perl变量无需声明)，其他地方只要用到这个变量都需要有$
未初始化的变量值为udef，就是空无一物的意思，如果是数字操作使用了就类似于0，字符串就类似于空字符

print输出结果

print ‘a’;
输出多个用逗号隔开,print ‘a’,’b’,2+3;
字符串内插要用双引号,$name=zjk;print “i love $name”;
将字符码转换为字符chr(0xaaaa),ord(‘a’)将字符串转为码

比较操作符

比较	数字	字符串
相等	=	eq
不等	!=	ne
小于	<	lt
大于	>	gt
小于等于	<=	le
大于等于	=	ge

获取用户输入

<STDIN>获取一行输入，以回车结束，其中回车被保存在字符串中
chomp()去掉字符串中的换行符

undef值

未初始化的变量
未初始化的变量值为udef，就是空无一物的意思，如果是数字操作使用了就类似于0，字符串就类似于空字符,但是undef绝不是空
undefined()函数判断变量是不是undef，如果是返回假，不是返回真
读到文件结尾会返回undef

标量上下文

就是根据操作符等上下文得到标量具体的值如:@array=qw(a b c);@str=@array;(列表) $c=1+@array;(数组元素个数)同样是@array两个式子表达意思不一样
标量上下文中使用列表表达式:得到的还是标量,如:$a=reverse(qw/i love/);得到evoli
scalar:强制制定标量上下文如：@dogs=qw/black,red/;print ‘there’,’are’,@dogs,’dogs’;这里希望的到个数但是不能，需要scalar @dogs强行切换

二、列表和数组@

列表list指的是数值，数组指的是数值变量

列表

列表就类似与常量数组中的右半部分，但是用的是小括号，如：(‘a’,’b’)，可以使用任何括号，还可以使用#’a’,’b’#
成员可以是表达式，每次使用时候都会更新这个表达式
还支持连续(1..3)=(1,2,3),(1.1..3.3)=(1,2,3)自动去掉小数部分
用qw()表示里面的成员都是单引号字符串如:qw(i love zjk)=(‘i’ ‘love’ ‘zjk’) 且成员间可用任何符号隔开，空格回车都行
列表赋值:列表间还可以赋值如($a,$b,$c)=qw(a b c);

数组

1.注意点

数组和变量完全一样的用法只不过加了个方括号$a[0]=a,而且大小无限制，无需提前定义长度，支持非连续赋值，中间空余的是undef
获得数组长度用$#a,这个长度是最后一个元素的下标，也就说数组实际长度要+1
可用负数,-1代表最后一个元素，但是超出数组大小会报严重错误
引用真个数组用@数组名，如@array=qw/a b c/;
pop:取出数组(一定操作的是数组而不是列表)最后一个元素，$a=pop(@array),括号可以省略，若无赋值项如pop @array表示删除数组中最后一个元素
push:插入到数组如:push(@array,1),将1插入到数组，可一次插入多个元素，且操作的必须为数组
unshift和shift对应的操作的是数组的第一个元素
splice操作的是数组中的其他任意元素如$remove=splime @array,x,n;删除array[x]及其之后n个内容，并将这部分内容赋给$remove
splime (@array,x,0,qw(a b c));一个也不删并插入qw在array[x]的位置
清空数组:@array=();

2.操作符

reverse:@array=reverse(@array)或reverse qw();将列表或数组中的元素翻转,切必须赋给数组才会改变值
sort:@so=sort(@so)或sort qw();排序，升序，想变为将序再用reverse，对数字排序默认为字符串，所以拍的不准
each:每次调用时返回数组中下一个元素的键值对，my ($a,$b) = sort(@array);

foreach语句

若无控制变量，自动使用$_作为控制变量如:foreach (1..10){print $_}

列表上下文

根据操作符等上下文得到列表的值
列表上下文中使用标量表达式得到的还是列表如:@array=1*2;一个成员3 @array=undef;一个成员未初始化

<STDIN>: @input=<STDIN>;linux需要手动输入ctrl+d,结束符，不然一直等待输入

三、关联数组%

perl所特有的，key-value的数组，类似于hash，元素在内部是随机的

1.创建

%array=(key1,value1,key2,value2);
%fruit=(“apples”=>17,”bananas”=>9,”oranges”=>”none”);用=>来分隔key和value
%fruit=@fruit;用数组创建,数组元素必须为偶数

2.增加修改数据

$array{key}=value;没错，就是是$，key也必须在{}里面，如果有key了就会更改key的value

3.取值

$a=$array{key1};
@lis=keys(%array);取出array中的所有key赋给lis数组
@lis=values(%array);去除array中的所有value赋给lis数组
@lis=%array;所有内容都赋给lis数组
%array=@lis;上面创建有讲到

4.删除

delete $array{key};删除某个key和其数据
%array=();清空

四、子程序

可以放在文件上面或者下面无需声明，子程序是全局的

1.定义

sub 函数名{……}

2.调用

&函数名；若函数名和内部函数名相同必须加&，若定义在调用后面且调用时候形参没加括号必须加
不加&:1定义在调用前面不用加&，形参的括号也不用加；2形参带有括号的调用，如func($a);这种调用可以明确的看出来是个函数可以不加

3.返回值

每个函数都有返回值，默认最后执行表达式的结果为子程序的返回值，所以无需制定函数返回值类型
注意，这样非常危险，很多潜在的返回值，例如最后执行了print，虽然表面看上去没有计算操作，但是print本身也有返回值，成功与否，所以这里一定要注意
也可以使用return来返回值，或者在程序执行大一半时候执行返回

4.形参

形参使用更加灵活，可以在函数定义时候不必理会形参的事情，只要在里面用@_[0]调用形参就好了@_[1]第二个参数，@_所有形参相当于数组
在函数定义时候没有强制限制参数个数，这样可以用foreach的方式来遍历参数完成某些功能

5.私有变量

my

my $a;标量私有，或my ($a,$b);列表私有，只能在一个语句块(也就是一个大括号)中使用，一个my只能声明一个标量
my(\$a,\$b)=@_;给私有列表赋值

state

state类似于static，在第一次调用时候赋值了，函数退出后在第二次再调用时候值保持不变

五、语句

perl语句比较灵活，融合shell和C等语言

1.举例

$opt{‘h’} and print_usage();前表达式非空便执行下一表达式
$opt{‘h’} or print_usage();前表达式为空便执行下一表达式