Что-то я очень-очень плохо понял нафиг оно вообще нужно? Нужно выписывать теорию? Сомневаюсь. Это вообще убило.. Типо Perl за одну статью?! Написал бы ещё про биографию ларри и историю создания пёрла. =/ Зачем переписывать теорию и мануалы? не проще дать ли на них ссылки в соответствующем разделе? Стало даже смешно, когда ты с усердием описываешь приватные переменные и в твоих подключаемых модулях нет use strict... Впринципе, можно было ограничить всё, что запостено начальными ссылками и ссылкой на какой-нить брут. Считаю, что данное нужно переместить как максимум в кодинг, т.к. люди, только что-то научившиеся кодить, не напишут ничего дельного по этому поводу... [+] 70% что здесь есть уже давно лежит в учебниках по пёрлу.
doc по tk намного лудше - ты серавно далеко не все элементы описал описывать каждую команду скрипта и назвать это статьей тоже лажово что касается многопоточности с гуем - прикольно конечно но ты, хоть бы как то завершал потоки а то они создадутся будут работать и останутся висеть в оперативе пока не закроешь софт - а если много потоков то много оперативы будут есть - нажмешь пару раз на старт и вся оператива зафукана(1 поток прим 2 метра) кста консольная полюбому будет быстрее работать в общем есть еще много над чем поработать - но для первого скрипта на perl сойдет
Code: my $url : shared; $url = 'http://vip-file.com/download/ae25b2336179/asdwqerfawdq3d.htm.html'; .... my $cp : shared; $cp = 0; Выглядит не эстетично =\ Code: my $url : shared = 'http://vip-file.com/download/ae25b2336179/asdwqerfawdq3d.htm.html'; .... my $cp : shared = 0; Code: sub get_content() { $ua = LWP::UserAgent->new(); $request = HTTP::Request->new(GET => $_[0]); ....... } # Подпрограммы ..... sub имя (прототипы) блок; - То же, но с параметрами. Круто а где же эти прототипы ? Code: sub get_content( $ ) { $ua = new LWP::UserAgent; $request = HTTP::Request->new(GET => $_[0]); ....... } Code: &error("Cant open good.txt\r\n$_[0]"); Perl 4 Tutorial ? if(open(LogFile, ">>good.txt")) - Открываем файл good.txt для записи сбрученных паролей, если открыть не вышло (ужос), то выводим мессагу и выходим, LogFile - дескриптор файла. if (!print LogFile $_[0], "\n") - Записываем в файл сбрученный пароль, если не вышло - выходим сами)) close(LogFile); - Закрываем дескриптор файла. >> - режим дописывание к существующему файлу существуют логические операторы которые в этом контексте уместны ( ||,or ) + есть оператор unless Функция выдирания uid, name и fid из рипнутого кода, который лежит в $text. Code: sub content2hv() { $start = index($text, 'name="uid" value="'); if ($start == -1) { .... } регулярные выражения мощь этого языка , жаль что автор об этом не знает . целиком согласен с Chuck . Статья является кашей из манов , автор имеет скудное представление о языке .
