161.253.47.104 at 05:58, 26 November 2005

2005-11-26T05:58:30Z

New page

I wrote this script because [http://audacity.sourceforge.net/help/faq?s=files&i=crash-recovery the Audacity Recovery Utility] I installed didn't work at all. It operates on mostly the same principles. It prints an sh script on stdout so you can edit it before running it.

This version only handles two-channel recording, but could easily be modified.

=Usage=

cd to the data directory of the project and do

ls | recov > out.sh
sh out.sh

=Source=

<nowiki>
#! /usr/bin/perl

use warnings;
use strict;
use Carp;

my @rescue = ();

while(<>) {
chomp;
if(/b(\d+)\.au$/o) {
push(@rescue,$_);
}
}

print STDERR "Got " . scalar(@rescue) . " file(s).\n";

my @chains = ();
my $previndex = undef;
my $chain = undef;

foreach(sort @rescue) {
/b(\d+)\.au$/o or die "Unrecognized filename $_\n";
my $index = $1;

unless( defined($chain) and +($index == $previndex + 1) ) {
$chain = [];
push(@chains,$chain);
}
push(@$chain, $_);
$previndex = $index;
}

print STDERR "Separated into " . scalar(@chains) . " contiguous chain(s).\n";

print "#! /bin/sh\n";

my $chainno = 0;
my $tmp = 0;

foreach my $chain (@chains)
{
my @lists = ([],[]);

my $chan = 0;

foreach(sort @$chain) {
push( @{$lists[$chan]}, $_ );
$chan = +($chan + 1) % 2;
}

foreach my $chan (0, 1) {
print "echo Recovering chain $chainno channel $chan\n";
my @oproc = ( @{$lists[$chan]} );
$_ = qq("$_") foreach @oproc;

my $dst = '';
my $ind = 0;

while( @oproc > 1 ) {
my @proc = @oproc;
last if @proc == 1;
@oproc = ();

while( @proc ) {
print "echo Pass $ind\n";
$dst = "tmp.output-$tmp.au";
my @round = splice @proc, 0, 30;
print "sox @round $dst\n";
push(@oproc, $dst);

++$ind;
++$tmp;
}
}
print "mv $oproc[0] output-$chainno-$chan.au\n";
print "echo Done.\n";
}

++$chainno;
}
</nowiki>

Audacity recovery script - Revision history

161.253.47.104 at 05:58, 26 November 2005