Menu

  • Home
  • Work
    • Cloud
      • Virtualization
      • IaaS
      • PaaS
    • Java
    • Go
    • C
    • C++
    • JavaScript
    • PHP
    • Python
    • Architecture
    • Others
      • Assembly
      • Ruby
      • Perl
      • Lua
      • Rust
      • XML
      • Network
      • IoT
      • GIS
      • Algorithm
      • AI
      • Math
      • RE
      • Graphic
    • OS
      • Linux
      • Windows
      • Mac OS X
    • BigData
    • Database
      • MySQL
      • Oracle
    • Mobile
      • Android
      • IOS
    • Web
      • HTML
      • CSS
  • Life
    • Cooking
    • Travel
    • Gardening
  • Gallery
  • Video
  • Music
  • Essay
  • Home
  • Work
    • Cloud
      • Virtualization
      • IaaS
      • PaaS
    • Java
    • Go
    • C
    • C++
    • JavaScript
    • PHP
    • Python
    • Architecture
    • Others
      • Assembly
      • Ruby
      • Perl
      • Lua
      • Rust
      • XML
      • Network
      • IoT
      • GIS
      • Algorithm
      • AI
      • Math
      • RE
      • Graphic
    • OS
      • Linux
      • Windows
      • Mac OS X
    • BigData
    • Database
      • MySQL
      • Oracle
    • Mobile
      • Android
      • IOS
    • Web
      • HTML
      • CSS
  • Life
    • Cooking
    • Travel
    • Gardening
  • Gallery
  • Video
  • Music
  • Essay

Category Perl

Perl

Perl知识集锦

语言
快速参考
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
模块
Perl
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

Recent Posts

  • Investigating and Solving the Issue of Failed Certificate Request with ZeroSSL and Cert-Manager
  • A Comprehensive Study of Kotlin for Java Developers
  • 背诵营笔记
  • 利用LangChain和语言模型交互
  • 享学营笔记
ABOUT ME

汪震 | Alex Wong

江苏淮安人,现居北京。目前供职于腾讯云,专注容器方向。

GitHub:gmemcc

Git:git.gmem.cc

Email:gmemjunk@gmem.cc@me.com

ABOUT GMEM

绿色记忆是我的个人网站,域名gmem.cc中G是Green的简写,MEM是Memory的简写,CC则是我的小天使彩彩名字的简写。

我在这里记录自己的工作与生活,同时和大家分享一些编程方面的知识。

GMEM HISTORY
v2.00:微风
v1.03:单车旅行
v1.02:夏日版
v1.01:未完成
v0.10:彩虹天堂
v0.01:阳光海岸
MIRROR INFO
Meta
  • Log in
  • Entries RSS
  • Comments RSS
  • WordPress.org
