?? 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 + -