作者：网友供稿 点击：0 　　西部数码-全国虚拟主机10强！20余项虚拟主机管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!虚拟主机可在线rar解压,自动数据恢复设置虚拟目录等.虚拟主机免费赠送访问统计,企业邮局.Cn域名注册10元/年,自助建站480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金!

文章页数：[1]

如果把我们的文件填入如下内容：browngrass

bluegrass

则输出为：

foundbluegrass

它没有找到“browngrass”，这是因为$仅在串尾寻找其匹配，(或者在串结束前的一行)。如果在包含很多行的串中，用"^"和"$"来匹配，,我们可以使用/m("multiline")选项：

if($line=~/(b.*grass)$/m){}

现在程序会把如下的信息输出：

foundbrowngrass

类似地，句点可以匹配除了换行符之外的所有字符：

while(){

if(/19(.*)$/){

if($1<20){

$year=2000 $1;

}else{

$year=1900 $1;

}

}

}