Perl语言简述

1.Hello,World

1 2 3

#!/usr/bin/perl -w print  ( "hello,world!\n" ); #print "hello,world!\n";

说明：
（1）第一行指定解释器，-w参数表示提示警告（或者使用use strict命令，执行更严格的检查）；
（2）第二行输出hello, world!；
（3）如果习惯c的函数方式，print的参数可以打括号；
（4）第三行是注释，注释以#打头；
（5）如果习惯shell的方式，print的参数可以没有括号；
（6）双引号内可以使用转义字符；

不妨设文件名为helloworld.pm
程序的执行方法为：
（1）perl helloworld.pm
（2）chmod 755 helloworld.pm && ./helloworld.pm

2.常量
2.1数字
（1）Perl内部总按照“双精度浮点数”保存数字并执行运算；
（2）0377=>八进制；0xFF=>十六进制；
2.2字符串
（1）单引号表示字符串，不转义；
（2）双引号表示字符串，转义且解释变量；
2.3字符串操作符
（1）拼接操作符：“.”=>拼接字符串；
（2）重复操作符：“x”=>一个字符串重复多次；

1 2 3

#!/usr/bin/perl -w print  ( "hello," . "world!\n" ); print  ( "hello "  x 3);

输出结果是：
hello,world!
hello hello hello

最后要说明一点，Perl是弱类型语言，字符串和数字会相互转化，这一点和php一样。

3.变量
（1）变量以$开头，后接一个标示符；
（2）如何用变量获取用户输入？
使用，它获取用户的输入（一般以换行结束），可以使用chomp去除结尾的换行符。

1 2 3 4 5 6 7 8

#!/usr/bin/perl -w $count  = 0; while ( $count <10) { chomp ( $input  = ); print ( $input ); $count ++; }

（3）未定义变量
未定义的变量会赋予undef值，它既不是数字，也不是字符串；
它有可能被当做数字0使用；
使用define函数可以知道一个变量是否被定义；

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl -w $var  =  undef ; print ( $var ); if ( defined ( $var )) { print ( "defined!\n" ); } else { print ( "undefined!\n" ); } $var ++; print ( $var );

它的输出是：
Use of uninitialized value in print at undef.pm line 3.
undefined!
1

（4）变量的作用域
my和our可以指定变量的作用域
my指定为局部作用域；
our指定为全局作用域（默认为our）；

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl -w our  $g_one  =  "global_one\n" ; $g_two  =  "global_two\n" ; { my  $local_one  =  "local_one\n" ; print ( $g_one ); print ( $g_two ); print ( $local_one ); } print ( $g_one ); print ( $g_two ); print ( $local_one );

输出为：
global_one
global_two
local_one
global_one
global_two
Use of uninitialized value in print at our_my.pm line 13.

4.数组与列表
4.1数组
和c的数组使用非常类似：
$array[0]=”a0″;
$array[1]=”a1″;
$array[2]=”a2″;

4.2列表
圆括号内的一系列值，构成列表：
(1, 2, 3)
(“hello”, 4)
(“hello”, “world”, “yes”, “no”)
qw(hello world yes no)
(1..10)
说明：
（1）第一行，列表元素为1,2,3；
（2）第二行，列表元素为一个字符串，一个数字；
（3）第三行，列表元素为4个字符串，好多引号和逗号啊；
（4）第四行，wq操作符，用来建立字符串列表，而不用输入这么多引号和逗号，效果同（3）；
（5）范围操作符“..”，表示一个范围，从左至右连续加一。

列表的赋值：
($v1, $v2, $v3) = qw(yes i am);

整个列表的引用，@操作符：
@list = qw(yes i am);
@none = ();
@huge = (1..5);
@stuff = (@list, @none, @huge);

pop和push操作符：
（1）pop弹出列表末端元素；
（2）push向列表末端压入元素；

shift和unshift操作符：
（1）shift移出列表首部元素；
（2）unshift向列表首部压入元素；

