blog.autopsy.se

Ok, I download stuff from the internet so sue me! Since I'm an iSheep I want to use my iPod/iPhone to listen to to my audiobooks that I download. The problem with this is that all releases are in MP3 format and this messes up my play lists when doing a shuffle of all songs; all of a sudden there is a chapter from an audiobook read. So, what to do. A cupple of months ago I wrote a script that converted m3u to m4b, and now I've rewritten it. So, here it is! Execute the script with directory-with-m3u-files as argument.

#!/usr/bin/perl
 
use File::Basename;
my @m3u;
my @files;
my $f;
my $count = 1;
my $discs;
opendir(DIR, $ARGV[0]) or die("Can't open \"$ARGV[0]\"!\n");
@files = readdir(DIR);
closedir(DIR);
$path = $ARGV[0];
foreach $f ( @files ) {
        if ( ! -d $f ) {
                if ( ($f =~ m/^.*\.m3u$/) && ! ( $f =~ m/^0000.*$/) ) {
                        push(@m3u, $f);
                }
 
        }
}
@m3u = sort(@m3u);
$discs = @m3u;
print "Found $discs m3u files.\n";
foreach $m ( @m3u ) {
        my @data;
        $file = $m;
        $file =~ s/^(.*)\..*/\1/;
        $outfile = $file.".m4b";
        open ID3, "<$ARGV[0]/$m" or die("File \"$ARGV[0]/$m\" not found!\n");
        while ( <ID3> ) {
                push (@data,$_);
        }
        close(ID3);
        if ( -f tmpfile ) {
                print "tmpfile found.. Deleteing\n";
                unlink(tmpfile);
        }
        open(TMPFILE, ">tmpfile");
        foreach $line (@data) {
                if ( $line =~ m/^#.*/ ) {
                } else {
                        if ( $line !=~ m/.*\.rar.*/ ) {
                                print TMPFILE "$path/$line";
                        }
                }
        }
        close(TMPFILE);
        my $id3 = `head -1 tmpfile`;
        print "Getting id3-data from $id3\n";
        @id3 = `id3v2 --list $id3`;
        foreach $line (@id3) {
                if ( $line =~ m/^TALB.*/ ) {
                        $TITLE = $line;
                        $TITLE =~ s/^.*: (.*)\n$/\1/;
                }
                if ( $line =~ m/^TPE1.*/ ) {
                        $AUTH = $line;
                        $AUTH =~ s/^.*: (.*)\n$/\1/;
                }
        }
        print "Got:\n";
        print "Title:  $TITLE\n";
        print "Author: $AUTH\n";
        print "Output: $outfile\n";
        print "Converting..\n";
        system ("mpg321 -@ tmpfile -q -w - | faac -w --disc \"$count/$discs\" --track \"1/1\" --artist \
\"$AUTH\" --title \"$TITLE\" --album \"$TITLE\" --writer  \"$AUTH\" \
--genre \"Audiobook\" -o \"$file.m4b\" - ");
 
        $count++;
}
        print "Done, I think.. Have a nice day!\n";
 

Tags: Audiobooks, faac, iPhone, iPod, iTunes, mpg321, Perl

This entry was posted on Tuesday, February 17th, 2009 at 14:50 and is filed under Perl. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.