神奇的Perl-正则表达式(8)

ibaobei

　　声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载
2.1         贪婪匹配与最小匹配

1、贪婪匹配试图匹配最长字符串。
例如:
deep and future love deepfuture
/deep.+future/匹配了deep and future love deepfuture
1、最小匹配尽可能匹配最短的字符串，在贪婪量词后加上？表示最小匹配。
例如：
deep and future love deepfuture
/deep.+?future/匹配deep and future
　　 
2.2         正则表达式使用变量

　　语法格式如下：
　　$模式串变量名=<pattern>;    <pattern>为匹配模式串
　　/$模式串变量名/ 完成$模式串变量存储的模式串的匹配
　　比如：
　　#perl4-11.pl
　　my $pm="wang";
　　my $name="wangwu" ;
　　if ($name=~m/$pm/){# $name能匹配 $pm 存储的模式串wang
　　  print "ok" ;
　　}
　　输出:
　　ok
　　再看一个更复杂的例子，以获取网址之家(www.hao123.com)主页中指定链接为例：
首先用浏览器打开网址之家(www.hao123.com)，将主页存在保存在本地硬盘。然后运行以下程序接受用户输入要查询的网站，输出相关链接。
　　#perl4-10.pl
　　use strict;
　　use warnings;
　　 
　　my $myweburl=<STDIN>;#用户输入想查询的网址
　　chomp($myweburl);
　　open HAO123,"<hao123－－我的上网主页.htm";
　　foreach my $line(<HAO123>){
　　    chomp($line);
　　    if ($line=~m/href=/){#如果该行含有HTML的链接标记
　　        print $1 if $line=~m/="(.*)">$myweburl<\/A>/i;
　　        #(.*)匹配网址对应的链接
　　    }
　　}
　　close  HAO123;
　　我们运行以上程序，输入中华英才网，然后程序输出
　　http://www.chinahr.com/