downloadut02.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:31 2010 from downloadut02.pl 2008/07/17 3.4 KB.

#!/perl -w
# NAME: downloadut02.pl
# AIM: To download a YouTube video 
# NOTE: THIS NO LONGER WORKS DUE TO MANY CHANGES IN THE YOUTUBE CONTENTS PAGE!!!
use strict;
use warnings;
use LWP::Simple;
use LWP::UserAgent;
require 'logfile.pl' or die "Unable to load logfile.pl ...\n";
# log file stuff
my ($LF);
my $pgmname = $0;
if ($pgmname =~ /\w{1}:\\.*/) {
    my @tmpsp = split(/\\/,$pgmname);
    $pgmname = $tmpsp[-1];
}
my $outfile = "temp.$pgmname.txt";
open_log($outfile);
###prt( "$0 ... Hello, World ...\n" );
my $filename = '';
my $getname = '';
# shamelessly reversed engineered from a python script :-) 
prt( "starting first page retrieval\n" );
my $urlin  = shift || "http://youtube.com/watch?v=EkTpUxh8Vxc";
my $content = get( $urlin  ) or die "$!\n"; 
prt( "done first page retrieval\n" );
my @tlines = ();
my $line = '';
prt( "===================================================================\n" );
write2file( $content, "temputraw.txt" );
my @lines = split(/\n/,$content);
foreach $line (@lines) {
    chomp $line;
    $line = trim_all($line);
    push(@tlines,$line) if length($line);
    if ($line =~ /\.swf/i) {
        prt( "$line\n" );
    }
}
prt( "\n===================================================================\n" );
write2file( join("\n",@tlines), 'temput.txt' );
# regex for 2 key text strings which identify the video file
# the second one $2 is unique for each download attempt
$content =~ /player2\.swf\?video_id=([^&]+)&.*t=([^&]+)&/ ;
if ($1 && length(%1)) {
    $filename = $1;
}
if ($2 && length($2)) {
    $getname = $2;
}
print $filename, "\n" , $getname, "\n";  
my $infile = $filename.'.flv';  #add a .flv extension
if (length($filename) == 0) {
    print "FAILED to get video file name ...\n";
    exit(0);
}
prt( "Out to file $infile ...\n" );
#http://www.youtube.com/get_video?video_id=p_YMigZmUuk&t=OEgsToPDskLRl9-iKyfQVcNT8xes2OIT
my $get_url = 'http://www.youtube.com/get_video?video_id='.$filename.'&t='.$getname;
prt( "gettin video file $get_url\n" );
# don't buffer the prints to make the status update
$| = 1;
open(IN,"> $infile") or mydie( "FAILED to create $infile ... $_ ...\n" ); 
binmode(IN);
my $ua = LWP::UserAgent->new();
my $received_size = 0;
my $url = $get_url;
prt( "Fetching $url\n" );
my $request_time = time;
my $last_update = 0;
my $response = $ua->get($url,
                        ':content_cb'     => \&callback,
                        ':read_size_hint' => 8192,
                       );
prt( "\n" );
close IN;
#play the flv file with mplayer
system( "mplayer $infile" );
close_log($outfile,1);
exit(0);
###################################################################
sub callback {
  my ($data, $response, $protocol) = @_;
  my $total_size = $response->header('Content-Length') || 0;
  $received_size += length $data;
  # write the $data to a filehandle or whatever should happen
  # with it here.
  print IN $data;
  my $time_now = time;
  # this to make the status only update once per second.
  return unless $time_now > $last_update or $received_size == $total_size;
  $last_update = $time_now;
  prt( "\rReceived $received_size bytes" );
  prt( printf " (%i%%)", (100/$total_size)*$received_size ) if $total_size;
  prt( printf " %6.1f/bps", $received_size/(($time_now-$request_time)||1) ) if $received_size;
}
# eof - downloadut02.pl

index -|- top

checked by tidy  Valid HTML 4.01 Transitional