ARCue.pl - Check whole CD rips with AccurateRip Options

[Christopher Key]

Hello All,

I've throw together a pure perl script that calculates the track checksums for a cue/wav file pair and then checks them against the AccurateRip database. It's available from:

http://www.srcf.ucam.org/~cjk32/ARCue/ARCue.pl

Simply save it somewhere sensible, and from a command prompt, run:

ARCue.pl file1.cue file2.cue ...


A few points to bear in mind:

1) This is written in pure perl, so is quite slow, maybe 30s per track. If any perl gurus have any tips of speeding it up, they'd be much appreciated.

2) The range of cue files supported is probably very limited. It works with those generated by EAC. If it doesn't work with yours, please let me know.

3) The script relies on 32bit integer arithmetic, so I'm not sure how it'll behave on 64bit systems, any feedback will be gratefully recieved.

4) For reasons I can't fathom, approx 1 in 30 tracks checksums are incorrectly calculated. If a track is reported as inaccurately ripped, try running again before reripping. If anyone can shed any light on what might be going on, I'd be very grateful. So far, I can discern no noticable pattern as to when it happens.


Finally, as noted in the script, please read,

http://www.accuraterip.com/3rdparty-access.htm

before use.


Chris Key

[caligae]

First of all big thanks. I've started using AccurateRip only recently (and already have ripped lots of CDs). I wanted to write something like this myself but didn't want to go through the hassle and apply for 3rd party access.

I'm on *nix. To parse the file correctly, I need to convert the .cue files to UNIX format and use '/' as path seperator. (No big problem)

edit: Hmm, seems like it only works with a single wave file, not with multiple wavs.

edit 2: I finally got it to work. There were strange errors that didn't happen using ActivePerl. As far as I can tell the default data types seem to be different and so I got integer overflows here (perl v5.8.8 on FreeBSD).

Disclaimer: I've never done anything in perl, so this is probably not the right fix, but at least it works for me and should give a hint what's wrong.

CODE

--- ARCue.pl.orig       Tue Mar 27 17:18:37 2007
+++ ARCue.pl    Tue Mar 27 17:12:24 2007
@@ -140,7 +140,7 @@
                        my $chunkTrackCount = unpack("c",substr($arCrcData,$ptr,1));
                        my $chunkDiscId1 = unpack("l",substr($arCrcData,$ptr+1,4));
                        my $chunkDiscId2 = unpack("l",substr($arCrcData,$ptr+5,4));
-                       my $chunkCddbDiscId = unpack("l",substr($arCrcData,$ptr+9,4));
+                       my $chunkCddbDiscId = unpack("I",substr($arCrcData,$ptr+9,4));
                        $ptr +=13;

                        if ( $chunkTrackCount != $trackCount
@@ -154,7 +154,7 @@
                        # How if it flagged that a track is not in the database?
                        for (my $track = 0; $track < $trackCount; $track++) {
                                my $trackConfidence = unpack("c",substr($arCrcData,$ptr,1));
-                               my $trackCrc = unpack("l",substr($arCrcData,$ptr+1,4));
+                               my $trackCrc = unpack("I",substr($arCrcData,$ptr+1,4));
                                $ptr += 9;

                                if ($arCrcCount == 0){

This post has been edited by caligae: Mar 27 2007, 16:20