WEL测试

#!/usr/bin/perl -w print "\n----------------------Perl Regular Expression----------------------\n"; print "\n----------------------Perl Regular Expression Demo1----------------\n"; #下面例子正在匹配HTML<A...

设计应用程序过程的四个方面： 1.性能————响应能力和全局速度优化以及资源的利用 2.可维护性————应用程序易于维护的能力 3.可扩展性————应用程序在预先设计好的方法下能成功扩展的能力 4.稳定性————在各种场合应用该程序体现的健壮性 性能：应用程序是否满足用户需求的标识。     在编写perl脚本时，应该考虑有关性能的这几个方面： 1.算法的效率 2.中央

1.m//（模式匹配）的一种简写。同qw//操作一样，可以使用任何成对的分隔符。因此，可以使用m(fred), m, m{fred}, m[fred]，或者m,fred,, m!fred!, m^fred^，其它非成对的分隔符也 可以◆ 2.如果使用正斜线（/）作为分隔符，则可以省略掉前面的m。由于Perler 喜欢少输入字符，因此大多数模式使用的是正斜线， 如/fred/ 3.如果想写一

1.正则表达式，在Perl 中通常被称为模式(pattern)：某个模板是否匹配某个字符串◆。由于存在无限的字符串，某个给定的模 式将这些字符串分成两类：一类是能匹配的，一类是不能匹配的。这里没有，或者，大概，几乎那样的匹配：要么匹配， 要么不匹配。 2.要匹配某个模式（正则表达式）和$_的关系，可以将模式放在正斜线(//)之间，如下： $_ =“yabba dabba d

1.默认情况下，如果不指定文件句柄给print(或者printf,这里的内容对两者均适用)，则默认会使用STDOUT。但这个默认属 性，可以通过select 操作进行更改。如下： select BEDROCK; print “I hope Mr. Slate doesn’t find out about this.\n”; print “Wilma!\n”; 一旦

哈希是一种数据结构，和数组类似，可以将值存放到其中，或者从中取回值。但是，和数组不同的是，其索引不是数字，而是名字。也就是说，索引（这里，我们将它叫key）不是数字而是任意的唯一的字符串。keys 可以是任意的字符串，你可以使用任何的字符串作为key。但，它们是唯一的。 另一种思考hash 的方法是，把它看作一堆数据（a barrel of data），每一个数据都有一个相应的标签。可以

#!/usr/bin/perl -w #创建子程序检查$values的值 sub printOK { if($values>10){ print "Values is $values.\n"; } else { print "Value is too small.\n"; } } $values=15; printOK; 在默认情况下Perl变量在全局范围内有效，因此可以在子程序printOK内

当传递数组或者哈希表时，它将复制到@_中，这对于单个数组没有问题，但哈希表将被展开为键/值组合的列表。在子程序中将@_赋值给哈希表是可行的，通过初始化的方法：通过将键/值组合表赋值给它。下面例子想子程序printem传递给了哈希表，这个子程序将打印哈希表的所有元素： $hash{fruit}=peach; $hash{vegetable}=broccoli; $hash{pie}=blueber

#!/usr/bin/perl -w print 2**4; #创建对跟随其后项目的引用符号:\ $variable=5; $reference=\$variable; print "\n" . $$reference ."\n" ; #绑定运算符：=~ 和 ！= #=~：将标量表达式绑定到模式匹配上 #=!:与运算符=~相似，不同的是它的返回值是负数。 #用use intege

#!/usr/bin/perl -w #创建子程序检查$values的值 # sub printOK # { # if($values>10){ # print "Values is $values.\n"; # } # else { # print "Value is too small.\n"; # } # } # $values=15; # printOK; #在默

可以通过使用赋值运算符=将一个表赋值给另一个。如：($a,$b)=($c,$d);用这样的方法，可以将表当作可赋值的实体和左值。这两个表甚至可以包含某些或全部的相同变量： ($a,$b)=($b,$a); 相互赋值的表可以是不同大小的。如：($a,$b)=(1,2,3); print $a; 将一个表赋值给标量，将得到该表的最后一个元素：$a=(2,4,6); print $a; 数组对表

标量存储单一的数据项，表包含多个数据项。 标量是实际的数据类型，perl没有表这样的数据类型。标量和表的差异是一种工作环境而非数据类型。 Perl知道你当前是工作在标量环境还是表上下文。 例如，如果代码在表上下文中使用了函数或运算符，就可能将它的返回值赋给表；如果函数是在标量 环境中使用的，Perl就知道你需要标量数据项。 表与标量

如果标量还没有赋任何值，可以给标量赋默认值。这里的技术依赖以下事实：未初始化的标量被设置为未定义量，对它可以使用defined函数测试。这段代码使用条件运算符？：，给$variable变量赋默认值，如果$variable并未被赋值，这个值存储在$defaultvalue变量中： $defaultvalue=1; $variable=defined($variable)?$variable:$de

1.Perl可以使用括号来改变优先级 2.对于数字的比较，Perl 提供了= != 这些操作符。每一种返回的值为true 或者false 3.对于字符串比较，Perl 有如下的一些有趣的字符串比较符：lt le eq ge gt ne。它们将一个字符接着一个字符的比较两个串来 判断它们的关系：相等，小于，等等。（注意，在ASCII 中，大写字母在小写字母的前面）。 4.if 控制结构 一

1.Perl的标量代表的是单数，列表和数组代表的是复数 2.列表是标量的有序集、数组是包含列表的变量。 3.列表是指数据，而数组是其变量名。 4.可以有一些值（列表）但不属于数组；但每一个数组标量都有一个列表，虽然其可以为空 5.列表中每一个元素都是一个独立的标量值。这些值是有顺序的，也就是说，这些值从开头到最后一个元素有一个固定的序列。 6.数组或者列表中的元素是编了号的，其索引从整数

1.强制转换为标量Context 偶尔，你可能需要标量context 而Perl 期望的是列表。这种情况下，可以使用函数scalar。它不是一个真实的函数因为其仅 是告诉Perl 提供一个标量context： @rocks = qw(talc quartz jade obsidian); print “How many rocks do you have?\n”; print “I ha

1.如果编译器在调用之前知道此子程序的定义，或者Perl 从语法中能知道这是一个子程序调用，则子程序前的符号&是可以省略的 2.如果Perl 内部的编译器知道此子程序的定义，则可以省掉其参数的括号： sub division{ $_[0] / $_[1]; #第一个参数除以第二个参数 } my $quotient = division 355, 113; #可以省略掉括号 3.特别的地

1.为行输入操作，但其实际上是对一个文件句柄(filehandle)的行输入操作(有 件句柄(filehandle)。 $line = ; #读入下一行； chomp($line); #去掉结尾的换行符 chomp($line=) #同上，更常用的方法 2.行输入操作在到达文件的结尾时将返回undef，这对于从循环退出时非常方便的： while (defin

perl中的量词： *-----------------匹配0或多次 +-----------------匹配1或多次 ?-----------------匹配0或1次 {n}-----------------匹配n次 {n,}-----------------匹配至少n次 {n,m}-----------------匹配至少n次，至多匹配m次perl中的合法断言： ^-----

默认情况下，m//运算符尝试匹配指定的模式和$_中的文本。 例如：在用户输入的文本中查找字符串exit（第二个反斜线之后的i修饰符是的模式匹配不区分大小写）。如果在$_中找到exit，则m//返回真； print"\n---------------------------(m//) Demo------------------------\n"; print "Enter:"; while(

1.标量数据:可有操作符（如相加和串联），通常会产生一个新的标量数据。标量数据的值可以存放在标量变量中。标量可以从 文件或设备读取，也可以写进去。 2.在Perl 内部没有整数值,在内部，Perl 都把它们当作双精度浮点数来处理 3.数字符号（literal）是Perl 程序源代码中代替某个值的方法 4.Perl 允许用下划线来分隔它 5.可以利用oct()或hex()把