(REGEX) Item aus RSS-File in Array speichern

[Skeeve]

Moin!

gudn tach!

Argh! Kleine Korrekur! Was hab ich da nur für Unfug geschrieben?

das schon, aber es ginge afais auch mit split:

Ist alles Blödsinn, da Zeilenumbrüche drin sind!

Es bleibt dabei: XML::Twig (o.ä.) ist hier das Mittel der Wahl. Ansonsten sowas hier:

#!/usr/bin/perl  
use strict;  
use warnings;  
  
use Data::Dumper;  
  
my $feed = "  
<chanel>  
 <item>  
  foo  
 </item>  
 <item>  
  bar  
 </item>  
</chanel>  
";  
$feed=~ s/[\012\015]+/ /g;  
my $odd= 1;  
my (@items)= grep $odd=1-$odd,split m#<item>(.*?)</item>#m, $feed;  
  
print Dumper \@items;

-- Skeeve