ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
19.08.2008, 04:41
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
смотри сразу консольные pl и cgi это разные хрени - выводы хедеры и тд жеще под cgi намного --- запускай из консоли я думаю -- и смотри код
|
|
|
19.08.2008, 04:44
|
|
Постоянный
Регистрация: 13.10.2007
Сообщений: 347
Провел на форуме:
1345617
Репутация:
115
|
|
Сообщение от genom--
смотри сразу консольные pl и cgi это разные хрени - выводы хедеры и тд жеще под cgi намного --- запускай из консоли я думаю -- и смотри код
не понял ни слова.... лучше проще... можно ли денвер, топсервер?
|
|
|
|
19.08.2008, 07:40
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
У Генома язык подозрительно заплетается что-то ))) .::BARS::., уверен, что сервак поддерживает CGI? Залей пробную цегеишку в cgi-bin
Код:
#!/usr/bin/perl
print "Content-Type: text/html\n\n";
print "<html><body><h1>This is CGI-script</h1>" .
"<p>Apache installed</p></body></html>";
exit 0;
Поставь права 755 и вызови из браузера. Если прошло гуд, то куда-нить в начало скрипта drug.pl вставь
Код:
print "Content-Type: text/html\r\n\r\n";
и запусти еще раз. Если не пойдет, то проверь на сервере наличие модулей LWP и HTTP, - возможно, их там нет |
|
|
|
19.08.2008, 14:50
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
ээээээээ пияный писал ))))
да блин открой скрипт да глянь под что он заточен
тупо помойму консольный скрипт запускать из под веб сервера 0 лудше уже перл слить и не париться - тк там потом серавно с выводом лаги будут
|
|
|
|
21.08.2008, 09:52
|
|
Познающий
Регистрация: 19.11.2007
Сообщений: 42
Провел на форуме:
374351
Репутация:
15
|
|
С регулярками тока начал разбиратся, но уже столкнулся с проблемой.
Имею кусок HTML в переменной $data
Код HTML:
.........
</td><td width="20px" style="vertical-align:top">
<div class="vred">
<dl class="clex">
<dt>Статус:</dt>
<dd>
Загорает на пляже )
</dd>
<dt>Будет скора дома:</dt>
<dd>может быть</dd>
.........
имею следующий код на perl:
Код:
$data=~/<dt>Имя:<\/dt>\n\s+<dd>\n(.+)\n\s+<\/dd>/
$status=$1;
хочется что-бы в $status попало "Загорает на пляже )"
Где я ошибся? |
|
|
|
21.08.2008, 12:15
|
|
Познающий
Регистрация: 19.11.2007
Сообщений: 42
Провел на форуме:
374351
Репутация:
15
|
|
Всё разобрался, дело было в кодировке =)
|
|
|
|
21.08.2008, 13:28
|
|
Участник форума
Регистрация: 11.05.2007
Сообщений: 149
Провел на форуме:
6373157
Репутация:
247
|
|
timlame,
m,<dt>Статус:</dt>\s+<dd>\s+(.+)\s+</dd>,
|
|
|
|
23.08.2008, 00:22
|
|
Познающий
Регистрация: 19.11.2007
Сообщений: 42
Провел на форуме:
374351
Репутация:
15
|
|
еще вопросик по регуляркам
итак, имеем переменную $data, которая содержит следующие данные:
Код:
want
understand
all
11
and
would
all
the
veshches
things
a
a
a
a
had
done...and
would
not
able
really
stop
him
a
And
nor
would
Задача, выкинуть отсюда все слова длинной 1 или 2 символа. Для этого я использую следующий регепс:
Код:
$data=~s/\n.{1,2}\n/\n/gs;
но я получаю следующие:
Код:
want
understand
all
and
would
all
the
veshches
things
a
a
had
done...and
would
not
able
really
stop
him
And
nor
would
остались двa "a", почему ??? |
|
|
|
23.08.2008, 01:48
|
|
Участник форума
Регистрация: 23.04.2007
Сообщений: 233
Провел на форуме:
671223
Репутация:
91
|
|
foreach ( split "\n",$data ){
next if ( length($_) <= 2 );
print $_,"\n";
}
|
|
|
|
23.08.2008, 13:50
|
|
Познающий
Регистрация: 19.11.2007
Сообщений: 42
Провел на форуме:
374351
Репутация:
15
|
|
ну это неспортивно, хотелось бы одной регуляркой обойтись  |
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
