X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=xmlparse.pl;fp=xmlparse.pl;h=6a8a047b3e46de73099cebdfaf2f54edd5095188;hb=3e960ae8a2af55022cde0b3f376f9459e1a05f6d;hp=0000000000000000000000000000000000000000;hpb=3622a44fe4d763a7a5c3c5a89a832e68a25df354;p=shamaz

diff --git a/xmlparse.pl b/xmlparse.pl
new file mode 100755
index 0000000..6a8a047
--- /dev/null
+++ b/xmlparse.pl
@@ -0,0 +1,21 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use XML::DOM;
+
+local $/ = undef;
+my $content = <>;
+
+my $parser = XML::DOM::Parser->new;
+my $doc = $parser->parse($content);
+my $tracks = $doc->getElementsByTagName("track");
+if ($tracks->getLength == 0) {
+	print "Didn't recognize song\n";
+	exit;
+}
+my $track = $tracks->item(0);
+my $title = $track->getElementsByTagName("ttitle")->item(0)->getFirstChild->getData;
+my $artist = $track->getElementsByTagName("tartist")->item(0)->getFirstChild->getData;
+
+print "$title,$artist\n";