Recent Posts
  • Investigating and Solving the Issue of Failed Certificate Request with ZeroSSL and Cert-Manager
    In this blog post, I will walk ...
  • A Comprehensive Study of Kotlin for Java Developers
    Introduction Purpose of the Study Understanding the Mo ...
  • 背诵营笔记
    Day 1 Find Your Greatness 原文 Greatness. It’s just ...
  • 利用LangChain和语言模型交互
    LangChain是什么 从名字上可以看出来,LangChain可以用来构建自然语言处理能力的链条。它是一个库 ...
  • 享学营笔记
    Unit 1 At home Lesson 1 In the ...
  • K8S集群跨云迁移
    要将K8S集群从一个云服务商迁移到另外一个,需要解决以下问题: 各种K8S资源的迁移 工作负载所挂载的数 ...
  • Terraform快速参考
    简介 Terraform用于实现基础设施即代码(infrastructure as code)—— 通过代码( ...
  • 草缸2021
    经过四个多月的努力,我的小小荷兰景到达极致了状态。

  • 编写Kubernetes风格的APIServer
    背景 前段时间接到一个需求做一个工具,工具将在K8S中运行。需求很适合用控制器模式实现,很自然的就基于kube ...
  • 记录一次KeyDB缓慢的定位过程
    环境说明 运行环境 这个问题出现在一套搭建在虚拟机上的Kubernetes 1.18集群上。集群有三个节点: ...
  • eBPF学习笔记
    简介 BPF,即Berkeley Packet Filter,是一个古老的网络封包过滤机制。它允许从用户空间注 ...
  • IPVS模式下ClusterIP泄露宿主机端口的问题
    问题 在一个启用了IPVS模式kube-proxy的K8S集群中,运行着一个Docker Registry服务 ...
  • 念爷爷
      今天是爷爷的头七,十二月七日、阴历十月廿三中午,老人家与世长辞。   九月初,回家看望刚动完手术的爸爸,发

  • 6 杨梅坑

  • liuhuashan
    深圳人才公园的网红景点 —— 流花山

  • 1 2020年10月拈花湾

  • 内核缺陷触发的NodePort服务63秒延迟问题
    现象 我们有一个新创建的TKE 1.3.0集群,使用基于Galaxy + Flannel(VXLAN模式)的容 ...
  • Galaxy学习笔记
    简介 Galaxy是TKEStack的一个网络组件,支持为TKE集群提供Overlay/Underlay容器网 ...
TOPLINKS
  • Zitahli's blue 91 people like this
  • 梦中的婚礼 64 people like this
  • 汪静好 61 people like this
  • 那年我一岁 36 people like this
  • 为了爱 28 people like this
  • 小绿彩 26 people like this
  • 杨梅坑 6 people like this
  • 亚龙湾之旅 1 people like this
  • 汪昌博 people like this
  • 彩虹姐姐的笑脸 24 people like this
  • 2013年11月香山 10 people like this
  • 2013年7月秦皇岛 6 people like this
  • 2013年6月蓟县盘山 5 people like this
  • 2013年2月梅花山 2 people like this
  • 2013年淮阴自贡迎春灯会 3 people like this
  • 2012年镇江金山游 1 people like this
  • 2012年徽杭古道 9 people like this
  • 2011年清明节后扬州行 1 people like this
  • 2008年十一云龙公园 5 people like this
  • 2008年之秋忆 7 people like this
  • 老照片 13 people like this
  • 火一样的六月 16 people like this
  • 发黄的相片 3 people like this
  • Cesium学习笔记 90 people like this
  • IntelliJ IDEA知识集锦 59 people like this
  • 基于Kurento搭建WebRTC服务器 38 people like this
  • Bazel学习笔记 38 people like this
  • PhoneGap学习笔记 32 people like this
  • NaCl学习笔记 32 people like this
  • 使用Oracle Java Mission Control监控JVM运行状态 29 people like this
  • 基于Calico的CNI 27 people like this
  • Ceph学习笔记 27 people like this
  • Three.js学习笔记 24 people like this
Tag Cloud
ActiveMQ AspectJ CDT Ceph Chrome CNI Command Cordova Coroutine CXF Cygwin DNS Docker eBPF Eclipse ExtJS F7 FAQ Groovy Hibernate HTTP IntelliJ IO编程 IPVS JacksonJSON JMS JSON JVM K8S kernel LB libvirt Linux知识 Linux编程 LOG Maven MinGW Mock Monitoring Multimedia MVC MySQL netfs Netty Nginx NIO Node.js NoSQL Oracle PDT PHP Redis RPC Scheduler ServiceMesh SNMP Spring SSL svn Tomcat TSDB Ubuntu WebGL WebRTC WebService WebSocket wxWidgets XDebug XML XPath XRM ZooKeeper 亚龙湾 单元测试 学习笔记 实时处理 并发编程 彩姐 性能剖析 性能调优 文本处理 新特性 架构模式 系统编程 网络编程 视频监控 设计模式 远程调试 配置文件 齐塔莉
Recent Comments
  • qg on Istio中的透明代理问题
  • heao on 基于本地gRPC的Go插件系统
  • 黄豆豆 on Ginkgo学习笔记
  • cloud on OpenStack学习笔记
  • 5dragoncon on Cilium学习笔记
  • Archeb on 重温iptables
  • C/C++编程:WebSocketpp(Linux + Clion + boostAsio) – 源码巴士 on 基于C/C++的WebSocket库
  • jerbin on eBPF学习笔记
  • point on Istio中的透明代理问题
  • G on Istio中的透明代理问题
  • 绿色记忆:Go语言单元测试和仿冒 on Ginkgo学习笔记
  • point on Istio中的透明代理问题
  • 【Maven】maven插件开发实战 – IT汇 on Maven插件开发
  • chenlx on eBPF学习笔记
  • Alex on eBPF学习笔记
  • CFC4N on eBPF学习笔记
  • 李运田 on 念爷爷
  • yongman on 记录一次KeyDB缓慢的定位过程
  • Alex on Istio中的透明代理问题
  • will on Istio中的透明代理问题
  • will on Istio中的透明代理问题
  • haolipeng on 基于本地gRPC的Go插件系统
  • 吴杰 on 基于C/C++的WebSocket库
©2005-2025 Gmem.cc | Powered by WordPress | 京ICP备18007345号-2