[原创教程] perl学习笔记

Rank: 2

帖子: 97
积分: 164
技术: 6
捐助: 0
注册时间: 2011-3-29

2楼

发表于 2011-10-27 00:45 | 只看该作者

第一章简单变量（标量变量）
perl的简单变量名用$做前缀，常用的两种数据类型：数字，字符串（用'括起来，或者"括起来）；

若字符串中含有非数字的字符，则从左起至第一个完整的数值作为数字后面的忽略；
$a="3.141e2abc45"+1;
print $a; # 315.1

常见整数表示法:
1300300 、 1_300_300
常见浮点数表示法:
-11.4 、 -0.3 、.3 、 3. 、 54.1e+02

'ab\nAB' 与 "ab\nAB" 的区别:
单引号的原样输出；双引号的则转义后输出（这部分不熟悉研究ascii码表）；
常用转移字符 \r \n \t \a \b \" \$ \@ \\ ...
\x**（16进制） \***（8进制）比如 \x22表示“"”

SOS --- >> lllsoslll@163.com

Rank: 2

帖子: 97
积分: 164
技术: 6
捐助: 0
注册时间: 2011-3-29

3楼

发表于 2011-10-27 00:46 | 只看该作者

第二章列表与数组
列表像是一堆数据：
(1,2,3,4,5,6) 又等同 (1,2 ... 6); #以逗号分隔
qw/什么东东 1 2 xyz/ 等同于qw{什么东东 1 2 xyz} #以空格分隔
perl存放列表的变量用@做为前缀，比如@arr就是一个数组标量，可以把列表赋值给他:
@arr=(0,1...10);
访问列表的第n个元素用$a[n-1]；比如第一个元素$arr[0]
$#arr中存放着数组@arr的索引值，所以可以用$#arr获取数组中元素的个数；
$a=@arr # perl会进行语境转换，$a的值则被赋值为@arr元素的个数

SOS --- >> lllsoslll@163.com

Rank: 2

帖子: 97
积分: 164
技术: 6
捐助: 0
注册时间: 2011-3-29

4楼

发表于 2011-10-27 00:46 | 只看该作者

本帖最后由 lllsoslll 于 2011-11-2 23:47 编辑

第三章基本控制结构

# "<"，">"，">="，"<="，"=="，"!="： 数字 比较。
# "eq"，"lt"，"gt"，"le"，"ge"，"ne" ： 字符串 比较。
if($a<$b) {print $a; }
print $a if ($a<$b);
复制代码

if (!($a < 3)) ...
等价于
unless($a<3)
复制代码

while ($a<0) {print $a;}
print $a while ($a<0);
复制代码

for (语句; 条件表达式; 语句;) {语句;}
for (1 ... 10) print $_;
print for (1...10);
print foreach (@array);
复制代码

SOS --- >> lllsoslll@163.com

Rank: 2

帖子: 97
积分: 164
技术: 6
捐助: 0
注册时间: 2011-3-29

5楼

发表于 2011-10-27 00:47 | 只看该作者

本帖最后由 lllsoslll 于 2011-11-2 23:59 编辑

第四章散列

$hash{1} = 'one';
$hash{2} = 'two';
$hash{3} = 'three';
##
my %hash = (
1 => 'one',
2 => 'two',
3 => 'three',
);
复制代码

SOS --- >> lllsoslll@163.com

Rank: 2

帖子: 97
积分: 164
技术: 6
捐助: 0
注册时间: 2011-3-29

6楼

发表于 2011-10-27 00:47 | 只看该作者

第五章子程序

SOS --- >> lllsoslll@163.com

Rank: 2

帖子: 97
积分: 164
技术: 6
捐助: 0
注册时间: 2011-3-29

7楼

发表于 2011-10-27 00:47 | 只看该作者

第六章正则表达式

SOS --- >> lllsoslll@163.com

Rank: 2

帖子: 97
积分: 164
技术: 6
捐助: 0
注册时间: 2011-3-29

8楼

发表于 2011-10-27 00:48 | 只看该作者

本帖最后由 lllsoslll 于 2011-10-27 00:49 编辑

第七章文件读写与文件系统

SOS --- >> lllsoslll@163.com

Rank: 2

帖子: 97
积分: 164
技术: 6
捐助: 0
注册时间: 2011-3-29

9楼

发表于 2011-10-27 00:50 | 只看该作者

第八章引用

SOS --- >> lllsoslll@163.com

Rank: 2

帖子: 97
积分: 164
技术: 6
捐助: 0
注册时间: 2011-3-29

10楼

发表于 2011-10-27 00:51 | 只看该作者

第九章包和模块

SOS --- >> lllsoslll@163.com

HAT

荣誉版主

Rank: 8 Rank: 8

帖子: 380
积分: 1159
技术: 28
捐助: 0
注册时间: 2008-8-21

11楼

发表于 2011-10-27 09:56 | 只看该作者

回复 3# lllsoslll

my @a = (1, 2, 3);
#数组元素个数
print scalar(@a),"\n";
print @a."\n";
my $n = @a;
print "$n\n";
#数组最后一个下标（数组元素个数减去1）
print "$#a\n";
#数组最后一个元素
print "$a[$#a]\n";
复制代码

920168

Rank: 2

帖子: 105
积分: 185
技术: 18
捐助: 0
注册时间: 2011-9-16

12楼

发表于 2011-10-27 10:22 | 只看该作者

支持LZ！！

http://www.diecasting86.com

Rank: 2

帖子: 97
积分: 164
技术: 6
捐助: 0
注册时间: 2011-3-29

13楼

发表于 2011-11-3 00:04 | 只看该作者

第十章常用函数及特殊用法；

SOS --- >> lllsoslll@163.com