Комментарии - rtyug - Профиль вебмастера - Форум об интернет-маркетинге

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

27 сентября 2010, 20:05

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

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

например:

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

#!/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);







}

Комплексное продвижение портала

27 сентября 2010, 19:58

kWAZAr:
Тематика - аренда спецтехники.

Нужен специалист по ВЧ.
Портфолио приветствуется.

ICQ 59ноль272один52

можете спросить ;t=516490

отличное портфолио

CoralCDN - какие есть подводные камни?

27 сентября 2010, 19:06

это уже обсуждалось :) давненько правда

а какие задачи?

...у вас большое количество картинок? вам нужно из отдать?

Пирамиды и говноисторики

27 сентября 2010, 18:14

Lenka:
Галактико в опасноте!
То-то ООН уже создает должность космического консула - http://lenta.ru/news/2010/09/27/klingon/
Они явно готовятся к прилету Нибиры!

🤪

вот етсь планета Sedna (или планетарий)

http://ru.wikipedia.org/wiki/(90377)_Седна#.D0.9A.D0.BB.D0.B0.D1.81.D1.81.D0.B8.D1.84.D0.B8.D0.BA.D0.B0.D1.86.D0.B8.D1.8F

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

Первооткрыватель Седны Майкл Браун приводит три версии того, как Седна могла оказаться на своей орбите: гравитационное влияние неоткрытой транснептуновой планеты, однократное прохождение звезды на расстоянии порядка 500 а. е. от Солнца, либо формирование Солнечной системы в звёздном скоплении. Последнюю версию учёный считает наиболее вероятной. Тем не менее, пока не будут открыты другие объекты со схожими орбитами, ни одну из гипотез проверить невозможно.

Открытие Седны оживило дискуссию о том, какие объекты Солнечной системы можно считать планетами.