Using XML::XSH2:

register-namespace a http://www.w3.org/2005/Atom ;
register-namespace y http://www.youtube.com/xml/schemas/2015 ;
register-namespace m http://search.yahoo.com/mrss/ ;

my $html := create html ;

open videos.xml ;

my $head := insert element head into $html/html;
my $title_text = /a:feed/a:title/text() ;

insert text $title_text into &{ insert element title into $head } ;
my $body := insert element body into $html/html ;

insert text $title_text into &{ insert element h3 into $body } ;
copy /a:feed/a:author/a:name/text() into &{ insert element b into $bod
+y } ;

my $list := insert element ul into $body ;

for my $entry in /a:feed/a:entry {
    my $item := insert element li into $list ;
    my $anchor := insert element a into $item ;
    copy $entry/a:title/text() into $anchor ;
    copy $entry/a:link/@href into &{ insert attribute 'href=""' into $
+anchor } ;
    my $desc = $entry/m:group/m:description/text() ;
    $desc ||= '--' ;
    my $para := insert element p into $item ;
    copy $desc into &{ insert element i into $para } ;
}

save :F html :r $html ;

[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In reply to Re: Challenge: Parse XML Feed for Youtube channel -- XML::XSH2 by choroba
in thread Challenge: Parse XML Feed for Youtube channel by LanX

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.