perl简单语法.docVIP

?Perl 的简单语法（与 C 语言的异同） 基本输入输出 分支循环控制结构 函数 常用系统调用 文件操作 进程管理 7.1????基本输入输出 在 BASH 脚本程序中，我们用 read var 来实现从键盘的输入，用 echo $var 来实现输出。那么在 Perl 中将有一点变化。Perl 中将标准输入用关键词 STDIN 表示；标准输出用 STDOUT 表示，标准错误输出用 STDERR 表示。故而从标准输入读取数据可以写成： $var=STDIN; # 读取一行输入，并存入变量 $var 中。@var=STDIN; # 读取多行输入，并存入数组 @var 中。 在 Perl 语言中，变量 $_ 是许多操作符的缺省变量。因此如果需要读入许多行并对每行分别处理一般这样写： 　　　while($_=){ 　　　　chop($_); # chop 调用用于去掉 $_ 变量中的最后一个字符（换行符）。　　　　# 处理$_(每一行)　　　} 或者可以简写为： 　　　while(){ 　　　　chop; # 等同于chop($_) 　　　　# 处理$_(每一行) 　　　} 如果 括号之间没有任何字符，则表示从命令行所指示的文件中读取数据，看下面这个例子（read.pl）： 　　　#!/usr/bin/perl; 　　　while(){ 　　　　print $_; 　　　} 如果在命令行输入 $ perl read.pl read.pl 。这个程序将在屏幕上打印出文件 read.pl 的每一行。 在前面的例子中我们已经看见，Perl 语言中向标准输出输出数据可以用 print 语句。我们在 print 语句中可以输出多个变量，变量之间用 , 分隔开来。如下面的例子： 　　　print 3,45*2,hello,2+2; 上面的输出语句将给出 390hello4 的输出结果。 除了 print 语句以外，Perl 中还提供了一个 printf 语句用于标准输出，不过 printf 更接近于 C 语言的 printf 函数，可以进行格式化的输出，如： 　　　printf %10s% 8d%8.2f\n,$a,$b,$c;　　　printf(%10s% 8d%8.2f\n,$a,$b,$c); # 加上括号的 C 语言写法也是可以的。 另外 print 和 printf 在输出数组变量的时候也是不同的，如下例： @a = (1 , 2, 3); printf @a; print \n; print @a; print \n; 输出的结果是： 1123 如果在 @a 两边加上 ，则输出就都是 123了。 ? 7.2????分支循环控制结构 if 语法 Perl 语言的 if...then...else... 语句结构和 C 语言非常相似，该结构一共有三种变种，分别如下： if 语法 1： if(判别运算式){ 　　表达式为真时的语句块; } 或写成：表达式为真时的语句 if (判别运算式); 实例为：print 您的分数及格了!\n if ($score=60); if 语法 2： if(判别运算式一){ 　　判别式一为真时的语句块;}else{ 　　判别式一为假时的语句块;} if 语法 3： if (判别运算式一){ 　　判别式一为真时的语句块;}elsif(判别运算式二){ 　　判别式二为真时的语句块;}elsif(判别运算式三){ 　　判别式三为真时的语句块;}else{ 　　所有判别式为假时的语句块;} unless 语法 unless的含义就是说“如果判别式不为真，就执行...”。 unless 语法 1： unless(判别运算式) { 　　判别式为假时语句块;} 或写为：判别式为假时语句 unless (判别运算式); unless 语法 2： unless(判别运算式){　　判别式为假时语句块;}else{ 　　判别式为真时语句块;} 进阶技巧：、|| 及 ? : 这些符号看上去像标点符号，或是表达式的一部分。和 C 语言中一样，他们在 Perl 语言中也可作为控制结构，而且更简洁，只是可读性差了很多。 比如说：　if (判别表达式)　{为真时语句块}; 也可以写为：　判别表达式 为真时的语句块 同样道理，unless(this){that} 可替换为 this||that。? : 则可以这样使用： exp1?exp2:exp3 这个式子表示：如果 exp1 为真则求 exp2 的值，否则求 exp3 的值。 while 循环语法 Perl 语言中 while, do...while, for, until