Converting audiobooks to m4b sucks!

ube — Tue, 17 Feb 2009 13:50:22 +0000

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 (  ) {
                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";

SJ sucks!

ube — Fri, 19 Dec 2008 14:17:53 +0000

Here in Sweden there are two train companies, Tågkompaniet and SJ. I'm on a train operated by the latter.. In first class you get free internet, so now I'm entering this post from my iPhone.. Kinda ok appart from the problem with writing in english with a swedish dictionary. When I type "a" it becomes "å" (river in swedish), I erase and type "a" again and my phone tries to be helpfull and corrects it to "att" (to in swedish).. Well, I know I could change the keyboard to english, but where does that leave me when I'm texting?

blog.autopsy.se » iPhone

Converting audiobooks to m4b sucks!

SJ sucks!