rem Usage: flac2ogg quality (like 0, or 6.25) input file name

@echo off

flac.exe -s -d -c %2 | oggenc.exe -q %1 - -o %2.ogg

#!/usr/bin/perl -w
#
# quick&dirty.
# convert flac's in specified directory to mpp(mpc).
# rodney "meff" gordon ii.
#
# sat9feb 7.01pm 2002
#

use strict;

if(!defined($ARGV[0]) || !defined($ARGV[1])) {
       print "not enough arguments.n";
       print "runopts: ./thisexec srcdir dstdirnnsucks from src and spits into dst.n";
       exit;
}

my @flacs;

# set this to a dir with lots of space (holds uncompressed wavs)
my $tmpDir = '/home/meff/tmp/';

my $srcDir = $ARGV[0];
my $dstDir = $ARGV[1];

# sanity checks
unless(-d $srcDir && -d $dstDir) {
       print "either src or dst dir does not exist.n";
       exit;
}

# read in the files, sort out the flacs
opendir(DIR, $srcDir);
my @dirRead = readdir(DIR);
closedir(DIR);
foreach(@dirRead) {
       if($_ =~ m/.flac$/) {
               push(@flacs, $_);
       }
}


##
## CORE
##

# main loop
foreach(@flacs) {
       ConvertToMpp($_);
}
exit;


sub ConvertToMpp {
       my $flac = shift;

       # generate the names
       my $flacWav = $flac;
       my $flacMpp = $flac;
       $flacWav =~ s/.flac/.wav/;
       $flacMpp =~ s/.flac/.mpc/;

       print "converting $srcDir/$flac to $tmpDir/$flacWav" . "...n";
       system("flac -d -o "$tmpDir/$flacWav" "$srcDir/$flac"");
       print "n";

       print "encoding $tmpDir/$flacWav to $dstDir/$flacMpp" . "...n";
       system("mppenc --xtreme "$tmpDir/$flacWav" "$dstDir/$flacMpp"");
       print "n";

       print "cleaning up...n";
       system("rm "$tmpDir/$flacWav"");
       print "n";

       print "$srcDir/$flac conversion to $dstDir/$flacMpp complete.n";
}

#!/usr/bin/perl



# flac2ogg Version 0.2

# Copyright (C) 2002 Dezibel <dezibel@email.com>





my $flac = "flac";         # replace with 'C:Programmeflac.exe' for windows

my $encoder = "oggenc";    # replace with 'C:Programmeoggenc.exe' for windows

my $comline = "-q6";       # replace with your commandline





if($ARGV[0] eq '') { die "nno path given! try "flac2ogg <path>"nn"; }



chdir("$ARGV[0]") or die "ncan't change to $ARGV[0]!nn";

@flacs = glob("*.flac");



foreach(@flacs) {

   @name = split /./, $_;

   rename("$_", "tmp.flac");

   system("$flac -d tmp.flac");

   rename("tmp.flac", "$_");

   system("$encoder $comline tmp.wav");

   unlink("tmp.wav");

   rename("tmp.ogg", "$name[0].ogg");

}



print "nall jobs done!nn";