Metadata::DB::Indexer 1.03

Metadata::DB::Indexer is a Perl module that facilitates indexing records for use with Metadata::DB and sub packages. This is meant to completely recreate a metadata table for records. Useful for indexing files, or any sort of record that may be timely.<br /><br />SYNOPSIS<br /><br /> use Metadata::DB::Indexer;<br /> use File::Find::Rule;<br /><br /> no strict 'refs';<br /> *{Metadata::DB::Indexer::record_identifier_to_metadata} = &get_mp3_meta;<br /> <br /><br /> my $finder = File::Find::Rule->file()->name( qr/.mp3$/i );<br /> my @music_files = $finder->in('/home/myself');<br /><br /> my $absdb = '/home/myself/music.db';<br /> my $dbh = DBI->connect("dbi:SQLite:dbname=$absdb","","");<br /><br /> my $indexer = Metadata::DB::Indexer({ DBH => $dbh });<br /><br /> $indexer->records_to_index(@music_files);<br /><br /> $indexer->run;<br /><br /><br /> sub get_mp3_meta {<br /> my $record_identifier = shift;<br /><br /> my $abs_path = $record_identifier;<br /><br /> my $meta = my_sub_that_turns_mp3s_to_hashref_meta($abs_path);<br /><br /> $meta or return; # this registers a fail, and continues<br /><br /> return $meta;<br /> }<br /><br /> my $total = $indexed->records_to_index_count;<br /> my $indexed = $indexer->records_indexed_count;<br /><br /> print STDERR "Done, indexed $indexed of $total records.n";

Requirements:	No special requirements
Platforms:	*nix, Linux
Keyword:	Abs Path,  Db,  Homemyselfmusicdb,  Indexed,  Indexer,  Indexergtrecords Indexmusic Files,  Indexergtrun,  Indexing,  Meta,  Metadata,  Metadatadbindexer,  Print,  Quotdone,  Record Identifier,  Records,  Recordsquot,  Registers,  Return,  Shift,  Stderr,  Total
Users rating:	0/10