Perl知识集锦
语言
快速参考
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 |
#!/usr/bin/perl # 启用严格模式 use strict; # 启用内建的警告功能 use warnings FATAL => 'all'; ##### 其它 ##### # 老地方变量 $_，自动根据上下文推导此变量指向谁 foreach (qw/Alex Meng Cai/){ print $_; # 自动打印当前元素 } $_ = "Hello\n"; print; # 自动打印老地方变量 # 读取一行标准输入 my $line = <STDIN>; # 在不产生歧义的前提下，函数调用的括号是可选的 chomp $line; # 去除尾部的换行符 ##### 标量数据类型 ##### # 数字，在内部总是以双精度浮点数来表示 my $num = 94605; # my关键字创建词法变量，其作用域为当前代码块 $num = 6.02; $num = 6.02e23; # 可以使用下划线作为千分隔符 $num = 94_605; # 非十进制整数 $num = 0b101010; $num = 0777; $num = 0xFF; # 数字支持的操作符包括 + - * / % $num = 10 % 3; # 字符串 # 单引号字符串，总是字面含义 my $str = 'Hello \n World'; print $str; # Hello \n World # 双引号字符串，支持转义字符 my $name = 'Alex'; my multiline = " 支持多行字符串 "; # 支持变量内插 print "Hello $name ${name} \n"; # Hello Alex! # 字符串支持的操作符： # 字符串连接 my $hello = 'Hello ' . $name; # 字符串重复，重复次数非整数则向下取整，重复次数为0则生成空串 my $hello3 = $hello x 3; # HelloHelloHello # 字符串和数字的自动转换 print 5 . 5; # 只要是.操作符，就都认为是字符串，输出55 print 5 * "5"; # 只要是算术操作符，就认为是整数，输出25 # 甚至是 "5哈哈" * 5 也可以得出25 ##### 标量变量 ##### # 标量变量必须以 $ 开头 # 支持双目赋值操作符 $num += 1; $num *= 1; # 未经明确初始化的变量，其初值未undef，可以转换为数字0 while ($n < 10) { print($n++) # 12345678910 } # 下面的函数用于判断一个变量是否被初始化 $isdefined = defined($n); ##### 控制结构 ##### # 裸块，可以用于控制变量作用域 { my i = 0; } # if分支 # 对于字符串来说，''和'0'的值为假 # 对于数字来说， 0的值为假 # 其它类型，先转换为数字或字符串再判断 # 支持取反操作符 ! if ($name eq 'Alex') { # 字符串比较操作符 eq ne lt gt le ge } elsif ($num == 0) { # 数字比较操作符 == != < > <= >= } else {} # 后缀式条件修饰词 print "$n is zero" if $n == 0; # unlese结构，当表达式不满足的时候执行 unless (0 == 1) { print "Of course!"; } else {} # until循环，直到表达式不满足时才退出循环 until (0 == 1) { print "天荒地老"; } # while循环 my $count = 0; while ($count < 10) { $count++; } # foreach循环 foreach $user (qw/Alex Meng Cai/){ print $user; } # for循环 # 使用嵌套循环时，可以用标签 LABEL: for (my $i = 0; $i < 10; $i++) { # 下面三个关键字，后面的标签都是可选的 last LABEL; # 中止循环，类似于其它语言的break next LABEL; # 进行下一轮迭代，类似于其它语言的continue redo LABEL; # 重新进行本轮迭代 } ##### 数组 ##### # 列表直接量，使用()包围 # 数组变量，使用@作为前导 @empty = (); @nums = (1, 2, 3); @nums = (1 .. 100); # 100个数字的列表 # $#nums表示获取数组nums的最后一个元素的索引值，即长度-1 $num_count = $#nums + 1; # 字符串的列表 @users = ('Alex', 'Meng', 'Cai'); @users = qw(Alex Meng Cai); # 等价于上面，空格分隔元素 # qw简写可以使用任何界定符 qw{}; # 列表式赋值： ($alex, $meng) = ('Alex', 'Meng'); # 互换两个元素的值 # 注意引用数组元素时需要标量前缀$ ($nums[ 0 ], $nums[ 1 ]) = ($nums[ 1 ], $nums[ 0 ]); # 将数组作为栈来操作 $num = pop @nums; push @nums, 0; # pop/push是在数组的尾部操作，shift/unshift则是在头部 @nums = (0, 1, 2); shift @nums; unshift @nums,0; unshift @nums,-1; print @nums; # -1012 # 数组在字符串中的内插，元素之间自动加空格 print "\n@nums"; # -1 0 1 2 # 反转操作符，获得列表的逆序 @nums_r = reverse @nums; # 排序操作符，以ASCII序排列 sort @nums_r; ##### 哈希 ##### %users = ('Alex', 30, 'Meng', 27); # 胖箭头语法： %users = ( 'Alex' => 30, 'Meng' => 27 ); #CRUD操作 $users{'Alex'} = 32; $users{'Meng'} = 28; $users{'Cai'} = 3; print $users{'Ya'}; # 获取不存在的键会得到undef exists $users{'Ya'}; # 判断指定的键是否存在 delete $users{'Ya'}; # 删除指定的键 # 哈希可以和列表相互转换，转换为列表是，键值都作为列表元素 # 但是转换后，键值对的顺序不能保证 @users = %users; print scalar @users; # 6 # 获得键列表和值列表 my @keys = keys %users; my @vals = values %users; # each函数，每次调用，返回下一个键值对（的列表）类似于其它语言中的迭代器 while (($k, $v) = each %users) { printf "%s = %d\n", $k, $v; } # %ENV存放环境变量 printf "$ENV{PATH}\n" ##### 子程序 ##### use feature 'state'; sub add { # 参数存放在名为@_的数组中，注意$_[0]和老地方变量$_毫无关系 $_[0] + $_[1]; # 最后一个表达式的结果，作为子程序的返回值，你也可以使用 return 语句随时返回 } # 调用子程序，使用&表达式 $result = &add(1, 2); print $result; # 3 # 对于已经知晓子程序定义的地方，可以省略& print add(1, 2); # 3 # 如果子程序和Perl内置函数同名，不得省略& sub chomp {print('chomp')};&chomp(); sub counter { # 持久性局部变量，跨越多次子程序存在，但是作用域限定在子程序内部 state $count = 0; $count++; print $count; } counter counter counter; # 123 |
模块
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
# 引入模块以使用 # 在编译阶段，遇到下面的语句后会自动查找相关的代码并加载到当前脚本中 # /usr/share/perl/5.18/File/Basename.pm use File::Basename; # 你可以仅仅导入模块中特定的函数 use File::Basename qw/basename/; my $fname = '/usr/bin/perl'; # 调用导入的函数 print basename $fname; # perl # 不导入任何函数 use File::Basename qw//; # 但是你仍然可以用全限定名称调用之 File::Basename::basename($fname) |
上下文
在Perl中，相同的表达式，出现不同的地方（上下文）时，具有完全不同的意义。上下文包括标量上下文、列表上下文，在标量上下文中，Perl表达式的期望结果是标量，否则是列表。例如下面这段代码：
表达式@users在列表上下文中，会产生数组元素的列表，在标量上下文中则返回元素个数：
某个具体表达式在不同上下文中的返回值是什么，各有不同，例如：
| 表达式 | 标量上下文 | 列表上下文… |
15 years ago
0