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;