Changeset 405

Show
Ignore:
Timestamp:
07/09/07 20:11:01 (1 year ago)
Author:
miya
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • library/perl/trunk/Parse-Apache-ServerStatus-Extended/lib/Parse/Apache/ServerStatus/Extended.pm

    r404 r405  
    1515 
    1616    my $table = scraper { 
    17         process 'td', 
    18             'values[]' => 'TEXT'; 
     17        process 'table[border="0"] tr', 
     18            'rows[]' => scraper { 
     19                process 'td', 
     20                    'values[]' => 'TEXT'; 
     21            } 
    1922    }; 
    2023 
    21     my $rows = scraper { 
    22         process 'table[border="0"] tr', 
    23             'rows[]' => $table; 
    24     }; 
    25  
    26     my $scraped = []; 
     24    my @scraped; 
    2725    for ( @{ $rows->scrape($content)->{rows} } ) { 
    2826        next unless $_->{values}; 
    2927        my $stat = $_->{values}; 
    30         push @$scraped, { 
     28        push @scraped, { 
    3129            srv     => $stat->[0], 
    3230            pid     => $stat->[1], 
    …… 
    4543    } 
    4644 
    47     return $scraped; 
     45    return \@scraped; 
    4846} 
    4947