Posts By Alex

Perl

Perl知识集锦

语言

快速参考

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

模块

# 引入模块以使用

# 在编译阶段，遇到下面的语句后会自动查找相关的代码并加载到当前脚本中

# /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在列表上下文中，会产生数组元素的列表，在标量上下文中则返回元素个数：

某个具体表达式在不同上下文中的返回值是什么，各有不同，例如：

表达式	标量上下文	列表上下文…

阅读全文

16 years ago

C, Linux

POSIX线程编程

基本知识

什么是线程

一个程序中可以有多个代码指向序列，这每个序列就是一个线程（Thread），线程是进程内部的一个控制序列。一个进程至少具有一个执行线程。

Linux中通过fork创建的新进程，与Phtead API创建的线程是具有很大不同的：

fork出的进程…

阅读全文

16 years ago

C, Linux

Linux编程知识集锦

库

共享对象

共享库（Shared libraries），在程序执行起始时被自动加载（而非执行过程中随时动态加载）。在链接阶段，必须有共享库才能链接。

soname

使用共享库时，运行时加载的库，应当与链接时期望的库的“版本”一致，即功能上没有不兼容的变化。二进制…

阅读全文

16 years ago

C, Linux

Linux IO编程

文件访问

Linux系统中每个运行的进程，具有与之关联的文件描述符，通过这些描述符可以访问打开的文件或者设备。当一个进程打开时，一般会有三个已经打开的文件描述符：

描述符	说明
0	代表标准输入
1	代表标准输出
2	代表标准错误

系统调用

下表是与文件访问有关的系统调…

阅读全文

16 years ago

Architecture

备忘录模式

模式定义

在不破坏封装性的前提下，捕获一个对象的内部状态，并在该对象之外保存这一状态。以后可以将对象恢复到原先保存的状态。备忘录模式在GOF95中被分类为行为型模式。

模式结构与说明

patterns_MementoPattern

Memento：备忘录接口，用来存放原发器对象某个瞬间的内部状态，该接口通常…

阅读全文

16 years ago

C, Linux

Linux网络编程

系统编程接口

错误码

代码	名字	说明
0		Success
1	EPERM	Operation not permitted
2	ENOENT	No such file or directory
3	ESRCH	No such process
4	EINTR	Interrupted syst…

阅读全文

16 years ago

Java

Maven知识集锦

基本概念

项目对象模型（Project Object Model,POM）：描述项目的基本信息：声明构件的坐标、如何进行构建、声明项目的依赖存放在项目根目录下的pom.xml中。POM包含了项目的一切元数据——具体IDE相关的元数据，例如.project、.clas…

阅读全文

16 years ago

Java, Network

Java NIO浅析

什么是NIO

I/O是计算机与外部世界或者一个程序与计算机的其余部分的之间的接口，是操作系统的重要组成部分，I/O核心功能通常是操作系统内核的一部分。

NIO即“New I/O”（也有人将其解释为Non-blocking I/O），是JDK 1.4引入的新的输…

阅读全文

16 years ago

Java

Axis知识集锦

Axis 动态WebService客户端样例

org.apache.axis.client.Service service = new Service();

Call call = (Call) service.createCall();

call.setTargetEndpointAddress( "http://192.168.1.184:9090/services/flowService" );

call.setOperationName( new QName( "http://flow.gmem.cc/", "request" ) );

call.addParameter( "userName", XMLType.XSD_STRING, ParameterMode.IN );

call.addParameter( "password", XMLType.XSD_STRING, ParameterMode.IN );

call.addParameter( "xml", XMLType.XSD_STRING, ParameterMode.IN );

call.setReturnType( XMLType.XSD_STRING );

Object result = call.invoke( new Object[] { "USER", "111111", xml } );

Axis1.4 客户端调用报错：Fault occurred while processing

报错信息： AxisFault faultCode: {http://schemas.xmlsoap.org/soap/envelope/}Server faultSubcode: faultString: Fault occurred w… 阅读全文

16 years ago

Java

Java知识集锦

常见名词

名词术语	说明
JPA	Java关于ORM的标准，Hibernate实现了该标准
JTA	Java关于事务的API
JDI	Java 调试接口（Java Debug Interface）
JDT	Java 开发工具（Java Development Tools）
JD…

阅读全文

16 years ago

Posts By Alex

Perl知识集锦

POSIX线程编程

Linux编程知识集锦

Linux IO编程

备忘录模式

Linux网络编程

Maven知识集锦

Java NIO浅析

Axis知识集锦

Java知识集锦

ABOUT ME

ABOUT GMEM

GMEM HISTORY

MIRROR INFO

Meta

Recent Posts

TOPLINKS

Recent Comments