列表的输出：
（1）列表输出，只输出列表，元素间不含空格；
（2）列表的字符串化输出，输出列表，元素间加入空格；
（3）foreach控制结果，可以依次取得列表中各个元素

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/perl -w @list  = qw(yes i am); @none  = (); @huge  = (1..5); @stuff  = ( @list ,  @none ,  @huge ); $pop_last  =  pop ( @stuff ); print ( $pop_last ); push ( @stuff ,  "hello" ); $shift_first  =  shift ( @stuff ); print ( $shift_first ); unshift ( @stuff ,  "world" ); print ( @stuff ); print ( "@stuff" ); $element = undef ; foreach  $element  ( @stuff ) { print ( "$element!\n" ); }

输出：
5
yes
worldiam1234hello
world i am 1 2 3 4 hello
i!
am!
1!
2!
3!
4!
hello!

4.3默认变量$_
该使用变量的地方，如果省略变量，则会使用默认变量$_。

1 2 3

#!/usr/bin/perl -w $_ = "hello,world！" ; print ();

输出是：
hello,world！

5.函数
5.1函数定义与调用
（1）定义函数的关键字是sub；
（2）函数调用的关键字是&；
（3）可用return显示返回，也可用一个数字隐式返回

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl $num =0; sub  sumAdd { $num +=1; print ( "$num\n" ); #return $num; # 显示返回 $num ;  # 隐式返回 } &sumAdd; &sumAdd; print (&sumAdd);

执行结果为：
1
2
3
3

5.2函数的参数
（1）调用函数时可直接带参数列表；
（2）函数定义处使用“默认变量”获取参数列表；

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -w sub  max { return  ( $_ [0]> $_ [1]? $_ [0]: $_ [1]); } $big =20; $small =10; print (&max( $big , $small ));

输出为：
20

6.程序输入输出
上文已经介绍过标准输入，下面介绍其他几种常见的输入输出。
6.1Unix工具输入输出：<>
<>提供类似于Unix工具输入输出的功能，它提供的功能能够很好的和cat/sed/awk/sort/grep等工具结合使用。

1 2 3 4 5 6 7

#!/usr/bin/perl -w use  strict; while (<>) { chomp (); print ( "$_!!!\n" ); }

该脚本的功能，是在输入每行后面加上!!!，它几处使用到了默认变量。
不妨设文件名为diamond.pm
不妨设hello.txt中有三行数据，分别是111,222,333
执行步骤：
（1）chmod 755 diamond.pm
（2）cat hello.txt | ./diamond.pm | cat
输出结果：
111!!!
222!!!
333!!!

6.2格式化输出：printf

1 2 3 4

#!/usr/bin/perl -w $int_var  = 2011; $str_var  =  "hello,world" ; printf ( "%d\n%s\n" , $int_var , $str_var );

输出结果为：
2011
hello,world

6.3文件输入输出
Perl保留了6个文件句柄：STDIN/STDOUT/STDERR/DATA/ARGV/ARGVOUT
上述6.1中的程序还能这么执行：
./diamond.pm out.txt
则输出结果会重定向到out.txt中

输入输出到文件中中，需要打开、使用、关闭文件句柄
（1）打开文件句柄：
open LOG, “>>log.txt”;
open CONFIG, ” （2）关闭文件句柄：
close LOG;
close CONFIG;
（3）使用文件句柄：
print LOG (“hello,world!\n”);
print STDERR (“yes i am!\n”);
while()
{
chomp();
…
}

也可以使用select关键字：
print(“to stdout1!”);
select LOG;
print(“to log1″);
print(“to log2″);
select STDOUT;
print(“to stdout2!”);

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl -w $input_file  =  "hello.txt" ; $output_file  =  "out.txt" ; open  INPUT,  "<$input_file" ;  open  OUTPUT,  ">>$output_file" ; while ( <input type= "text" >) { chomp (); print  OUTPUT ( "$_!!!\n" ); } close  OUTPUT; close  INPUT;

说明：他的功能和之前的diamond.pm是一样的。

7.哈希hash
7.1哈希的存取
$key=”am”;
$hash_one{“yes”} = 3;
$hash_one{“i”} = 1;
$hash_one{$key} = 5;
print($hash_one{“am”});
$value = $hash_one{“hello”}; # undef

7.2哈希的引用
要引用整个哈希，使用%操作符。
%hash_one = (“hello”,5,”world”,5);
print ($hash_one{“hello”});
%hash_two = %hash_one;

7.3哈希的松绑
哈希可以转化为键值列表，称为哈希的松绑，转化后不保证键的顺序，但值一定在键的后面。

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -w %hash_one  = ( "hello" ,5, "world" ,5); $hash_one { "yes" } = 3; $hash_one { "i" } = 1; $hash_one { "am" } = 2; @array_one  =  %hash_one ; print  ( $hash_one { "hello" }); print  ( "@array_one" );

输出结果为：
5
yes 3 am 2 hello 5 world 5 i 1

7.4哈希的反转
建立值对应键的反转哈希。
%hash_reverse = reverse(%hash_one);
只有在键值一一对应的情况下才凑效，否则会有无法预期的覆盖发生。

7.5哈希的美观赋值
哈希的美观赋值使用=>符号。
%hash_one = (“hello”,5,”world”,5,”yes”,3,”i”,1,”am”,2);
上面这种赋值方式很容易搞错，特别是键值都是字符串的时候。
%hash_one = (
“hello” => 5,
“world” => 5,
“yes” => 3,
“i” => 1,
“am” => 2,
);
美观赋值，是不是看起来更美观，更容易区分哈什的键值呢。

7.6哈希的遍历
（1）keys和values函数能返回所有键与值的列表，但列表内顺序不保证。
@k = keys(%hash_one);
@v = values(%hash_one);

（2）each函数能一一遍历哈希，返回键值对，非常适合于while等循环；
while(($key, $value) = each(%hash_one))
{
…
}

示例代码：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#!/usr/bin/perl -w %hash_one  = ( "hello"  => 5, "world"  => 5, "yes"   => 3, "i"   => 1, "am"   => 2, ); @k  =  keys ( %hash_one ); @v  =  values ( %hash_one ); print ( "@k\n" ); print ( "@v\n" ); $key  =  undef ; $value  =  undef ; while (( $key ,  $value ) =  each ( %hash_one )) { print ( "$key=>$value\n" ); }

输出结果为：
yes am hello world i
3 2 5 5 1
yes=>3
am=>2
hello=>5
world=>5
i=>1

7.7哈希的查询与删除
（1）查询一个键是否存在，使用exists函数；
（2）删除一个键，使用delete函数；

1 2 3 4 5 6 7 8 9 10 11 12

#!/usr/bin/perl -w %hash_one =( "yes"   => 3, "i"   => 1, "am"   => 2, ); delete ( $hash_one { "yes" }); if ( exists ( $hash_one { "yes" })) { print ( $hash_one { "yes" }); }

结果什么也不输出。

8.流程控制*（本节可跳过，都是些花哨的用法）
除了各语言常用的if/esle，for，while等流程控制外，Perl还有一些特有的控制语句，更人性化。
（1）unless控制结构
作用效果类似于if not，无效率上提升，只是使表达更自然，代码更容易理解。
（2）until控制结构
作用效果类似于while not
（3）条件修饰
判断条件可以直接写在语句的后面，以增加可读性（habadog注：这是鬼扯）。
print (“$n”) if $n < 0; $i *= 2 until $i > 1024;
&sumAdd($_) foreach @num_list;
（4）裸控制结构
只有一个花括号的结构，往往用来限制作用域，在各语言中都很常见。
{
$a = 1;
…
}
# $a失效了
（5）last控制结构
相当于c中的break，立刻终止循环；
（6）next控制结构
相当于c中的continue，立刻开始下一次循环；
（7）redo控制结构
…独有的，重新开始本次循环；
while(1)
{
# 跳到这里
print (“hello”);
redo;
}

9.高级特性
神奇的Perl还有正则、module、文件、字符串、智能匹配、进程管理、线程支持等高级特性，就不在入门手册里介绍了。
如果大伙喜欢，后续发布以上特性的手册。