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

На хакер.ру есть такой скрипт для поиска потенциально уязвимых машин с включенным Rdp.
Вот он

Code:

var ie = new ActiveXObject("InternetExplorer.Application");

ie.Visible = false;

for (var c_index = 0; c_index < 10; c_index++) {

ie.Navigate("http://www.google.com/search?q=intitle:Remote.Desktop.Web.Connection%20inurl:tsweb&num=100&start=" + c_index*10 + "&hl=en");

while (ie.busy) { WScript.Sleep(100) }

var lnk = "";

for (var i = 0; i < ie.document.links.length; i++) {

lnk = ie.document.links[i].href; 

if (lnk.indexOf("google") == -1)

{

if (lnk.indexOf("cache:") == -1) {

WScript.Echo(lnk);

}

}

}

}

ie.Quit();

Только либо он у меня не работает, либо до меня не допетрило как его применить.
Помогите

 

GAVVVR, напиши в скрипте первой строкой

Code:

#!/usr/bin/perl

 

да эт воще не перл)

 

Яваскипт эт вроде как ))

 

Угу. яваскрипт. мне тоже так кажется. Только как его применить. Я его уже и сохранял как .js и между тегами <script> вставлял. Не получается чего то. Как мне его применить?

 

кста связка php с perl - очень охеренная - если знаешь два языка можно такие фишки бомбить --- perl круче и функциональнее - но и в php есть свои фишки + он под веб заточен на 100%

 

wsh

 

Ачатовцы, помогите плиз:
у меня такая фигня написал такой скрипт:
#!/usr/bin/perl

print "Hello, world!\n";

как мне его открыть через командную строку?
что нужно прописывать чтоб он открылся?
ЗЫ: Актив перл установлен, как заходить в cmd знаю!

 

c:\perl\bin\perl.exe [путь скрипта]

 

у меня не получается что-то...

 

perl путь_к_скрипту

 

MaTpOc, невероятно сложно, да?

 

Где можно взять хороший док (желательно на русском)по формированию пакетов raw socket в perl хотябы основные протоколы.

 

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

HTML:

<div><h2>Друзья <span>(102)</span>

нужно выдрать из шаблона количество друзей, подскажите как правильно сделать, в перле первый день

Code:

my $fri = $1 if $req=~m/<div><h2>Друзья <span>([COLOR=Lime][B]количество друзей[/B][/COLOR])</;

 

шикарно, пасибо
можешь, пожалуйста, объяснить значение обратных слешей тут: \((\d+)\)?
первый и последний, как я понял, относятся к скобке и означают, что скобки относятся к коду из шаблона, а средний зачем?

 

помогите со скриптиком
есть файл 1.txt вида
Юля
Паша
Маша

загоняю их в массив
open (FILE , '<clients.txt');
my @f = <FILE>;

далее мне надо для каждого клиента сдлеать запрос вида http://site/scritp.pl?name=имя клиента

что лучше использовать foreach (@f) или while(@f) ?

 

Code:

open my $FILE, '<', clients.txt or die "Open error: $!\n";
my @f = <$FILE>;
close $FILE;
foreach $name(@f) {...}

или

Code:

open my $FILE, '<', clients.txt or die "Open error: $!\n";
while (<$FILE>) {...}
close $FILE;

без разницы, как хочешь. Второй вариант предпочтительнее

 

Спс за помощь появилась еще одна поблема теперь скрипт сохраняет инфу в файл не в той кодировке (

и еще надо както обрезать первые 9 строк чтоб не выводились ))

 

http://www.perlmonks.org/?node_id=390075
http://www.uni-giessen.de/faq/archiv/internet.tcp-ip.raw-ip-faq/msg00000.html
http://search.cpan.org/~szabgab/Net-RawIP-0.23/lib/Net/RawIP.pm
http://dag.wieers.com/rpm/packages/perl-Net-RawIP/
http://www.ic.al.lg.ua/~ksv/
http://www.opennet.ru/openforum/vsluhforumID9/4873.html
http://packetstormsecurity.org/sniffers/net-rawip/

На русском не видел