/ 
MP3-Find-0.01
River stage zero No dependents
/ MP3::Find

NAME

MP3::Find - Search and sort MP3 files based on their ID3 tags

SYNOPSIS

# select with backend you want
use MP3::Find qw(Filesystem);

print "$_\n" foreach find_mp3s(
    dir => '/home/peter/cds',
    query => {
        artist => 'ilyaimy',
        title => 'deep in the am',
    },
    ignore_case => 1,
    match_words => 1,
    sort => [qw(year album tracknum)],
    printf => '%2n. %a - %t (%b: %y)',
);

DESCRIPTION

This module allows you to search for MP3 files by their ID3 tags. You can ask for the results to be sorted by one or more of those tags, and return either the list of filenames (the deault), a printf-style formatted string for each file using its ID3 tags, or the actual Perl data structure representing the results.

There are currently two backends to this module: MP3::Find::Filesystem and MP3::Find::DB. You choose which one you want by passing its name as the argument to you use statement; MP3::Find will look for a MP3::Find::$BACKEND module. If no backend name is given, it will default to using MP3::Find::Filesystem.

Note: I'm still working out some kinks in the DB backend, so it is currently not as stable as the Filesystem backend.

REQUIRES

File::Find, MP3::Info, and Scalar::Util are needed for the filesystem backend (MP3::Find::Filesystem).

DBI, DBD::SQLite, and SQL::Abstract are needed for the database backend (MP3::Find::DB).

EXPORTS

find_mp3s

my @results = find_mp3s(%options);

Takes the following options:

dir

Where to start the search. This can either be a single string or an arrayref. Defaults to your home directory.

query

Hashref of search parameters. Recognized fields are anything that MP3::Info knows about. Field names can be given in either upper or lower case; find_mp3s will convert them into upper case for you. Value may either be strings, which are converted into regular exporessions, or may be qr[...] regular expressions already.

ignore_case

Ignore case when matching search strings to the ID3 tag values.

exact_match

Adds an implicit ^ and $ around each query string. Does nothing if the query is already a regular expression.

sort

What field or fields to sort the results by. Can either be a single scalar field name to sort by, or an arrayref of field names. Again, acceptable field names are anything that MP3::Info knows about; field names will be converted to upper case as with the query option.

printf

By default, find_mp3s just returns the list of filenames. The printf option allows you to provide a formatting string to apply to the data for each file. The style is roughly similar to Perl's printf format strings. The following formatting codes are recognized:

%a - artist
%t - title
%b - album
%n - track number
%y - year
%g - genre
%% - literal '%'

Numeric modifers may be used in the same manner as with %s in Perl's printf.

no_format

Causes find_mp3s to return an array of hashrefs instead of an array of (formatted) strings. Each hashref consists of the key-value pairs from MP3::Info::get_mp3_tag and MP3::Info::get_mp3_info, plus the key FILENAME (with the obvious value ;-)

@results = (
    {
        FILENAME => ...,
        TITLE    => ...,
        ARTIST   => ...,
        ...
        SECS     => ...,
        BITRATE  => ...,
        ...
    },
    ...
);

BUGS

There are probably some in there; let me know if you find any (patches welcome).

TODO

Better tests, using some actual sample mp3 files.

Other backends (a caching filesystem backend, perhaps?)

SEE ALSO

MP3::Find::Filesystem, MP3::Find::DB

mp3find is the command line frontend to this module (it currently only uses the filesystem backend).

See MP3::Info for more information about the fields you can search and sort on.

File::Find::Rule::MP3Info is another way to search for MP3 files based on their ID3 tags.

AUTHOR

Peter Eichman <peichman@cpan.org>

COPYRIGHT AND LICENSE

Copyright (c) 2006 by Peter Eichman. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.