| メタデータ:: DB ::インデックス Metadata :: DBおよびSUBパッケージで使用するための索引付けレコードを容易にします。 |
今すぐダウンロード |
メタデータ:: DB ::インデックス ランキングとまとめ
- ライセンス:
- Perl Artistic License
- 出版社のWebサイト:
- http://search.cpan.org/leocharre/
メタデータ:: DB ::インデックス タグ
メタデータ:: DB ::インデックス 説明
Metadata :: DBおよびサブパッケージで使用するための索引付けレコードを容易にします。 Metadata :: DB :: Indexerは、Metadata :: DBおよびサブパッケージで使用するための索引付けレコードを容易にするPerlモジュールです。これは、レコードのメタデータテーブルを完全に再作成することを目的としています。ファイルの索引付けに役立ちます。ファイル:: find ::ルールを使用してください。厳格な「参考」はありません。 * {メタデータ:: db :: indexer :: record_identifier_to_metadata} = get_mp3_meta; My $ FINDER = file :: find :: rule-> file() - > name(qr / 。mp3 $ / i);私の@music_files = $ finder->( '/ home / mscelles');私の$ absdb = '/home/myself/music.db'; My $ dbh = dbi-> connect( "dbi:sqlite:dbname = $ absdb"、 ""、 ""); My $ Indexer = Metadata :: DB :: Indexer({DBH => $ DBH}); $ Indexer-> Records_To_Index( @ music_files); $ Indexer-> Run; sub get_mp3_meta {My $ Record_Identifier = Shift; My $ abs_path = $ record_identifier; My $ META = MY_SUB_THAT_TURNS_MP3S_TO_HASHREF_META($ ABS_PATH); $メタまたは返品。 #これは失敗を登録し、$ METAを返します。 My $ TOTAL = $ INDEXED-> RECORDS_TO_INDEX_COUNT; My $ INDEXED = $ INSEXER - > RECORDS_INDEXED_COUNT; STDERRを印刷し、$ Total Recordsの索引付けされた$ INDEXED N ";要件: ・Perl
メタデータ:: DB ::インデックス 関連ソフトウェア