Leser: 1
|< 1 2 3 >| | 26 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my $fn = '/usr/.....';
open($R,"<:utf8",$fn);
$tree->parse_file($R);
@text_nodes = $tree->look_down("_tag","p",
"class","spip",
"align","justify");
my $txt = "";
foreach my $node (@text_nodes){
$txt .= $node->as_text();
$txt .= "\n";
}
open(W,">:utf8","out.txt");
print W $txt;
close W;
|< 1 2 3 >| | 26 Einträge, 3 Seiten |