Работа для тех кто зарабатывает на файлах

Готов взяться

ну так и где стук? Я что аську просто так указал?

Zlobus добавил 27.09.2010 в 11:32

Тек, ну человек откликнулся, посмотрим как будет вестись работа, по этому пока не актуально уже.

Имхо, проще написать простой скриптик, который это будет делать в автоматическом режиме

полностью согласен, можно написать скрипт и загружать из сервера...

например:

поиск картинок (или посик видео, или другого)

#!/usr/bin/perl



use HTML::LinkExtor;

use LWP::Simple;



#for ($a=35900; $a<35995; $a++) {

$base_url = "http://trinixy.ru/2008/07/03/luchshie_shtukgrafii_nasa_50_shtuk.html";

#$base_url = shift;

$parser = HTML::LinkExtor->new(undef, $base_url);

$parser->parse(get($base_url))->eof;

@links = $parser->links;

foreach $linkarray (@links) {

    my @element  = @$linkarray;

    my $elt_type = shift @element;

       while (@element) {   

 my ($attr_name , $attr_value) = splice(@element, 0, 2);

     $seen{$attr_value}++;

  }

}



#}



%hhh = grep { /\.jpg/i } %seen;



for ( keys %hhh) { 



  next if ($_ !~ /nasa/); ## || $_ =~ /th/);



print $_, "\n";



 system("wget $_");



}

скрипт загрузки на файловый архив

#!/usr/bin/perl

#use strict;

use warnings;

use LWP::UserAgent;

use HTTP::Request::Common;

use HTTP::Cookies;

use LWP;









my $ua = LWP::UserAgent->new(agent=>'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)',timeout=>'120',keep_alive =>'7');

$ua->default_headers->push_header('Accept-Language' => "no, en");

my $cookie_jar = HTTP::Cookies ->new(file => 'cookies.txt',autosave => 1,

ignore_discard=>1 #важно !!!

, );

$ua ->cookie_jar($cookie_jar);

my ($url,$response);

my $login='usename';

my $pass = 'userpass';

my $domen='http://www.x0.org.ua';

$url = 'http://www.x0.org.ua/login';

$response=$ua->request(POST $url,

{ username => $login,

password => $pass,

});







$cookie_jar->extract_cookies($response);

$cookie_jar->save('cookies.txt');

my $hdrs=HTTP::Headers->new('Accept'=>'text/plain','UserAgent'=>'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');

my $reqG=HTTP::Request->new('GET',$domen,$hdrs);



$cookie_jar->add_cookie_header($reqG);

$response=$ua->request($reqG);

print "Content-type: text/html\n\n";



$form_submit='yes';



opendir(TEMPDIR, '/usr/home2/di/Desktop/x0i/erobot') ||

     die "bla-bla /tmp: $!";

@files=readdir TEMPDIR;

closedir(TEMPDIR);





@files = sort @files;

 

for ($index=0; $index<@files; $index++) 

{



$file = "/usr/home2/di/Desktop/x0i/erobot/$files[$index]";







my $req = POST "http://www.x0.org.ua/photo/add/63",

Content_Type => 'form-data',

Content      => [
         form_submit => "yes",

   field => [$file],

                ];

$response=$ua->request($req);







}