perl与mp3

MP3 标签的简单介绍
首先有音乐。然后出现计算机。计算机速度很慢且只能发出蜂鸣声。即使使用诸如 PC 扬声器这种很令人悲伤的工具（噢，我真希望成为 Apple 和 Amiga 用户），我们也编写程序生成音乐，在游戏和娱乐中使用。之后，声卡越来越好，办公室里到处发出环绕音响和 THX 认证的扬声器所发出的震耳欲聋的声音。

在硬件发展的同时，也产生了很多声音格式。.mid 适用于 MIDI 音调、.voc、.mod、.wav 等。专有的 MP3 格式（涉及到德国 Fraunhofer 学院拥有的很多专利）随着时间的推移流行开来 —— 它提供很好的压缩和性能。除 MP3 外还有许多格式，著名的有 Ogg Vorbis，但当今 MP3 似乎仍是音乐存储格式的最佳选择。

MP3 文件的一个优点是可以使用 ID3 标签来加注标签。文件内部是有关它的信息 —— 通常称为元数据。唱片集、艺术家、曲目名称、注释（使用 ID3 版本 1.1）甚至曲目数量都可以存储在 ID3 标签中，只要不超过特定字符数限制即可。

ID3 版本 1.1 的后续版本是 ID3 版本 2（简称为 ID3v2），除简单性外，后者几乎在所有方面都超过了前者。ID3v2 可以处理多种语言，在每个标签元素中存储任意长的数据，甚至将图片存储为标签的一部分。但不幸的是，使用 ID3v2 要了解到 TALB 是唱片集的名称，TIT2 是曲目数量。Ogg Vorbis 格式要花费很长时间才能识别，其中艺术家元素被称为...等等它吧...ARTIST!（公平地说，这仅仅是一个惯例 —— Ogg Vorbis 注释是无格式的）。不幸的是，现存的数十亿首 MP3 文件都不能在不损失质量的情况下转换为 Ogg Vorbis 格式或任何其他格式，因此，至少在接下来的 5 年里，您可能发现，我们不仅会使用下个“热门”格式，还要使用 MP3 文件。

我已非常努力地从实际的 ID3 标签中抽取标签作为内容。当时机来临时，修改 autotag.pl 会很容易，因此除 ID3 外，它还处理其他加注标签的格式。

# {{{ contains_word_char: return 1 if the text contains a word character
sub contains_word_char
{
 my $text = shift @_;
 return $text && length $text && $text =~ m/\w/;
}
# }}}

# {{{ get_tag: get a ID3 V2 tag, using V1 if necessary
sub get_tag
{
 my $file    = shift @_;
 my $upgrade = shift @_;
 my $mp3 = MP3::Tag->new($file);

 return undef unless defined $mp3;

 $mp3->get_tags();

 my $tag = {};

 if (exists $mp3->{ID3v2})
 {
  my $id3v2 = $mp3->{ID3v2};
  my $frames = $id3v2->supported_frames();
  while (my ($fname, $longname) = each %$frames)
  {
   # only grab the frames we know
   next unless exists $supported_frames{$fname};

   $tag->{$fname} = $id3v2->get_frame($fname);
   delete $tag->{$fname} unless defined $tag->{$fname};
   $tag->{$fname} = $tag->{$fname}->{Text} if $fname eq 'COMM';
   $tag->{$fname} = $tag->{$fname}->{URL} if $fname eq 'WXXX';
   $tag->{$fname} = '' unless defined $tag->{$fname};
  }
 }
 elsif (exists $mp3->{ID3v1})
 {
  warn "No ID3 v2 TAG info in $file, using the v1 tag";
  my $id3v1 = $mp3->{ID3v1};
  $tag->{COMM} = $id3v1->comment();
  $tag->{TIT2} = $id3v1->song();
  $tag->{TPE1} = $id3v1->artist();
  $tag->{TALB} = $id3v1->album();
  $tag->{TYER} = $id3v1->year();
  $tag->{TRCK} = $id3v1->track();
  $tag->{TIT1} = $id3v1->genre();

  if ($upgrade && read_yes_no("Upgrade ID3v1 tag to ID3v2 for $file?", 1))
  {
   set_tag($file, $tag);
  }
 }
 else
 {
  warn "No ID3 TAG info in $file, creating it";
  $tag = {
      TIT2 => '',
      TPE1 => '',
      TALB => '',
      TYER => 9999,
      COMM => '',
      };
 }
 print "Got tag ", Dumper $tag
  if $config->DEBUG();
 return $tag;
}
# }}}