codepad

Language:

#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;
use WWW::YourFileHost;
my $argv_size = @ARGV;
if ( $argv_size == 0 )
{
	print "usage: perl dl_yourfilehost.pl [url_file] <[0|1]>\n";
	print "[url_file] : text file which has yourfilkehost url list\n";
	print "<[0|1]> : 0:id as filename 1:title as filename\n";
	exit;
}
my @list         = ();
my $url_filename = $ARGV[0];
open( IN, "$url_filename" )
  || die "cannot open file $url_filename\n";
@list = <IN>;
close(IN);
while (@list)
{
	my $url      = pop(@list);
	my $ua       = LWP::UserAgent->new( agent => "WWW::YourFileHost" );
	my $response = WWW::YourFileHost->new( url => $url, ua => $ua );
	my $video_id = $response->video_id;
	my $id       = $response->id;
	my $filename = $id;
	if ( $argv_size == 1
		 || ( ( $argv_size > 2 ) && ( $ARGV[1] eq '1' ) ) )
	{

if ( $url =~
m/http:\/\/www\.yourfilehost\.com\/media\.php\?cat=video&file=(.+?)\.wmv/i
		  )
		{
			$filename = $1;
		}
	}
	$ua->get( $video_id, ":content_file" => $filename . ".flv" );
	warn "filename:" . $filename . "\n";
}

Private [?]

Run code