🚀 go-pugleaf

W dniu 13.04.2011 21:39, Mirosław Zalewski pisze:
> HTML::TreeBuilder obsługuje metody HTML::Element

zrobiłem tak:
#v+
#!/usr/bin/perl

use strict;
use HTML::TreeBuilder;
use LWP::Simple;

my $xml = get("http://pl.kingofsat.net/pack-cyfra.php") or die;
my $tree = HTML::TreeBuilder->new_from_content($xml);

my @table = $tree->look_down( _tag => 'table', class => 'frq');

foreach my $tab (@table) {

        my @pola=$tab->content_list();
                foreach my $pozycja (@pola) {
                print $pozycja->as_text()."\n";
                }

        print "\n\n\n\n";
};
#v-

utknąłem na content_list(). nie wiem czemu, ale nie wstawia mi nowej linii
za każdym elementem :(
Drukuje mi każdą znalezioną tabele w jednej lini

13.0�E Hotbird 612597.00V94EuropeDVB-SQPSK27500 3/4Globecast, 38.0
Mbps�NID:318TID:9400



13.0�E Hotbird 912692.00H99HB9 EuropeDVB-S28PSK27500 3/4AB SAT, 39.6
Mbps�NID:319TID:9900

jeśli wywale ten fragment:
#v+
[...]
        my @pola=$tab->content_list();
                foreach my $pozycja (@pola) {
                print $pozycja->as_text()."\n";
                }
[...]
#v-

i zamiast niego użyję:

#v+
[...]
print $tab->as_text();
[...]
#v-

to wydruk mam taki sam :(

naprowadzi mnie ktoś na rozwiązanie ?