利用Perl读写MP3标记管理音乐文件

　　好的，利用Perl的帮助，就可以从你的列表中最终除去那些条目。CPAN为我们提供了MP3：：Tag模块，该模块提供了现成的工具用来阅读和从MP3 文件中提取元数据，这使得识别某个MP3 磁盘文件的名称，艺术家，类别变成一件很简单的事情。而且，你还可以将它与Perl的文件函数相结合来为你所有的MP3内容高效地(自动地)建立一个索引。如果你喜欢，你甚至还可以利用内嵌的模块函数来编辑文件元数据。KhnLinux联盟

　　本文将会讨论这两种函数，向你展示如何使用MP3::Tag模块来读和写MP3文件元数据。这里我们假设你已安装了Perl和MP3::Tag模块;如果你没有这个模块，可以从CPAN下载。KhnLinux联盟

　　读MP3标记KhnLinux联盟

　　让我从基础开始：读嵌入在MP3文件中的ID3标记。列表A是一个简单的例子，该例演示了利用MP3::Tag如何去做。KhnLinux联盟

　　列表AKhnLinux联盟

　　#!/usr/bin/perlKhnLinux联盟

　　use MP3::Tag;KhnLinux联盟

　　$mp3 = MP3::Tag->new('track1.mp3'); # create objectKhnLinux联盟

　　$mp3->get_tags(); # read tagsKhnLinux联盟

　　if (exists $mp3->) { # print track informationKhnLinux联盟

　　print "Filename: $filenamen";KhnLinux联盟

　　print "Artist: " . $mp3->->artist . "n";KhnLinux联盟

　　print "Title: " . $mp3->->title . "n";KhnLinux联盟

　　print "Album: " . $mp3->->album . "n";KhnLinux联盟

　　print "Year: " . $mp3->->year . "n";KhnLinux联盟

　　print "Genre: " . $mp3->->genre . "n";KhnLinux联盟

　　}KhnLinux联盟

　　$mp3->close(); # destroy objectKhnLinux联盟

　　这里面没有复杂的地方。首先，是创建一个新的MP3::Tag 对象，并将MP3文件的文件名和位置作为参数传递给对象的构造函数。然后，使用对象的get_tags()方法来读取嵌入在文件头部的元数据，作为对象的属性提供给大家。接着就可以以普通的方式访问和打印这些属性。下面是一个输出样本：KhnLinux联盟

　　文件名：track1.mp3KhnLinux联盟

　　艺术家：The BungersKhnLinux联盟

　　题目：Techno #1KhnLinux联盟

　　签名册：BungabomKhnLinux联盟

　　年份：2005KhnLinux联盟

　　类别：Rancid TranceKhnLinux联盟

　　它所具备的这个功能使得完成在本文开始时我想大家承诺的事情十分简单——为你的所有音乐文件创建一个可打印的目录。你需要做的就是将上面的代码放在一个循环中，对你每个*.mp3文件运行它，并将输出格式化为简单易读的形式。列表B展示了如何去做。KhnLinux联盟

　　列表BKhnLinux联盟

　　#!/usr/bin/perlKhnLinux联盟

　　use MP3::Tag; # import moduleKhnLinux联盟

　　@files = <*.mp3>; # find MP3 files in current directoryKhnLinux联盟

　　# loop over file listKhnLinux联盟

　　# print tag informationKhnLinux联盟

　　foreach (@files) {KhnLinux联盟

　　$mp3 = MP3::Tag->new($_);KhnLinux联盟

　　$mp3->get_tags();KhnLinux联盟

　　if (exists $mp3->) {KhnLinux联盟

　　print $_, "t", $mp3->->artist, "t", $mp3->->title, "n";KhnLinux联盟

　　}KhnLinux联盟

　　$mp3->close();KhnLinux联盟

　　}KhnLinux联盟

　　在这个例子中，当前目录中的MP3文件列表被保存在数组@files中，然后利用foreach循环迭代数组中的每一个，使用get_tags()方法获取和打印每个文件的详细元数据。KhnLinux联盟

　　这样你就会拥有了一个自动生成的MP3目录！当你向你的收藏中添加新的音乐文件时，只要简单的运行一遍上面的脚本，它们就会自动地显示在目录列表中。这不是很整洁吗？KhnLinux联盟