如何让perl只读取文件的一部分？

yongjian · 发表于 2005-1-15 02:43:15

<html>
<p>
<font>this is the beginning</font>
<table>table starts
<H>first line.<font>12</font></H>
<H>Second line.<font>22</font></H>
<H>Third line.<font>45</font></H>
<H>fourth line.<font> </font></H>
<H>fifth line.<font>3</font></H>
</table>
</p>
</html>

如上面的一个例子文件。要求是只读取<table>到</table>的一段文字，然后在从中做regex。如果用sed的话，简单的加上address就可以了，但是perl中的regex好像没有address。不知道怎么才能实现。

freefall · 发表于 2005-1-15 19:19:46

Post by yongjian
<html>
<p>
<font>this is the beginning</font>
<table>table starts
<H>first line.<font>12</font></H>
<H>Second line.<font>22</font></H>
<H>Third line.<font>45</font></H>
<H>fourth line.<font> </font></H>
<H>fifth line.<font>3</font></H>
</table>
</p>
</html>

如上面的一个例子文件。要求是只读取<table>到</table>的一段文字，然后在从中做regex。如果用sed的话，简单的加上address就可以了，但是perl中的regex好像没有address。不知道怎么才能实现。

这样行么？

while (<>) {
if (/^<table>/../^<\/tabel>/) {
## do some thing
}
}

复制代码

yongjian · 发表于 2005-1-17 22:37:24

谢谢了。自己还是没有活学或用。

		自动登录	找回密码
密码			注册

如何让perl只读取文件的一部分？

浏览过的版块