ToxicCode =Home= / =Config Files= / =Shell Scripts= / =Articles= / =Text Files= / =Misc= /
Register | Login | Submit new shell script#! /usr/bin/env perl
#Originally by catwell from http://bbs.archlinux.org/viewtopic.php?id=56646
#change the bitrate of MP3 files.
###
use File::Find;
sub wanted {
if (/.mp3$/)
{
($n) = /(.*).mp3$/ ;
system('lame',"-b 64",$_,"$n"."_64.mp3","-S")
}
}
find(\&wanted, ".");