Question

my $changelog = "/etc/webmin/Pserver_Panel/changelog.cgi";
my $Milestone;
open (PREFS, $changelog);
    while (<PREFS>)
    {
        if ($_ =~ m/^<h1>(.*)[ ]Milestone.*$/g) {
            $Milestone=$1;
            last;
        }
    }
close(PREFS);

以下是从中提取数据的示例：

<h1>1.77 Milestone</h1>
    <h3>    6/26/2009       </h3><ul style="margin-top:0px">
        <li type=circle>    Standard code house cleaning and added better compatbility for apache conversion.
    </ul>
    <h3>    6/21/2009       </h3><ul style="margin-top:0px">
        <li type=square>    Fixed Autofix so that it extracts to the right directory.
    </ul>
    <h3>    6/11/2009       </h3><ul style="margin-top:0px">
        <li type=circle>    Updated FTP link on index page to go to net2ftp, an online ftp file manager.
    </ul>
<h1>1.76 Milestone</h1>
    <h3>    4/14/2009       </h3><ul style="margin-top:0px">
        <li type=square>    Corrected a broken hyperlink to regular expressions in "View Chat Log"
        <li type=circle>    Changed the default number of lines back from 25 to 10 on both Chat and Pserver Logs.
        <li type=circle>    Noted in "View Pserver Log" search is case-sensitive and regular expression supported.
    </ul>
    <h3>    4/13/2009       </h3><ul style="margin-top:0px">
        <li type=disc>      Added AutoFix to the panel which will automatically fix prop errors.
        <li type=circle>    Updated error display to allow more detailed errors.
    </ul>
    <h3>    4/12/2009       </h3><ul style="margin-top:0px">
        <li type=circle>    Fixed start/stop/restart to be more reliable.
    </ul>

Answer 1

接下来，您将不得不在里程碑之间解析项目。帮自己一个忙，不要再担心代码行并使用HTML解析器，例如HTML::TokeParser：

#!/usr/bin/perl

use strict;
use warnings;

use HTML::TokeParser;

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

while ( my $token = $parser->get_token ) {
    if ( $token->[0] eq 'S' ) {
        if ( $token->[1] eq 'h1') {
            my ($milestone) = split ' ', $parser->get_text('/h1');
            print "Milestone is '$milestone'\n";
        }
    }
}

__DATA__
<h1>1.77 Milestone</h1>
...

C:\Temp> vbn
Milestone is '1.77'
Milestone is '1.76'

Answer 2

我想要一个单行，这个怎么样？

perl -nle 'if (/^<h1>(.*)[ ]Milestone.*$/g){ print $1; last }' /etc/webmin/Pserver_Panel/changelog.cgi

Answer 3

从命令行抓取它的另一个单行：

perl -ne'print $1 and exit if /<h1>(.*?)\s+Milestone/' /etc/webmin/Pserver_Panel/changelog.cgi

是否更容易提取这些数据？

3 个答案: