get Youtube Info

test_youtubeinfo.pl

#!/usr/bin/env perl

use strict;
use warnings;
use URI::Escape;
use LWP::Simple;
use Data::Dumper;

my $id = shift || die "Usage: $0 [video_id]";

my $dt = get_info($id);
die 'error:'. uri_unescape($dt->{reason}) if $dt->{status} eq 'fail';

my $title = uri_unescape($dt->{title});
$title =~ s/\+/ /g;
print $title;


sub get_info {
  my $video_id = shift;
  my $uri = "http://youtube.com/get_video_info?video_id=$video_id";
  my $data = get($uri);
  
  my %hash = ();
  my @dt = split(/&/, $data);
  for (@dt) {
    my($k, $v) = split(/=/, $_);
    $hash{$k} = $v;
  }
  return \%hash;
}