From 5c747b5231ab20d5a8c2812c009aa9c5039c376b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Thu, 6 May 2021 23:10:04 +0200 Subject: Sort feed entries --- run/rss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/run/rss b/run/rss index 5511350..80256e4 100755 --- a/run/rss +++ b/run/rss @@ -16,7 +16,9 @@ my %feeds = ( my $feed = XML::Feed->parse(URI->new($feeds{$name})) or die XML::Feed->errstr; -my @entries = $feed->entries; + +# Sort entries +my @entries = sort { $b->issued <=> $a->issued } $feed->entries; # Print summary of five latest entries for my $entry (@entries[0..4]) { -- cgit v1.2.3