📄 perl 语言－perl 中文教程（第六章）.htm
字号:
src="Perl 语言－Perl 中文教程（第六章）.files/y2.gif" border=0
name=Image20></A></TD></TR>
<TR>
<TD><A onmouseover="MM_swapImage('Image21','','y3a.gif',1)"
onmouseout=MM_swapImgRestore()
href="http://www.sun126.com/perl5/perl5-17.htm"><IMG
src="Perl 语言－Perl 中文教程（第六章）.files/y3.gif" border=0
name=Image21></A></TD></TR></TBODY></TABLE></TD>
<TD class=myFont vAlign=top width=30><IMG height=1
src="Perl 语言－Perl 中文教程（第六章）.files/x.gif" width=10> </TD>
<TD class=myFont vAlign=top>
<DIV align=center><IMG height=30
src="Perl 语言－Perl 中文教程（第六章）.files/top.gif" width=180><BR><SPAN
class=myFont><SPAN class=myFont><FONT face=宋体>翻译：</FONT></SPAN></SPAN>
<SPAN class=myFont><SPAN class=myFont>flamephoenix</SPAN></SPAN> <BR>
<HR width="100%" SIZE=1>
<DIV align=left></DIV></DIV>
<P align=center><B>第六章 模式匹配</B><BR></P>
<P><A href="http://www.sun126.com/perl5/perl5-6.htm#一、简介">一、简介</A><BR><A
href="http://www.sun126.com/perl5/perl5-6.htm#二、匹配操作符">二、匹配操作符</A><BR><A
href="http://www.sun126.com/perl5/perl5-6.htm#三、模式中的特殊字符">三、模式中的特殊字符</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#1、字符 +">1、字符+</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#2、字符 []和[^]">2、字符
[]和[^]</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#3、字符 *和?">3、字符
*和?</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#4、转义字符">4、转义字符</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#5、匹配任意字母或数字">5、匹配任意字母或数字</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#6、锚模式">6、锚模式</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#7、模式中的变量替换">7、模式中的变量替换</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#8、字符范围转义前缀">8、字符范围转义前缀</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#9、匹配任意字符">9、匹配任意字符</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#10、匹配指定数目的字符">10、匹配指定数目的字符</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#11、指定选项">11、指定选项</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#12、模式的部分重用">12、模式的部分重用</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#13、转义和特定字符的执行次序">13、转义和特定字符的执行次序</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#14、指定模式定界符">14、指定模式定界符</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#15、模式次序变量">15、模式次序变量</A><BR><A
href="http://www.sun126.com/perl5/perl5-6.htm#四、模式匹配选项">四、模式匹配选项</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#1、匹配所有可能的模式(g选项)">1、匹配所有可能的模式(g选项)</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#2、忽略大小写(i选项)例">2、忽略大小写(i选项)例</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#3、将字符串看作多行(m选项)">3、将字符串看作多行(m选项)</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#4、只执行一次变量替换例">4、只执行一次变量替换例</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#5、将字符串看作单行例">5、将字符串看作单行例</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#6、在模式中忽略空格">6、在模式中忽略空格</A><BR><A
href="http://www.sun126.com/perl5/perl5-6.htm#五、替换操作符">五、替换操作符</A><BR><A
href="http://www.sun126.com/perl5/perl5-6.htm#六、翻译操作符">六、翻译操作符</A><BR><A
href="http://www.sun126.com/perl5/perl5-6.htm#七、扩展模式匹配">七、扩展模式匹配</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#1、不存贮括号内的匹配内容">1、不存贮括号内的匹配内容</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#2、内嵌模式选项">2、内嵌模式选项</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#3、肯定的和否定的预见匹配">3、肯定的和否定的预见匹配</A><BR> <A
href="http://www.sun126.com/perl5/perl5-6.htm#4、模式注释">4、模式注释</A><BR><BR><BR><A
name=一、简介>一、简介<BR></A>
模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array =
split(/ /, $line);<BR><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><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><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> </P>
<TABLE borderColor=forestgreen cellSpacing=0 cellPadding=2 width="50%"
border=1>
<TBODY>
<TR>
<TD class=myFont vAlign=top width=115><B>锚</B></TD>
<TD class=myFont vAlign=top width=264><B>描述</B></TD></TR>
<TR>
<TD class=myFont vAlign=top width=115><TT>^</TT> 或 <TT>\A</TT></TD>
<TD class=myFont vAlign=top width=264>仅匹配串首 </TD></TR>
<TR>
<TD class=myFont vAlign=top width=115><TT>$</TT> 或 <TT>\Z</TT></TD>
<TD class=myFont vAlign=top width=264>仅匹配串尾</TD></TR>
<TR>
<TD class=myFont vAlign=top width=115><TT>\b</TT></TD>
<TD class=myFont vAlign=top width=264>匹配单词边界</TD></TR>
<TR>
<TD class=myFont vAlign=top width=115><TT>\B</TT></TD>
<TD class=myFont vAlign=top width=264>单词内部匹配</TD></TR></TBODY></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 borderColor=forestgreen cellSpacing=0 cellPadding=2 width="80%"
border=1>
<TBODY>
<TR class=myFont>
<TD class=myFont vAlign=top width=135><B>E 转义字符</B></TD>
<TD class=myFont vAlign=top width=228><B>描述</B></TD>
<TD class=myFont vAlign=top width=147><B>范围</B></TD></TR>
<TR>
<TD class=myFont vAlign=top width=135><TT>\d</TT></TD>
<TD class=myFont vAlign=top width=228>任意数字</TD>
<TD class=myFont vAlign=top width=147><TT>[0-9]</TT></TD></TR>
<TR>
<TD class=myFont vAlign=top width=135><TT>\D</TT></TD>
<TD class=myFont vAlign=top width=228>除数字外的任意字符 </TD>
<TD class=myFont vAlign=top width=147><TT>[^0-9]</TT></TD></TR>
<TR>
<TD class=myFont vAlign=top width=135><TT>\w</TT></TD>
<TD class=myFont vAlign=top width=228>任意单词字符</TD>
<TD class=myFont vAlign=top width=147><TT>[_0-9a-zA-Z]</TT></TD></TR>
<TR>
<TD class=myFont vAlign=top width=135><TT>\W</TT></TD>
<TD class=myFont vAlign=top width=228>任意非单词字符</TD>
<TD class=myFont vAlign=top width=147><TT>[^_0-9a-zA-Z]</TT></TD></TR>
<TR>
<TD class=myFont vAlign=top width=135><TT>\s</TT></TD>
<TD class=myFont vAlign=top width=228>空白</TD>
<TD class=myFont vAlign=top width=147>[ \r\t\n\f]</TD></TR>
<TR>
<TD class=myFont vAlign=top width=135><TT>\S</TT></TD>
<TD class=myFont vAlign=top width=228>非空白</TD>
<TD class=myFont vAlign=top width=147><TT>[^
\r\t\n\f]</TT></TD></TR></TBODY></TABLE>
<P> 例：/[\da-z]/匹配任意数字或小写字母。<BR><BR><A
name=9、匹配任意字符>9、匹配任意字符</A> <BR> 字符"."匹配除换行外的所有字符，通常与*合用。<BR><A
name=10、匹配指定数目的字符>10、匹配指定数目的字符</A> <BR>
字符对{}指定所匹配字符的出现次数。如：/de{1,3}f/匹配def,deef和deeef；/de{3}f/匹配deeef；/de{3,}f/匹配不少于3个e在d和f之间；/de{0,3}f/匹配不多于3个e在d和f之间。<BR><A
name=11、指定选项>11、指定选项</A> <BR>
字符"|"指定两个或多个选择来匹配模式。如：/def|ghi/匹配def或ghi。<BR>
例：检验数字表示合法性<BR> if ($number =~ /^-?\d+$|^-?0[xX][\da-fa-F]+$/)
{<BR> print ("$number is a legal
integer.\n");<BR> } else {<BR> print
("$number is not a legal integer.\n");<BR> }<BR>
其中 ^-?\d+$ 匹配十进制数字，^-?0[xX][\da-fa-F]+$ 匹配十六进制数字。<BR><A
name=12、模式的部分重用>12、模式的部分重用</A> <BR>
当模式中匹配相同的部分出现多次时，可用括号括起来，用\n来多次引用，以简化表达式：<BR>/\d{2}([\W])\d{2}\1\d{2}/
匹配：<BR> 12-05-92<BR>
26.11.87<BR> 07 04 92等<BR>
注意：/\d{2}([\W])\d{2}\1\d{2}/ 不同于/(\d{2})([\W])\1\2\1/
，后者只匹配形如17-17-17的字符串，而不匹配17-05-91等。<BR><A
name=13、转义和特定字符的执行次序>13、转义和特定字符的执行次序</A> <BR>
象操作符一样，转义和特定字符也有执行次序：<BR></P>
<TABLE borderColor=forestgreen cellSpacing=0 cellPadding=2 width="50%"
border=1>
<TBODY>
<TR>
<TD class=myFont vAlign=top width=157><B>特殊字符</B></TD>
<TD class=myFont vAlign=top width=198><B>描述</B></TD></TR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -