VPF::Помогите переделать код - Форум программистов

BlindBandiit

Дата 18.5.2013, 07:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 23.8.2009

Репутация: нет
Всего: нет

Пожалуйста помогите пожалуйста переделать код хочу вместо threads::shared; использовать Thread::Queue
но самому осилить по докам тямы не хватает на своем примере точно все пойму пожалйсата

Код


#!/usr/bin/perl -w
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;
use threads;
use threads::shared;


my @Mass:shared;
my @Proxy:shared;

open(FILE, '<file1.txt') or die("Ошибка... $!");

            $i=0;
            while (<FILE>) {
                   
                $Mass[$i] = $_;
                    chomp($Mass[$i]);
                $i++;
}
close FILE;

open(FIL, '<proxy.txt') or die("Ошибка!!!!$!");

    
    while (<FIL>) {
                   
                @Proxy =<FIL> ;
                     
   } 
close FIL;   
  
$size=@Mass;             
             
         
for ($i=0; $i<$size; $i++) {




$threads=20;

for(0..$threads) {
    $trl[$_] = threads->create(\&getAvrto, $_);
}
for(@trl) {
     $_->join;
     
 }
 
 
} 

sub getAvrto {
    



     
 
for($i=0; $i<@Mass; $i++) {
    

   
   
my $num=shift;
  print "+ Thread ".''.'$num'.''." started.\n";
 $line = shift @Mass;
($login, $password) = split /:/, $line;


 

 
            
$prox = shift(@Proxy);
chomp $prox;
push(@Proxy, $prox);
                 

print "$prox";     
$ua = LWP::UserAgent->new;

$proxy_addr = "$prox"; 
$ua->proxy(['http']=>"http://".$proxy_addr."/");
 
$cookie_jar = HTTP::Cookies->new();
$ua->cookie_jar($cookie_jar);


$url = 'http://'.$login.'.site.ru/login';
$url1 = 'http://'.$login.'.site.ru/';

$req = POST $url,
    agent => ("Mozilla/5.0 (Windows NT 5.1; rv:19.0) Gecko/20100101 Firefox/19.0"),
    Referer => 'site.ru',
    Content_Type=>'application/x-www-form-urlencoded',
    Content=> 
    ['login'=>"$login",
    'password'=>"$password",
    'authorize.x'=>'29',
    'authorize.y'=>'8'
    ];

arto

Дата 18.5.2013, 07:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

у вас слишком много ошибок:

Global symbol "$i" requires explicit package name at - line 11.
Global symbol "$i" requires explicit package name at - line 14.
Global symbol "$i" requires explicit package name at - line 15.
Global symbol "$i" requires explicit package name at - line 16.
Global symbol "$size" requires explicit package name at - line 28.
Global symbol "$i" requires explicit package name at - line 31.
Global symbol "$i" requires explicit package name at - line 31.
Global symbol "$size" requires explicit package name at - line 31.
Global symbol "$i" requires explicit package name at - line 31.
Global symbol "$threads" requires explicit package name at - line 32.
Global symbol "$threads" requires explicit package name at - line 33.
Global symbol "@trl" requires explicit package name at - line 34.
Global symbol "@trl" requires explicit package name at - line 36.
Global symbol "$i" requires explicit package name at - line 47.
Global symbol "$i" requires explicit package name at - line 47.
Global symbol "$i" requires explicit package name at - line 47.
Global symbol "$line" requires explicit package name at - line 53.
Global symbol "$login" requires explicit package name at - line 54.
Global symbol "$password" requires explicit package name at - line 54.
Global symbol "$line" requires explicit package name at - line 54.
Global symbol "$prox" requires explicit package name at - line 58.
Global symbol "$prox" requires explicit package name at - line 59.
Global symbol "$prox" requires explicit package name at - line 60.
Global symbol "$prox" requires explicit package name at - line 62.
Global symbol "$ua" requires explicit package name at - line 63.
Global symbol "$proxy_addr" requires explicit package name at - line 64.
Global symbol "$prox" requires explicit package name at - line 64.
Global symbol "$ua" requires explicit package name at - line 65.
Global symbol "$proxy_addr" requires explicit package name at - line 65.
Global symbol "$cookie_jar" requires explicit package name at - line 67.
Global symbol "$ua" requires explicit package name at - line 68.
Global symbol "$cookie_jar" requires explicit package name at - line 68.
Global symbol "$url" requires explicit package name at - line 69.
Global symbol "$login" requires explicit package name at - line 69.
Global symbol "$url1" requires explicit package name at - line 70.
Global symbol "$login" requires explicit package name at - line 70.
Global symbol "$req" requires explicit package name at - line 71.
Global symbol "$url" requires explicit package name at - line 71.
Global symbol "$login" requires explicit package name at - line 76.
Global symbol "$password" requires explicit package name at - line 77.
Missing right curly or square bracket at - line 80, at end of line
- has too many errors.

BlindBandiit

Дата 18.5.2013, 09:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 23.8.2009

Репутация: нет
Всего: нет

потому что это не полная часть кода это отрывок и именно в нем надо использовать потоки

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »