求助：用正则表达式从多行字符串中抽取闭合字符串

arviva

UID: 13666
帖子: 132
积分: 303
在线时间: 1 天

1^# arviva 发表于 2007-12-10 10:06

求助：用正则表达式从多行字符串中抽取闭合字符串

我有一段字符串需要抽取

我的问题是，如何用正则表达式抽取闭合<PRE></PRE>的多行字符串？
我在perl里面尝试了<PRE>[.|\n]*</PRE>，可是不行。我的代码是这么写的

//通过一种方法将所有的字符流传到$htmlcode中
my $htmlcode;
if($htmlcode =~ /<PRE>[.|\n]*</PRE>/) {
print "found\n";
print $1;
}

多谢大侠指点。

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

2^# Nosferatu 发表于 2007-12-10 11:37

$htmlcode =~ /<PRE>(.*)</PRE>/s
or
$htmlcode =~ /<PRE>(.*)</PRE>/m

sewenew

UID: 34648
帖子: 1
积分: 2
在线时间: 10 分钟

3^# sewenew 发表于 2007-12-10 11:49

HTML:: Parser

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

4^# __lxmxn__ 发表于 2007-12-10 12:14

[Copy to clipboard] [ - ]

CODE:

use strict;
use warnings;

open my $fd,"<tests.txt";
undef $/;
my $word=<$fd>;
while($word=~/<PRE>(.*?)<\/PRE>/sg){
print "found","\n",'--'x20,"\n";
print $1,"\n",'--'x20,"\n";
}

arviva

UID: 13666
帖子: 132
积分: 303
在线时间: 1 天

5^# arviva 发表于 2007-12-10 13:37

非常感谢各位的帮忙。
回二楼Nosferatu，我用的选项是sgim，都不行；我不知道什么原因；
回三楼sewenew，谢谢，我使用的是HTML:: Parser，但是在<RE></PRE>中有其他的带<的字符串，这个包会解析出错，不能解释完全，所以不得已用了正则表达式；
回四楼，你的方法奏效，能文高人(.*?)是怎么会事么？解释下下
是不是是.*表示非换行字符再加?就可以表示所有了啊？

zhasm

UID: 11992
帖子: 173
积分: 397
在线时间: 1 天 17 小时

6^# zhasm 发表于 2007-12-10 15:50

.*?

. 任意字符
* 任意多个（之前的内容）
? 懒惰模式

lvlfforever

UID: 9630
帖子: 160
积分: 368
在线时间: 1 天 11 小时

7^# lvlfforever 发表于 2007-12-10 17:31

主要是需要加 /s

/s ：默认情况下， .(点) 不匹配换行，要是加了 /s，. 就可以匹配换行了。即称为 “单行模式”single - line mode