podcast-diff.raku

unit sub MAIN();

use XML;
use XML::Query;

sub get-urls($file-name) {
    my $xml = from-xml-file($file-name);
    my $xq = XML::Query.new($xml);

    my $urls = $xq('outline[type=rss]').elements.map(*<xmlUrl>);

    $urls.Set;
}

my $pocket-casts-urls = get-urls('pocket-casts.opml');
my $overcast-urls = get-urls('overcast.opml');

my $not-in-pocket-casts = $overcast-urls (-) $pocket-casts-urls;
my $not-in-overcast = $pocket-casts-urls (-) $overcast-urls;

say "Not in Pocket Casts:";

.say for @$not-in-pocket-casts;

say "Not in Overcast:";

.say for @$not-in-overcast;