App-get_flash_videos

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/FlashVideo/Site/Ted.pm
lib/FlashVideo/Site/Theonion.pm
lib/FlashVideo/Site/Todaysbigthing.pm
lib/FlashVideo/Site/Tou.pm
lib/FlashVideo/Site/Traileraddict.pm
lib/FlashVideo/Site/Truveo.pm
lib/FlashVideo/Site/Tudou.pm
lib/FlashVideo/Site/Tva.pm
lib/FlashVideo/Site/Ustream.pm
lib/FlashVideo/Site/Videojug.pm
lib/FlashVideo/Site/Videolectures.pm
lib/FlashVideo/Site/Vimeo.pm
lib/FlashVideo/Site/Wat.pm
lib/FlashVideo/Site/Xhamster.pm
lib/FlashVideo/Site/Xnxx.pm
lib/FlashVideo/Site/Xvideos.pm
lib/FlashVideo/Site/Youku.pm
lib/FlashVideo/Site/Youtube.pm
lib/FlashVideo/Site/Youtubenocookie.pm
lib/FlashVideo/URLFinder.pm
lib/FlashVideo/Utils.pm

lib/FlashVideo/Site/Megavideo.pm  view on Meta::CPAN

  # Get the video ID
  my $v;
  if ($browser->content =~ /\.v\s*=\s*['"]([^"']+)/
      || $browser->uri =~ /v=([^&]+)/
      || $browser->response->header("Location") =~ /v=([^&]+)/) {
    $v = $1;
  } else {
    die "Couldn't extract video ID from page";
  }

  my $xml = "http://www.$site/xml/videolink.php?v=$v";
  $browser->get($xml);

  die "Unable to get video infomation" unless $browser->response->is_success;

  my $k1 = ($browser->content =~ /k1="(\d+)/)[0];
  my $k2 = ($browser->content =~ /k2="(\d+)/)[0];
  my $un = ($browser->content =~ /un="([^"]+)/)[0];
  my $s  = ($browser->content =~ /\ss="(\d+)/)[0];

  my $title = uri_unescape(($browser->content =~ /title="([^"]+)/)[0]);

lib/FlashVideo/Site/Videolectures.pm  view on Meta::CPAN

# Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Videolectures;

use strict;
use FlashVideo::Utils;

sub find_video {
  my ($self, $browser) = @_;

  my $author = ($browser->content =~ /author:\s*<a [^>]+>([^<]+)/s)[0];
  my $title  = ($browser->content =~ /<h2>([^<]+)/)[0];

lib/FlashVideo/Utils.pm  view on Meta::CPAN

    decode_entities($sub); # in void context, this works in place

    if ($sub and ($begin or $begin == 0)) {
      # Convert milliseconds into HH:MM:ss,mmm format
      my $seconds = int( $begin / 1000.0 );
      my $ms = $begin - ( $seconds * 1000.0 );
      $begin = sprintf("%02d:%02d:%02d,%03d", (gmtime($seconds))[2,1,0], $ms );

      # Don't strip simple HTML like <i></i> - VLC and other players
      # support basic subtitle styling, see:
      # http://git.videolan.org/?p=vlc.git;a=blob;f=modules/codec/subtitles/subsdec.c

      # Leading/trailing spaces
      $sub =~ s/^\s*(.*?)\s*$/$1/;

      # strip multispaces
      $sub =~ s/\s{2,}/ /g;

      # Replace <br /> (and similar) with \n. VLC handles \n in SubRip files
      # fine. For <br> it is case and slash sensitive.
      $sub =~ s|<br ?\/? ?>|\n|ig;

t/urls  view on Meta::CPAN

# BBC
http://news.bbc.co.uk/1/hi/sci/tech/7983975.stm

# Sevenload
http://en.sevenload.com/videos/EFnVmoD-adas

# Muzu
http://www.muzu.tv/colonopenbracket/square-eyes-music-video/179658

# Videolectures
http://videolectures.net/mlss07_scholkopf_inter/

# Dailymotion
http://www.dailymotion.com/user/EESB/video/x8v46x_bsb_creation

# Collegehumor
http://www.collegehumor.com/web-celeb-hall-of-fame/star-wars-kid

# Today's big thing
http://www.todaysbigthing.com/2009/04/02