git.sesse.net Git - shamaz/blob - xmlparse.pl

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use XML::DOM;
   6
   7 local $/ = undef;
   8 my $content = <>;
   9
  10 my $parser = XML::DOM::Parser->new;
  11 my $doc = $parser->parse($content);
  12 my $tracks = $doc->getElementsByTagName("track");
  13 if ($tracks->getLength == 0) {
  14         print "Didn't recognize song\n";
  15         exit;
  16 }
  17 my $track = $tracks->item(0);
  18 my $title = $track->getElementsByTagName("ttitle")->item(0)->getFirstChild->getData;
  19 my $artist = $track->getElementsByTagName("tartist")->item(0)->getFirstChild->getData;
  20
  21 print "$title,$artist\n";