Shell Programming and Scripting

skrynesaver@busybox:~/test$ ls
chp_testfile_00001_0.lab  chp_testfile_00002_1.lab  chp_testfile_00003_1.lab  chp_testfile_00004_0.lab
chp_testfile_00001.wav    chp_testfile_00002.wav    chp_testfile_00003.wav    chp_testfile_00004.wav
skrynesaver@busybox:~/test$ ls | perl -e 'while(<>){($base,$ext)=$_=~/^(chp_testfile_\d+)_(\d+).lab$/ if (/\.lab$/);rename("$base.wav", "${base}_$ext.wav") if (-e "$base.wav");}'
skrynesaver@busybox:~/test$ ls
chp_testfile_00001_0.lab  chp_testfile_00002_1.lab  chp_testfile_00003_1.lab  chp_testfile_00004_0.lab
chp_testfile_00001_0.wav  chp_testfile_00002_1.wav  chp_testfile_00003_1.wav  chp_testfile_00004_0.wav

for f in *lab; do
  [ -f "${f%.*}".wav ] || {
    set -- ${f%${f#??????????????????}}*wav
    [ -f "$1" ] && mv -- "$1" "${f%.*}".wav
    }
done

_audio_dir=../wavs/audio/

for f in *lab; do
  [ -f "$_audio_dir/${f%.*}".wav ] || {
    set -- "$_audio_dir/${f%${f#??????????????????}}"*wav
    [ -f "$1" ] && mv -- "$1" "$_audio_dir/${f%.*}".wav
    }
done

_audio_dir=../wavs/audio/

ls -l ../wavs/audio/