Perl 学习小结

风起漂泊

　　Perl 的意思
　　Pracctical Extraction and Report Language    实用摘录与报表语言
　　Pathologically Eclectic Rubbish Lister    病态折中式垃圾列表器
　　是先有Perl这个词,后有展开诠释,两种解释都被Larry认可.
　　Perl 的原则
　　一:数据类型
　　1.常量 

　　常量用$变量名定义


$name = "ahcming";              # 定义一个字符串常量
$age = 24;                      # 定义一个数字常量
　　1)数字.在Perl中,数字都是按双精度浮点数进行运算

255                                           # 数字默认是十进制
0377                                          # 八进制(octal)数字以0开头,十进制等于255
0xFF                                          # 十六进制(hexadecimal)数字以0x开头,十进制等于255
0b11111111                                    # 二进制(binary)数字以0b开头,十进制等于255

　　
       
数字运算符

+                # 2 + 3 = 5
-                # 2 - 3 = -1
*                # 2 * 3 = 6
/                # 2 / 3 = 0.66666666666
%                # 取模运算 2 % 3 = 2
**               # 乘幂运算 2**3 = 8
 
 　　2)字符串.
　　字符串可以被单引号括起来,也可以被双引号括起来,两者的区别如下

'ahcming'                        # 7 个字符
"ahcming"                        # 同'ahcming'一样
'ahcming\n'                      # 9个字符,\,n 分别算两个字符
"ahcming\n"                      # 8个字符, \n算一个字符(换行符)
　　
           
也就是说双引号中的字符串会对那些特殊字符,变量自动进行替换,而单引号则会原封不动的进行输出.
　　字符串操作符

a.字符串连接 "."
"hello" . "world"       # 等同于"helloworld"
b.字符串重复 "x"
"ahcming" x 3           # 等同于"ahcmingahcmingahcming"
c.比较操作符
eq              # 相等
ne              # 不等
lt              # 小于
gt              # 大于
le              # 小于等于
ge              # 大于等于
 　　2.数组
　　一些数组常见用法

@names;                           # 定义一个数组
$names[0];                        # 引用第0个元素,数组下标从0开始
$names[2] = "intoms";             # 向第2个元素赋值,注意,现在@names有3个元素了
$names[-1];                       # 引用@names中最后一个元素,也就是intoms
$names[-100];                     # 试图引用倒数第100个元素,严重错误

　　数组初始化及赋值

@num1 = (1,3,50);                         # 包含3个元素的数组
@num2 = (1..100);                         # 包含从1到100的100个元素的数组
@num3 = ($n..$m);                         # 如果$n<=$m, 则包含$n,$m之间的整数,如果 $n>$m,则数组为空
@str = qw(s1,s2,s3,s4);                   # qw 的好处是s1,不用用引号括起来
@path = qw{/usr/bin, /home/aaa, .};       # qw 的定界符可随意
 　　对数组进行操作的方法

1.pop                                     # 弹出数组尾元素
@array = 1..5;
$num = pop(@array);                       # $num = 5;@array现在是1,2,3,4
2.push                                    # 向数组尾压入元素,可以是多个
push(@array, 5);                          # @array现在是1,2,3,4,5
push @array, 6..10;                       # @array 现在是1,2,3,4,5,6,7,8,9,10
@ohers = qw/5 4 3 2 1/;
push(@array, @others);                    # 把others数组压入@array
3.shfit                                   # 弹出数组头部元素
@array = qw#dino fred barney#;
$name = shift(@array);
4.unshift                                 # 在数组头部压入一些元素,基本用法同push
5.reverse                                 # 转置数组
@num = 6..10;
@num2 = reverse(@num);                    # @num2是10,9,8,7,6,@num没有改变
6.sort                                    # 按照ASCII顺序对数组进行排序
 　　3.哈希
　　哈希也可以称做关联数组,散列等等
　　a.定义

%hash=();                # 声明一个空的hash
%hash={};               # 声明一个数组类型的空hash
%hash=("lincon",25,"ahcming",13);
%hash=("lincon"=>25, "ahcming"=>13);    # 以上两种写法相同,不过下面的更清楚点

　　b.访问hash

%hash{key}            # 返回hash中key对应的value,如果hash中不存在key,则返回undef当%hash没有初始化时
可以用exists(%hash{key})来判断是否存在key// 有好的例子时补上
$value = exists(%hash{key})?$hash{key}:defaultValue;
$hash{key} = value;     # 向hash中放入key==>value的键值对

　　c.遍历hash

for $key ( keys(%hash) ) {
print $key . ", " . $hash{$key} . "\n";
}
while( ($key,$value) = each(%hash) ) {
print "$key ==> $value\n";
}

　　d.其它操作

i) 获得hash的长度
$hash_size = keys(%hash);     # %hash的长度放到$hash_size中
print scalar keys(%h) . "\n";         # 打印%h的长度。这里用了scalar来返回数组长度
ii)清空hash
undef(%hash);
　　e.哈希的哈希

// 有好例子时补上
 　　二:代码流程控制
　　1.顺序
　　2.选择

1.单if
if( boolean表达式 ) {
# 一些操作
}
2.if-else
if( boolean表达式 ) {
# 一些操作
} else {
# 当条件为假的操作
}
3.if-elsif-else
if( boolean表达式 ) {
# 一些操作
} elsif( boolean表达式 ) {
# 一些操作
} else {
# 其它情况的操作
}
 　　3.循环

1.for 循环
for( $x = 0; $x < 10; $x++ ) {
#
}
联想C语言,你就知道其它形式的 for循环应该怎么写了,比如无限循环
for(;;) {
#
}
2.foreach
foreach (@array) {
# 依次从读取数组中每个元素放在$_中
}
foreach $e (@array) {
# 依次读取@array中每个元素放到$e中
}
3.while
while( boolean 表达式 ) {
# 一些操作
}
　　退出循环:

next;                         # 退出本次循环,相当C中的continue
last;                         # 退出所有循环,相当C中的break
　　三:定义子过程
　　常用格式

sub funName {
#return xxx;
}
　　说明:
　　1.funName 是进程名称.通过＆funName()进行调用方法

&fun();                       # 无参调用
&fun("ahcming", 18);          # 推荐这两种形式调用方法
fun("ahcming", 18);           # 只要不与perl系统函数名冲突,就可以去掉&
fun "ahcming", 18             # 只要加上括号看起来想函数,他就是函数,如果不影响语义就可以去掉括号

 　　2.funName 可省略,那就相当于匿名方法,用法如下

$value = sub {
# 一些操作
# 返回一个值,数组,对象什么的
}
　　3.参数的传递.
　　所有的参数,不论数目,类型,都放在一个数组($_)里面
　　参数传递是引用传递(因为放在数组里面),所以在方法里面对参数进行修改会影响到外面的变量
　　可以有方法里面用my 到接收到的参数再进行声明,形成局部变量

sub fun {
my($value, @array, %map) = $_;
# 对参数进行处理
# 逻辑运算
# 其它乱七八遭的
}
 　　4.返回值
　　方法可以用return 显式的指定返回值,也可以隐式的指定,隐匿指定的规则是方法的最后一行的结果就是方法的返回值

sub fun {
# xxxxxxx
# xxxxxxxxx
# waitarray 可用来判定调用方法的语意环境是列表还是标量
return waitarray?@array:$value;
}