ASXの解析

ネットラジオなどをダウンロードしようとすると、Windows Media Metafile; いわゆるASXファイル、を扱うことになる。
ということで、cpanでモジュールを探したところ、無い。ASXを作ることはできても、内容を解析するようなモジュールが見当たらない。ASX::Parserとかあると思っていたのに。
本家microsoftのページには、WMMはXMLスクリプトだとあるので、XML関連のモジュールを使ってASX用のモジュールを作ることにした。
こんな感じかな。

my $parser = new ASX::Parser;
my $asx = $parser->parse('metafile.asx');

my $title = $asx->title;
my $author = $asx->author;
my $entries = $asx->entries;

my $n = $entries->length;
my $entry = $entries->item(0);
my $entry_title = $entry->title;
my $entry_author = $entry->author;

my $entry_refs = $entry->refs;
print "This contents is ad.\n" if $entry_refs->item(0)->cliantSkip;