如何使用 Perl 正则表达式从 HTML 文件中提取信息？

Question

我有两个文件，XML 和 HTML，需要从这些文件中提取某些模式的数据。

我的 XML 文件格式非常好，我可以使用 readline 读取一行并在标签之间搜索数据。

if($line =~ /\<tag1\>$varvalue\<\/tag1\>/)`

然而，对于我的 HTML，它有我见过的最糟糕的代码之一，文件如下：

<div class="theater">
    <h2>
    <a href="/showtimes/university-village-3" >**University Village 3**</a></h2>
    <div class="address">
        <i>**3323 South Hoover Street, Los Angeles CA 90007 | (213) 748-6321**</i>
    </div>
</div>

<div class="mtitle">
    <a href="/movie/dream-house-2011"  title="Dream House" onmouseover="mB(event, 771204354);"  >**Dream House**</a>
    <span>**(PG-13 , 1 hr. 31 min.)**</span>
</div>

<div class="times">

    **1:00 PM,**
</div>

现在，我需要从这个文件中选择以粗体显示的数据。

我可以使用 Perl 正则表达式从该文件中搜索数据。

Answer 1

RegEx 匹配开放标记（XHTML 自包含标记除外）

http://www.codinghorror.com/blog/2009/11/parsing-html-the-cthulhu-way.html

使用正则表达式来解析 HTML：为什么不呢？

当你读完这些内容后回来:)

编辑：并到实际上解决你的问题看看这个模块：

http://perlmeme.org/tutorials/html_parser.html

一些解析 html 文件的示例：

#!/usr/local/bin/perl

use HTML::TreeBuilder;

$tree = HTML::TreeBuilder->new;
$tree->parse_file('C:\Users\Stefanos\workspace\HTML_Parser_Test\test.html');

@divs = $tree->find('div');

$tree->delete;

在这个示例中，我只是使用您的标签作为 .html 文件的主体。 div 存储在 @divs 数组中。因为我不知道你想找到哪个文本，因为 ** 不是一个元素，所以我无法进一步帮助你..

PS 我从未使用过这个模块，但我只是在 5 分钟内完成了它，所以它并不难解析 html 文件并找到您想要的任何内容..

正则表达式匹配任何特定标签并将内容结果存储到 $1 中：

if ($subject =~ m!<tagname[^>]*>(.*?)</tagname>!s) {
    # Successful match
}

尽管当您有嵌套元素时您很快就会意识到这种方法的局限性..

将标记名替换为实际标记.. 例如在你的情况下，我，a，span，div虽然对于div 您还将获得第一个 div 的内容，这不是您想要的。

Answer 2

使用正则表达式解析 XML 和 HTML 是一件傻事。有许多简单易用的 Perl 模块可用于解析 HTML。这是使用 HTML::TokeParser::Simple 的内容。我省略了将电影和放映时间与剧院关联起来的代码（因为我无意构建适当的输入文件）：

#!/usr/bin/env perl

use strict; use warnings;
use HTML::TokeParser::Simple;

my $parser = HTML::TokeParser::Simple->new(handle => \*DATA);

my @theaters;

while (my $div = $parser->get_tag('div')) {
    my $class = $div->get_attr('class');
    next unless defined($class) and $class eq 'theater';

    my %record;

    $record{theater} = $parser->get_text('/a');
    $record{address} = $parser->get_text('/i');

    s{(?:^\s+)|(?:\s+\z)}{} for values %record;

    push @theaters, \%record;
}

use YAML;
print Dump \@theaters;

__DATA__
<div class="theater">
    <h2>
    <a href="/showtimes/university-village-3" >**University Village 3**</a></h2>
    <div class="address">
        <i>**3323 South Hoover Street, Los Angeles CA 90007 | (213) 748-6321**</i>
    </div>
</div>

<div class="mtitle">
    <a href="/movie/dream-house-2011"  title="Dream House" onmouseover="mB(event, 771204354);"  >**Dream House**</a>
    <span>**(PG-13 , 1 hr. 31 min.)**</span>
</div>

<div class="times">

    **1:00 PM,**
</div>

<div class="theater">
    <h2>
    <a href="/showtimes/university-village-3" >**Some other theater*</a></h2>
    <div class="address">
        <i>**1234 South Hoover Street, St Paul, MN 99999 | (999) 748-6321**</i>
    </div>
</div>

输出：

[sinan@macardy]:~/tmp> ./tt.pl
---
- address: '**3323 South Hoover Street, Los Angeles CA 90007 | (213) 748-6321**'
  theater: '**University Village 3**'
- address: '**1234 South Hoover Street, St Paul, MN 99999 | (999) 748-6321**'
  theater: '**Some other theater*'