source: flacrip/trunk/mbz @ 34

#!/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,
    'get-release-id' => \my $GET_RELEASE_ID,
    'xml' =>\my $GET_XML,
);

my $discid;

if ($FLAC_FILE) {
    $discid = DiscFlacFile->new({ file => $FLAC_FILE })->discid;
} 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{MUSICBRAINZ_ALBUMID}\n";
} else {
    for my $key (sort keys %{ $info }) {
        print "$key=$$info{$key}\n";
    }
}