📄 perl6.htm
字号:
<html><!-- #BeginTemplate "/Templates/index.dwt" --><head><meta http-equiv=Content-Type content="text/html; charset=gb_2312-80"><title>ChinaPerl</title>
<LINK rel=stylesheet href=mystyle.css type=text/css>
</head><body>
<table border=0 cellspacing=0 bgcolor=#80FFFF width=100%>
<tr>
<td align=left rowspan=2 width=150>
<div align="center"><img src=image/perl.gif height=85 width="85"></div>
</td>
<td align=center><img src=image/perl.gif height=85 width="85"></td>
</tr><tr>
<td colspan=2 align=center> </td>
</tr></table>
<table border=0 width=100% height=400 cellspacing=0 cellpadding=0>
<tr>
<td width=20% valign=top bgcolor="#dddddd">
<table border=0 width=100% cellpadding=0><tr><td width=5%></td>
<td width=95%>
<p align=center>Perl 5教程<br>
<a target=_blank href=http://flamephoenix.126.com>by flamephoenix</a><a href="http://perl.yesky.net"><br>
<font color="red">修订 by RNY<br>
</font></a>2000-08-30</p>
<p align=center><a href="index.htm">目录</a></p>
<p align=center>第一部分 Perl语言</p>
<p><a href=perl1.htm>第一章 概述</a></p>
<p><a href=perl2.htm>第二章 简单变量</a></p>
<p><a href=perl3.htm>第三章 操作符</a></p>
<p><a href=perl4.htm>第四章 列表和数组变量</a></p>
<p><a href=perl5.htm>第五章 文件读写</a></p>
<p><a href=perl6.htm>第六章 模式匹配</a></p>
<p><a href=perl7.htm>第七章 控制结构</a></p>
<p><a href=perl8.htm>第八章 子程序</a></p>
<p><a href=perl9.htm>第九章 关联数组(哈希表)</a></p>
<p><a href=perl10.htm>第十章 格式化输出</a></p>
<p><a href=perl11.htm>第十一章 文件系统</a></p>
<p><a href=perl12.htm>第十二章 引用(指针)</a></p>
<p><a href=perl13.htm>第十三章 面向对象编程</a></p>
<p><a href=perl14.htm>第十四章 包和模块</a></p>
<p><a href=func.htm>附录一 函数集</a></p>
<p align=center>第二部分 Perl的CGI应用</p>
<p><a href=cgi1.htm>第一章 cgilib例</a></p>
<p><a href=cgi2.htm>第二章 动态创建图像</a></p>
<p><a href=cgi3.htm>第三章 计数器的编写方法</a></p>
<p><a href=cgi4.htm>第四章 Web Server设置</a></p>
第五章、...<br></td></tr></table></td>
<td width=80% valign=top>
<div align="center"></div>
<table border=0 width=100% cellpadding=0>
<tr bgcolor="#00FF80">
<td colspan="2">
<div align="center"> Perl教程 | <a href="perl5manual.zip">下载全文</a>
| <a target=_blank href=http://www.turbolinux.com.cn/cgi-bin/linux/wwwthreads.pl?action=list&Board=perl>Perl论坛</a>
| <a href="http://perl.yesky.net">推荐站点</a> | 关于我们 </div>
</td>
</tr>
<tr>
<td colspan="2"><!-- #BeginEditable "body" -->
<p align=center>第六章 模式匹配<br>
</p>
<p align=center><a target=_blank href=http://flamephoenix.126.com>by
flamephoenix</a></p>
<p><a href=#一、简介>一、简介</a><br>
<a href=#二、匹配操作符>二、匹配操作符</a><br>
<a href=#三、模式中的特殊字符>三、模式中的特殊字符</a><br>
<a href="#1、字符 +">1、字符+</a><br>
<a href="#2、字符 []和[^]">2、字符 []和[^]</a><br>
<a href="#3、字符 *和?">3、字符 *和?</a><br>
<a href=#4、转义字符>4、转义字符</a><br>
<a href=#5、匹配任意字母或数字>5、匹配任意字母或数字</a><br>
<a href=#6、锚模式>6、锚模式</a><br>
<a href=#7、模式中的变量替换>7、模式中的变量替换</a><br>
<a href=#8、字符范围转义前缀>8、字符范围转义前缀</a><br>
<a href=#9、匹配任意字符>9、匹配任意字符</a><br>
<a href=#10、匹配指定数目的字符>10、匹配指定数目的字符</a><br>
<a href=#11、指定选项>11、指定选项</a><br>
<a href=#12、模式的部分重用>12、模式的部分重用</a><br>
<a href=#13、转义和特定字符的执行次序>13、转义和特定字符的执行次序</a><br>
<a href=#14、指定模式定界符>14、指定模式定界符</a><br>
<a href=#15、模式次序变量>15、模式次序变量</a><br>
<a href=#四、模式匹配选项>四、模式匹配选项</a><br>
<a href=#1、匹配所有可能的模式(g选项)>1、匹配所有可能的模式(g选项)</a><br>
<a href=#2、忽略大小写(i选项)例>2、忽略大小写(i选项)例</a><br>
<a href=#3、将字符串看作多行(m选项)>3、将字符串看作多行(m选项)</a><br>
<a href=#4、只执行一次变量替换例>4、只执行一次变量替换例</a><br>
<a href=#5、将字符串看作单行例>5、将字符串看作单行例</a><br>
<a href=#6、在模式中忽略空格>6、在模式中忽略空格</a><br>
<a href=#五、替换操作符>五、替换操作符</a><br>
<a href=#六、翻译操作符>六、翻译操作符</a><br>
<a href=#七、扩展模式匹配>七、扩展模式匹配</a><br>
<a href=#1、不存贮括号内的匹配内容>1、不存贮括号内的匹配内容</a><br>
<a href=#2、内嵌模式选项>2、内嵌模式选项</a><br>
<a href=#3、肯定的和否定的预见匹配>3、肯定的和否定的预见匹配</a><br>
<a href=#4、模式注释>4、模式注释</a><br>
<br>
<br>
<a name=一、简介>一、简介<br>
</a> 模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array
= split(/ /, $line);<br>
<a name=二、匹配操作符>二、匹配操作符</a> =~、!~<br>
=~检验匹配是否成功：$result = $var =~ /abc/;若在该字符串中找到了该模式，则返回非零值，即true，不匹配则返回0，即false。!~则相反。<br>
这两个操作符适于条件控制中，如：<br>
if ($question =~ /please/) {<br>
print ("Thank you for being polite!\n");<br>
}<br>
else {<br>
print ("That was not very polite!\n");<br>
}<br>
<a name=三、模式中的特殊字符>三、模式中的特殊字符</a><br>
PERL在模式中支持一些特殊字符，可以起到一些特殊的作用。<br>
<a name="1、字符 +">1、字符 +</a><br>
+意味着一个或多个相同的字符，如：/de+f/指def、deef、deeeeef等。它尽量匹配尽可能多的相同字符，如/ab+/在字符串abbc中匹配的将是abb，而不是ab。<br>
当一行中各单词间的空格多于一个时，可以如下分割：<br>
@array = split (/ +/, $line);<br>
注：split函数每次遇到分割模式，总是开始一个新单词，因此若$line以空格打头，则@array的第一个元素即为空元素。但其可以区分是否真有单词，如若$line中只有空格，则@array则为空数组。且上例中TAB字符被当作一个单词。注意修正。<br>
<a name="2、字符 []和[^]">2、字符 []和[^]</a><br>
[]意味着匹配一组字符中的一个，如/a[0123456789]c/将匹配a加数字加c的字符串。与+联合使用例：/d[eE]+f/匹配def、dEf、deef、dEdf、dEEEeeeEef等。^表示除其之外的所有字符，如：/d[^deE]f/匹配d加非e字符加f的字符串。<br>
<a name="3、字符 *和?">3、字符 *和?</a><br>
它们与+类似，区别在于*匹配0个、1个或多个相同字符，?匹配0个或1个该字符。如/de*f/匹配df、def、deeeef等；/de?f/匹配df或def。<br>
<font color="red">注意：* + ? 都是“greedy”的<br>
若表达式中出现两个重复符号，perl遵守“最左边最贪心”（leftmost is greediest)的规则，例：<br>
$_="a xxx c xxxx c xxxx d";<br>
/a.*c.*d/;<br>
".*"会和第二个c之前的所有字符符合。<br>
再重复符号后加个问号，可以让它变得不贪心：<br>
/a.*?c.*d/;<br>
"a.*?c"会和最少的a,c之间字符匹配。</font><br>
<br>
<a name=4、转义字符>4、转义字符</a><br>
如果你想在模式中包含通常被看作特殊意义的字符，须在其前加斜线"\"。如：/\*+/中\*即表示字符*，而不是上面提到的一个或多个字符的含义。斜线的表示为/\\/。在PERL5中可用字符对\Q和\E来转义。<br>
<a name=5、匹配任意字母或数字>5、匹配任意字母或数字</a><br>
上面提到模式/a[0123456789]c/匹配字母a加任意数字加c的字符串，另一种表示方法为：/a[0-9]c/，类似的，[a-z]表示任意小写字母，[A-Z]表示任意大写字母。任意大小写字母、数字的表示方法为：/[0-9a-zA-Z]/。<br>
<a name=6、锚模式>6、锚模式</a><br>
</p>
<p></p>
<table border=1 width=50%>
<tr>
<td valign=top width=115><b>锚</b></td>
<td valign=top width=264><b>描述</b></td>
</tr>
<tr>
<td valign=top width=115><tt>^</tt> 或 <tt>\A</tt></td>
<td valign=top width=264>仅匹配串首</td>
</tr>
<tr>
<td valign=top width=115><tt>$</tt> 或 <tt>\Z</tt></td>
<td valign=top width=264>仅匹配串尾</td>
</tr>
<tr>
<td valign=top width=115><tt>\b</tt></td>
<td valign=top width=264>匹配单词边界</td>
</tr>
<tr>
<td valign=top width=115><tt>\B</tt></td>
<td valign=top width=264>单词内部匹配</td>
</tr>
</table>
<p> 例1：/^def/只匹配以def打头的字符串，/$def/只匹配以def结尾的字符串，结合起来的/^def$/只匹配字符串def(?)。\A和\Z在多行匹配时与^和$不同。<br>
例2：检验变量名的类型：<br>
if ($varname =~ /^\$[A-Za-z][_0-9a-zA-Z]*$/)
{<br>
print ("$varname is a
legal scalar variable\n");<br>
} elsif ($varname =~ /^@[A-Za-z][_0-9a-zA-Z]*$/)
{<br>
print ("$varname is a
legal array variable\n");<br>
} elsif ($varname =~ /^[A-Za-z][_0-9a-zA-Z]*$/)
{<br>
print ("$varname is a
legal file variable\n");<br>
} else {<br>
print ("I don't understand
what $varname is.\n");<br>
}<br>
例3：\b在单词边界匹配：/\bdef/匹配def和defghi等以def打头的单词，但不匹配abcdef。/def\b/匹配def和abcdef等以def结尾的单词，但不匹配defghi，/\bdef\b/只匹配字符串def。注意：/\bdef/可匹配$defghi，因为$并不被看作是单词的部分。<br>
例4：\B在单词内部匹配：/\Bdef/匹配abcdef等，但不匹配def；/def\B/匹配defghi等；/\Bdef\B/匹配cdefg、abcdefghi等，但不匹配def,defghi,abcdef。<br>
<a name=7、模式中的变量替换>7、模式中的变量替换</a><br>
将句子分成单词：<br>
$pattern = "[\\t ]+";<br>
@words = split(/$pattern/, $line);<br>
<a name=8、字符范围转义前缀>8、字符范围转义</a><br>
</p>
<table border=1 width=80%>
<tr>
<td valign=top width=135><b>E</b> 转义字符</td>
<td valign=top width=228>描述</td>
<td valign=top width=147>范围</td>
</tr>
<tr>
<td valign=top width=135><tt>\d</tt></td>
<td valign=top width=228>任意数字</td>
<td valign=top width=147><tt>[0-9]</tt></td>
</tr>
<tr>
<td valign=top width=135><tt>\D</tt></td>
<td valign=top width=228>除数字外的任意字符</td>
<td valign=top width=147><tt>[^0-9]</tt></td>
</tr>
<tr>
<td valign=top width=135><tt>\w</tt></td>
<td valign=top width=228>任意单词字符</td>
<td valign=top width=147><tt>[_0-9a-zA-Z]</tt></td>
</tr>
<tr>
<td valign=top width=135><tt>\W</tt></td>
<td valign=top width=228>任意非单词字符</td>
<td valign=top width=147><tt>[^_0-9a-zA-Z]</tt></td>
</tr>
<tr>
<td valign=top width=135><tt>\s</tt></td>
<td valign=top width=228>空白</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -