标量赋值 标量变量最通常的操作是赋值：将值赋给变量。Perl 中的赋值符是等号（和许多语言类似），将等号右边的值赋给等号左边 的变量： $fred = 17; #将17 赋给变量$fred $barney =‘hello’; #将五个字母的字符串‘hello’赋给$barney $barney = $fred + 3;# 将$fred 的值加上三赋给$barney (20) $barney= $b

字符串中标量变量的内插 当一个字符串由双引号括起来时，如果变量前没有反斜线，则变量会被其值内插◆。也就是说字符串中的标量变量◆将被 其值替换。 ◆这和数学或统计学中的内插含义是不同的 ◆还有一些其它的变量类型，在后面章节中将看到 $mean = “brontosaurus steak”; $barney = “fred ate a $meal”; #$barney 现在是“fred ate a b

比较关系数字字符串 相等= = eq 不等!= ne 小于< Lt 大于> gt 小于或等于<= le 大于或等于>= ge   下面是一些关于运算符的例子： 35 != 30+5 #false 35 == 35.0 #true ‘35’eq‘35.0’ #false (按照字符串比较) ‘fred’lt ‘barney’ #false ‘fred’lt ‘free’ #true ‘fred’eq

if 控制结构 一旦能比较两个值时，就希望能根据这些比较结果作判断。和别的语言类似，Perl 中也提供了if 控制结构： if($name gt ‘fred’){ print “‘$name’comes after ‘fred’in sorted order./n”; } 如果需要另一种选择，可以使用关键字else： if($name gt ‘fred’){ print “‘$name’comes

在if 控制结构的条件判断部分可以使用任意的标量值。这在某些时候将很方便，如： $is_bigger = $name gt‘fred’; if($is_bigger){… } 那么，Perl 是怎么判断其值得true 或false 呢？Perl 不同于其它的一些语言，它没有Boolean 类型。它利用如下几条规则◆： ● 如果值为数字，0 是false；其余为真 ● 如果值为字符串，则空串(‘’)

用户输入 现在，可能想你的Perl 程序怎样才能从键盘上得到输入呢？有一种简单方法：使用行输入操作符(line-input operator)， <STDIN> ◆。 ◆是行输入运算符对文件句柄STDIN 的操作。但直到第五章才介绍文件句柄。 <STDIN>作为标量值来使用的，Perl 每次从标准输入中读入文本的下一行，将其传给<STDIN>。标准输入可以有很多种； 默认的是键盘。如果还没有值输入

chomp 操作 第一次读到chomp 函数时，它看起来过于专门化。它对变量起作用，而此变量含有字符串。如果字符串结尾有换行符，chomp 可以去掉它。这基本上就是它能完成的所有功能，如下例： $text = “a line of text/n”; #也可以由<STDIN>输入 chomp($text); #去掉换行符(/n)。 它非常有用，基本上你的每一个程序都会用到它。如你将知道，这是将字符串

和许多的程序语言一样，Perl 也提供了循环结构◆。while 语句可以循环执行其内部的一块代码直到其条件非真： ◆基本上每个程序员都有创建过无限循环语句的经历。如果程序不停的运行，你可以像关闭系统中别的程序那样来关闭Perl 程序。通常 是使用CTRL+C；检查你的系统文档来了解具体的信息。   $count = 0; while ($count < 10) { $count + = 2; pr

undef 值 在变量被赋值之前使用它会有什么情况发生呢？通常不会有什么严重的后果。变量在第一次赋值前有一个特殊值undef，按 照Perl 来说就是：“这里什么也没有，请继续”。如果这里的“什么也没有”是一些“数字”，则表现为0。如果是“字符串”， 则表现为空串。但undef 既非数字也非字符串，它是另一种标量类型。 由于undef 在需要数字的地方可以自动转化为0，因此可以如下的写代码： #将

访问数组元素 如果你使用过其它语言的数组，那对于Perl 可以通过索引值来访问元素的做法不会觉得奇怪。 数组中的元素是由连续整数编了号的，其从0 开始，每增加一个元素，其索引值加一，如： $fred[0] = “yabba”; $fred[1]= “dabba”; $fred[2] = “doo”; 数组名字（本例中：fred）和标量是属于完全不同的命名空间（namespace）。同一程序也可以同

特殊的数组索引 如果将一个元素存储在数组最后元素的后面的位置，数组会自动增长的。Perl 没有长度的限制，只要你有足够的内存。如 果Perl 需要创建元素，则其值为undef。 $rocks[0] = ‘bedrock’; #一个元素 $rocks[1] = ‘slate’; #又一个 $rocks[2] = ‘lava’; #又一个 $rocks[3] = ‘crushed rock’;#又一个

列表 数组是由括号括起来并且其元素由逗号分隔开的列表。这些值组成了数组的元素： （1，2，3） #含有1，2，3 的列表 （1，2，3，） #同上，最后一个逗号被忽略 （） #空列表-0 个元素 （1 ．．100） #包含100 个整数的列表 最后一个例子使用了范围操作符（range operator）．．，它创建了从左值到右值之间所有值的列表。 （1 ．．5） #同（1，2，3，4，5） （1．

qw 简写 实践表明，字符串的列表（如上例）在Perl 中经常使用。有一种简便的方法可以不用输入大量的引号而达到类似的功能， 那就是使用qw。 qw(fred barney betty wilma dino ) #同上，但输入更少 qw 表示“quoted words”或者“quoted by whitespace,”这依赖于你问的是谁。无论那种解释，Perl 将它们当作单引号字符串 处理，你不能

列表赋值 和标量值类似，列表值也可以赋给变量： ($fred, $barney, $dino) = (“flintstone”, “rubble”, undef); 左边列表中的每一个变量都得到了一个新值，和利用3 个赋值语句得到的结果是一样的。由于列表在赋值之前已经建立， 因此在Perl 中可以使用如下的简单方法交换两个变量的值◆： ◆和C 语言不同，在C 语言中没有完成此类操作的简单方法。C

可以使用新的，更大的索引(index）将新值存放在数组的末尾。但实际上，Perl 程序员不使用索引◆。因此，在下面几段中， 我们将介绍几种不使用索引来操作数组的方法。 ◆当然，我们是在开玩笑，但这个玩笑基于Perl 的一些事实。数组中使用索引并没有发挥Perl 的威力。如果使用pop, push 和类似的操作 符以避免使用索引，那你的程序通常会比大量使用索引的情况要快，而且能避免“差一位(off-

shift 和unshift 操作 push 和pop 对数组的末尾进行操作（或者说数组右边有最大下标的元素，这依赖于你是怎样思考的）。相应的，unshift 和 shift 对一个数组的开头进行操作（数组的左端有最小下标的元素）。下面是一些例子： @array = qw# dino fred barney #; $m = shift (@array); #$m 得到“dino”, @array

将数组插入字符串 和标量类似，数组也可以插入双引号的字符串中。插入的数组元素会自动由空格◆分开： ◆分隔符是变量$’’的值，其默认值为空格(space)。 @rocks = qw{ flintstone slate rubble }; print “quartz @rocks limestone/n”; #输出为5 种rocks 由空格分开 插入的数组元素的第一个元素前面和最后一个元素后面不会插入

foreach 控制结构 如果能处理整个数组或列表，那将是非常方便的，因此Perl 提供了这种方法。foreach 从列表的第一个元素一直循环执行到 最后一个元素，一次迭代一个： foreach $rock (qw/ bedrock slate lava /){ print “One rock is $rock./n”; #打印出3 种rocks } 控制变量（本例中为$rock）每一次迭代从列表

如果在foreach 循环中省略了控制变量，那Perl 会使用其默认的变量：$_。除了其不寻常的名字外，这和普通变量类似，如 下面代码所示： foreach(1..10){ #使用默认的变量$_ print “I can count to $_!/n”; }   虽然它不是Perl 中唯一的默认变量，但无疑是使用的最普遍的。你将在许多例子中看到Perl 在没有要求它使用某个变量或 值时，会自动使用

reverse 操作 reverse（逆转）操作将输入的一串列表（可能是数组）按相反的顺序返回。如果不喜欢范围操作符： ．．，只能从小到大， 那可以使用reverse 来解决这个问题： @fred = 6 ．．10; @barney = reverse (@fred); #得到10，9，8，7，6 @wilma = reverse 6 ．．10; #同上，没有使用额外的数组 @fred = rev

sort 操作 sort 操作将输入的一串列表（可能是数组）根据内部的字符顺序进行排序。如对于ASCII 字符串，将根据ASCII 序进行排 序。当然，ASCII 中有一些奇怪的地方，如大写字母在小写字符的前面，数字在字符的前面，而标点符号散布在各处。但 按ASCII 排序只是其默认的行为，在第十三章中，可以看到如何按你想要的顺序进行排序的方法： @rocks = qw/ bedrock slat

1. 使用PERL直接读取压缩文件 use pipe .gz格式文件 1 open(FIN,"gzip -dc $infilename|") or die ("can not open $infilename/n"); .tgz(.tar.gz)格式文件 1 open(FIN,"tar -xf $infilename -o|") or die ("can not open $infilen

The main goal of this article is to discuss in detail about exception handling in Perl and how to implement it using Error.pm. On our way, we'll be touching upon the advantages of using exception-hand

让你的perl代码看起来更像perl代码，而不是像C或者BASIC代码，最好的办法就是去了解perl的内置变量。perl可以通过这些内置变量可以控制程序运行时的诸多方面。 本文中，我们一起领略一下众多内置变量在文件的输入输出控制上的出色表现。 行计数 我决定写这篇文章的一个原因就是，当我发现很多人都不知道“$.”内置变量的存在，这的确让我很吃惊。 我依然能看到很多人是这样写代码的： 代码    

Perl: 获取新包、发邮件、调用其他程序 按小刁的意思，首先把昨天的检测脚本改成带有复位功能的，然后把报警提示以邮件方式发送到指定的邮箱。 ---------------------------------------------------------------------------------------------------------------------------------

Plain Old Document －POD写法 一般包括一下几个部分： =head1 NAME The name of your program or module.   =head1 SYNOPSIS A one-line description of what your program or module does (purportedly).   =head1 DESCRIPTION T

http://kb.cnblogs.com/page/83395/

Spreadsheet::ParseExcel perl解析Excel文件的例子。 #!/usr/bin/perl -w use strict; use Spreadsheet::ParseExcel; use Spreadsheet::ParseExcel::FmtUnicode; #gb support my $oExcel = new Spreadsheet::ParseExcel; die

NAME FindBin - Locate directory of original perl script § SYNOPSIS use FindBin; use lib "$FindBin::Bin/../lib"; or use FindBin qw($Bin); use lib "$Bin/../lib"; DESCRIPTION Locates the full path to the

1 测试内容和常用模块 CPAN上有很多成熟的模块可以拿来帮助我们对perl脚本做单元测试，本文整理了它们的用法。 · perl模块推荐 2代码覆盖度测试 Devel::Cover是一个代码覆盖度测试的很棒的模块，它能自动分析并且生成一份详细的报告，而且可以生成html版本的，方便阅读 2.1模块安装 1、root帐号下，用CPAN方式安装，以解决模块依赖问题。（命令行输入perl -MCPAN