i wrote a little script in TCL earlier to rip the audio from youtube urls directly to mp3 files.
i thought someone might find it useful so here you go. if this is the wrong place to post it, please move it to the right one.
depends on:
tcl
tclcurl (tcl bindings for libcurl)
clive (a youtube video ripper)
mplayer (media player, no need for gui)
lame (an mp3 encoder)
and the "nice" and "file" commands found on most unix systems
example use:
Code:
robot@mothership:~$ ./youtube http://www.youtube.com/watch?v=G-PQbdmQRwc
/tmp/1239755798ytmp3/Stan_Rogers_Barrett's_Privateers.mp3
MPEG ADTS, layer III, v2, 64 kBits, 22.05 kHz, JntStereo
the output could be used by another process to find the file and send it to someone/thing automatically (and delete it afterwards). i was thinking of making a web interface to it for example.
here's the (very basic) code; i think it could do with a few more safety measures in generating the filename:
Code:
#!/usr/bin/tclsh
package require TclCurl
set path "/tmp"
set folder "[clock seconds]ytmp3" ;# give output folder a unique name
set path "$path/$folder" ;# output folder
set nice "/usr/bin/nice" ;# path to nice binary
set niceN 19 ;# nice level. 19 is lowest, -20 is highest -- use with caution
set clive "/usr/bin/clive" ;# path to clive binary
set mplayer "/usr/bin/mplayer" ;# path to mplayer binary
set lame "/usr/bin/lame" ;# path to lame binary
global nice; global niceN; global clive; global mplayer; global lame; global path
proc title {url} { ;# get title of youtube page for filename
set handle [curl::init]
$handle configure -url $url -bodyvar url
$handle perform
$handle cleanup
regsub -all "<title>" $url ` url
regsub -all "</title>" $url ` url
set url [split $url `]
set url [lindex $url 1]
set url [string replace $url 0 9]
regsub -all " " $url "_" url
regsub -all "&" $url "and" url
regsub -all \\\( $url "" url
regsub -all \\\) $url "" url
return $url
}
proc ytmp3 {url} { ;# do the work
global nice; global niceN; global clive; global mplayer; global lame; global path
set title [title $url]
file mkdir $path
cd $path
exec $nice -n $niceN $clive -q --format=flv -O $title.flv $url
catch {exec $nice -n $niceN $mplayer -really-quiet -novideo -ao pcm:file=$title.wav $title.flv} ;# mplayer occasionally gives non fatal errors which break the script
file delete $title.flv
exec $nice -n $niceN $lame -S $title.wav $title.mp3
file delete $title.wav
puts $path/$title.mp3
#puts [exec /usr/bin/file -b $path/$title.mp3] ;# this is optional
}
ytmp3 $argv
you could probably write this just as easily in bash, but i dont know much bash.
hope someone finds this useful
