ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
26.06.2008, 22:26
|
|
Members of Antichat - Level 5
Регистрация: 09.10.2006
Сообщений: 1,698
Провел на форуме:
9098076
Репутация:
4303
|
|
perl путь_к_скрипту
|
|
|
26.06.2008, 22:30
|
|
Members of Antichat - Level 5
Регистрация: 09.10.2006
Сообщений: 1,698
Провел на форуме:
9098076
Репутация:
4303
|
|
|
|
|
|
27.06.2008, 10:24
|
|
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337
Репутация:
3486
|
|
Сообщение от script.pl
#!/usr/bin/perl -w
print "\nmda\n";
MaTpOc, невероятно сложно, да?
|
|
|
|
01.07.2008, 20:40
|
|
Участник форума
Регистрация: 05.12.2007
Сообщений: 113
Провел на форуме:
252598
Репутация:
34
|
|
Где можно взять хороший док (желательно на русском)по формированию пакетов raw socket в perl хотябы основные протоколы.
|
|
|
|
02.07.2008, 04:30
|
|
Участник форума
Регистрация: 12.03.2008
Сообщений: 159
Провел на форуме:
912928
Репутация:
137
|
|
пытаюсь дополнить чекер акков вк количеством друзей, в шаблоне контакта вот так получается:
Код HTML:
<div><h2>Друзья <span>(102)</span>
нужно выдрать из шаблона количество друзей, подскажите как правильно сделать, в перле первый день 
Код:
my $fri = $1 if $req=~m/<div><h2>Друзья <span>(количество друзей)</;
Последний раз редактировалось zavra; 02.07.2008 в 04:41..
|
|
|
|
02.07.2008, 05:02
|
|
Участник форума
Регистрация: 12.03.2008
Сообщений: 159
Провел на форуме:
912928
Репутация:
137
|
|
шикарно, пасибо
можешь, пожалуйста, объяснить значение обратных слешей тут: \((\d+)\)?
первый и последний, как я понял, относятся к скобке и означают, что скобки относятся к коду из шаблона, а средний зачем? |
|
|
|
02.07.2008, 14:39
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
помогите со скриптиком
есть файл 1.txt вида
Юля
Паша
Маша
загоняю их в массив
open (FILE , '<clients.txt');
my @f = <FILE>;
далее мне надо для каждого клиента сдлеать запрос вида http://site/scritp.pl?name=имя клиента
что лучше использовать foreach (@f) или while(@f) ?
|
|
|
|
02.07.2008, 15:20
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Код:
open my $FILE, '<', clients.txt or die "Open error: $!\n";
my @f = <$FILE>;
close $FILE;
foreach $name(@f) {...}
или
Код:
open my $FILE, '<', clients.txt or die "Open error: $!\n";
while (<$FILE>) {...}
close $FILE;
без разницы, как хочешь. Второй вариант предпочтительнее
Последний раз редактировалось krypt3r; 02.07.2008 в 15:29..
|
|
|
|
02.07.2008, 16:03
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
Спс за помощь появилась еще одна поблема теперь скрипт сохраняет инфу в файл не в той кодировке (
и еще надо както обрезать первые 9 строк чтоб не выводились ))
Последний раз редактировалось svesve; 02.07.2008 в 16:11..
|
|
|
|
02.07.2008, 16:07
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Сообщение от zer0ska
Где можно взять хороший док (желательно на русском)по формированию пакетов raw socket в perl хотябы основные протоколы.
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/
На русском не видел
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
