R.t.t.P - text only >> forum>> id=70238"e=1267019&ruser=the

.:.:.:.:RTTP.Mobile:.:.:.:.
[<--back] [Home][Pics][News][Ads][Events][Forum][Band][Search]
full forum | bottom

jump pages:[all|1|2]

jump pages:[all|1|2]

Reply
[login ]
SPAM Filter: re-type this

(values are 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E, or F)
you are quoting a heck of a lot there.
[QUOTE]blah blah blah[/QUOTE] to reply to the_reverend.
Please remove excess text as not to re-post tons
message

[QUOTE="the_reverend:1267019"]ok, jet sucked if you didn't know. DBpoweramp all the way.  One problem is that itunes doesn't support flac. So I wrote this little script to have both FLAC and MP3 files.  This will look for FLAC files and then generate a .mp3
I'm going to use this on my .wma, etc... to that clutter up my .mp3 directories.

#!/usr/bin/perl
use strict;
use warnings;
use Cwd;

my $convertLocation = "C:/Program Files (x86)/Illustrate/dBpoweramp/CoreConverter.exe";
my $location = getcwd;  #root directory
my $n = 0;
readsub($location);
print "Found $n file(s)!\n";   #print the total number of files you found
exit;

sub readsub {
  my ($file_t) = @_;
  if (-f $file_t) {                  #if its a file
     $n++;                           #the total number of files
     print $file_t."\n";
     #if ends with .flac, look for .mp3. If no .mp3, create
     #if ends with .wma,  look for .mp3. If no .mp3, create
     #if ends with .mpa,  look for .mp3. If no .mp3, create
     if($file_t =~ m/\.flac$/)
     {
  	 	print "Converting:".$file_t,"\n";
  	 	my $outfilename = $file_t;
  	 	$outfilename =~ s/\.flac$/\.mp3/g;
  	 	if (-e $outfilename)
  	 	{
  	 		print "Already Exists:".$outfilename,"\n";
  	 	}
  	 	else
  	 	{
     		system ("\"$convertLocation\" -infile=\"$file_t\" -outfile=\"$outfilename\" -convert_to=\"mp3 (Lame)\" -V 2") or print STDERR "couldn't exec foo: $!";
  	 	}
  	 }
  	 else
  	 {
  	 	print "Skipping:".$file_t,"\n";
  	 }
  } 
  if (-d $file_t) {                  #if its a directory
     opendir(AA,$file_t) || return;
     my @list = readdir(AA);
     closedir (AA);
     my $file_to_act;
     foreach $file_to_act (sort @list) {
       if ($file_to_act =~ /^\.|\.$/) { next; }
       else { readsub("$file_t/$file_to_act"); }
     }
  }
}
 
 
[/QUOTE]

top [Vers. 0.12][ 0.004 secs/8 queries][refresh][