::Albertux::Blog::

#!/usr/bin/perl
use LWP::Simple;
print "YouTube++ (URL's to MP3's) By Albertux\n[http://albertux.ayalasoft.com]\n";
 
$total = @ARGV;
 
if ($total==0) {
 
	print "\nExample: ~\$ youtube\+\+ url1 url2 url3 ...\n";
 
} else {
 
	foreach(@ARGV) {
 
		$URL = $_;
		$aux = index($URL,"?v=");
		$a = substr $URL,$aux+3,11;
		$content = get($URL);
		@lines = split("\n",$content);
 
		foreach(@lines) {
			my $aux = index($_,"&t=");
			if ($aux > -1) { 
				$t = substr $_, $aux+3,32;
			}
		}
		system "wget -c -O \"$a.flv\" \"http://youtube.com/get_video?video_id=$a&t=$t\"";
		system "ffmpeg -i \"$a.flv\" -ab 128k \"$a.mp3\"";
	}
}
print "\nFeedback to: <albertoi7\@gmail.com>\n";

// Script: YouTubeVideo Version 1.0 (2008/07/22)
// Author: Alberto Isaac Ayala Esquivias (Albertux)
// Licence: http://creativecommons.org/licenses/by-nc-sa/3.0/
// FeedBack to: albertoi7@gmail.com
// About: Insert youtube video on a div doesn't matter if embed code is disable this script insert the video.
 
function YouTubeVideo(id,url) {
 
	var video_html ='<object width="425" height="344"><param name="movie" value="http://www.youtube.com/swf/l.swf?video_id=VIDEO&rel=1&iurl=null&autoplay=1"></param><param name="allowFullScreen" value="true"></param><embed src="http://www.youtube.com/swf/l.swf?video_id=VIDEO&rel=1&iurl=null&autoplay=1" type="application/x-shockwave-flash" allowfullscreen="true" width="425" height="344"></embed></object>';
 
	var n = url.indexOf('v=');
 
	var id_video = url.substring(n+2,n+14);
 
	document.getElementById(id).innerHTML=video_html.replace(/VIDEO/g, id_video);
 
}

#!/usr/bin/perl
use LWP::Simple;
print "\nYouTube URL to MP3 Beta By Albertux [2008-08-04]\n";
print "[http://albertux.ayalasoft.com/2008/08/04/youtube-url2mp3-perl/]\n\n";
$total= @ARGV;
if ($total < 2) {
	print "Use: \$perl url2mp3.pl url_video name_video\n\n";
}
else {
	$URL=$ARGV[0];
	$VNAME=$ARGV[1];
	$aux=index($URL,"?v=");
	$a = substr $URL,$aux+3,11;
	$content = get($URL);
	@lines = split("\n",$content);
	foreach(@lines) {
		my $aux=index($_,"&t=");
		if ($aux > -1) {
			$t= substr $_, $aux+3,32;
		}
	}
	system "wget -c -O \"$VNAME.flv\" \"http://youtube.com/get_video?video_id=$a&t=$t\"";
	system "ffmpeg -i \"$VNAME.flv\" -ab 128k \"$VNAME.mp3\""; }
print "url2mp3.pl feedback to <albertoi7\@gmail.com>\n\n";