source: flacrip/trunk/mbz @ 4

#!/usr/bin/perl -w
use strict;

# one use case: for f in ~/cds/*.flac; do mbid=`./mbz --flac $f --get-release-id`; echo $f $mbid; done;

use Getopt::Long;
use MusicBrainz;

GetOptions(
    'flac=s' =>\my $FLAC_FILE,
    'get-release-id' => \my $GET_RELEASE_ID,
    'xml' =>\my $GET_XML,
);

my $discid;

if ($FLAC_FILE) {
    require Audio::FLAC::Header;
    my $flac = Audio::FLAC::Header->new($FLAC_FILE) or die "Can't read FLAC header from $FLAC_FILE\n";
    $discid = $flac->tags('MBZ_DISCID') or die "No MBZ_DISCID tag in $FLAC_FILE\n";
} else {
    $discid = shift;
}

# make the output terminal handle UTF-8 characters
binmode STDOUT, ':utf8';

# just dump the XML, if requested
if ($GET_XML) {
    print lookup_release($discid);
    exit;
}

# otherwise, do the full parsing of the data
my $info = get_musicbrainz_info($discid);

exit unless $info;

if ($GET_RELEASE_ID) {
    print "$$info{RELEASE_MBID}\n";
} else {
    for my $key (sort keys %{ $info }) {
        print "$key=$$info{$key}\n";
    }
}