#!/usr/bin/perl

use XML::TreeBuilder;
use Data::Dumper;

my $file = '20040818.xml';
my $tree = XML::TreeBuilder->new();

$tree->parse_file($file);
#print Dumper($tree);

foreach my $prod ($tree->find_by_tag_name('product-announced')){

    my @tmp;

    #Title
    $tmp[0] = $prod->find_by_tag_name('title-name')->as_text;

    #Actor(s)
    my @acts = $prod->find_by_tag_name('actor');
    my @actors = map { $_->as_text } @acts;
    $tmp[1] = join("/", @actors); 

    $tmp[2] = $prod->find_by_tag_name('genre')->as_text; #Genre - get first
    $tmp[3] = $prod->find_by_tag_name('title-rating')->as_text;
    $tmp[4] = $prod->find_by_tag_name('street-date')->as_text;
    $tmp[5] = $prod->find_by_tag_name('upc')->as_text;
    $tmp[6] = $prod->find_by_tag_name('isbn')->as_text;
    $tmp[7] = $prod->find_by_tag_name('msrp')->as_text;
    $tmp[8] = $prod->find_by_tag_name('map')->as_text;
    $tmp[9] = $prod->find_by_tag_name('packaging-type')->as_text;
    $tmp[10] = $prod->find_by_tag_name('media-quantity')->as_text;
    $tmp[11] = $prod->find_by_tag_name('runtime')->as_text;
    $tmp[12] = $prod->find_by_tag_name('sound-track-language')->as_text;
    $tmp[13] = $prod->find_by_tag_name('format')->as_text;
    $tmp[14] = $prod->find_by_tag_name('pack-count')->as_text;
    $tmp[15] = $prod->find_by_tag_name('product-type')->as_text;

    #print join("|", @tmp);
    #map { s/,//g } @tmp;

    #my $line = pack 'A30 A30', $tmp[0], $tmp[1];

    #print "$line\n";

}