use Perl

• Incompatible artwork (Score:1)

  by extra88 (4181) on 2003.05.01 9:44 (#19657)

  I've found that artwork added to tracks by other programs won't necessarily display in iTunes. I typically add artwork to the OpenBSD theme songs using MusicMatch for Windows but iTunes4 doesn't display it in the album window or the artwork window.
  
  I also spent some frustrated time trying to use your perl script [perl.org] for extracting artwork before I decided that the ID3 tags must be different. I'm still a Perl noob, how can I use 'keys' with the hash reference get_mp3tag returns so I know what all the keys are? BTW, while fooling around with that script, I also found that the extraction didn't work even for existing key names (like TITLE) if the parameter RAW_V2 was specified. Changing get_mp3tag($file, 2, 2) to get_mp3tag($file, 2) or even just get_mp3tag($file) made it work. This was all with Perl 5.8, MP3::Info 1.02, and files tagged by MusicMatch for Windows.

  Reply to This

  • Re:Incompatible artwork (Score:1)

    by chromatic (983)

    my $hash_ref   = { Gharlane => 'Eddore', Mentor => 'Arisia' };
    my @nonhumans  = keys %{ $hash_ref };
    • Re:Incompatible artwork (Score:1)

      by extra88 (4181)

      Thanks.
      
      Key 0: YEAR
      Key 1: ARTIST
      Key 2: COMMENT
      Key 3: ALBUM
      Key 4: TITLE
      Key 5: GENRE
      Key 6: TRACKNUM
      Key 7: TAGVERSION
      
      I'm interested in using Perl to access the art because I'd really like a script which can remove the art from an mp3. We're using MusicMatch to rip a bunch of CDs and its pretty good but one bug is you can't tell it not to add the album art to a ripped track if it finds some. The problem with album art is when we use Apache::MP3 to steam files containing album art, some clients won't play the t
      • Re: (Score:1)

        by wgalway (7689)

        #!/usr/bin/perl -w
        #-------------------------------
        # Artwork: artwork.pl v.1 2007-02-18 14:52:09
        # Pull album art from id3v2 tags
        # Copyright (c) 2007 William Galway. All Rights Reserved.
        #
        #-------------------------------
        $VERSION = '.1';
        
        use MP3::Tag;
        use File::Find;
        open( LOGF, ">>logfile.txt" ) || die "$!";
        print LOGF `date`;
        print LOGF "The follwing directories are w/o ablum art.\n";
        
        # MP3 Dirctory
        print "Type the path to your mp3s and press Enter. \n";
        $mp3dir = <STDIN>;
        chomp $mp3dir;
        print "\n";
        
        # Album