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开始
$names = "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;
}
页:
[1]