source: flacrip/trunk/mbz @ 41

#!/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 FindBin;
use lib "$FindBin::RealBin/lib";

use Getopt::Long;
use MusicBrainz;
use DiscFlacFile;

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

my $discid;
my $barcode;

if ($FLAC_FILE) {
    my $flac_disc = DiscFlacFile->new({ file => $FLAC_FILE });
    $discid  = $flac_disc->discid;
    $barcode = $flac_disc->barcode;
} else {
    $discid  = shift;
    $barcode = $BARCODE;
}

# 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  => $discid,
    barcode => $barcode,
});

exit unless $info;

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