(REGEX) Item aus RSS-File in Array speichern

[Skeeve]

Moin!

So geht's (z.B.) mit XML::Twig:

#!/usr/bin/perl  
  
use strict;  
use warnings;  
  
use Data::Dumper;  
use XML::Twig;  
  
###### TWIG ################################################################{{{  
my $rss= new XML::Twig(  
 twig_handlers => {  
  item => \&item,  
 },  
);  
###### END: TWIG ###########################################################}}}  
  
my @items;  
  
my $feed = "  
<chanel>  
 <item>  
  foo  
 </item>  
 <item>  
  bar  
 </item>  
</chanel>  
";  
  
$rss->parse($feed);  
  
print Dumper \@items;  
  
sub item {  
 my( $t, $elt )= @_;  
 push @items, $elt->text();  
}

-- Skeeve