Есть ли легче извлечь эти данные? - PullRequest
Новая
       12

Есть ли легче извлечь эти данные?

0 голосов
/ 26 июня 2009 
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>

Ответы [ 3 ]

4 голосов
/ 26 июня 2009

Далее вам нужно будет проанализировать элементы между этапами. Сделайте себе одолжение, перестаньте беспокоиться о строках кода и используйте анализатор 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'
0 голосов
/ 28 июня 2009

Еще один однострочник, чтобы получить его из командной строки: 

perl -ne'print $1 and exit if /<h1>(.*?)\s+Milestone/' /etc/webmin/Pserver_Panel/changelog.cgi
0 голосов
/ 26 июня 2009

Если вы хотите однострочник, как насчет этого? 

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