ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
13.07.2008, 13:38
|
|
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601
Репутация:
495
|
|
Код:
use URI::Escape;
my $url = uri_escape( 'http://search.cpan.org/~gaas/URI/URI/Escape.pm' );
|
|
|
14.07.2008, 13:14
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
а можно не страдать фигней и так написать
a=~s/\n//i; # в перем $a - твой урл
my @txt=split(//,$a);
foreach(@txt) {$wer=ord($_);$wer=sprintf "%%%x",$wer;$tekst.=$wer;}
print $tekst;
|
|
|
|
14.07.2008, 17:02
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
Люди объясните пожалуйста про функцию alarm
читал доки и не осилил
есть запрос который используется для сбора инфы
есть два клиента
петя
вася
скрипт открывает текстовик с клиентами
массив,цикл
в цикле запрос на сбор статистики.
если запрос для пети длится больше минуты то скрипт завершается по тайм ауту и вася обламывается.
дак вот не пойму как алармом убить петин цикл,но так чтоб дальше пошел вася обрабатываться
З.Ы.Травку не курил ))
|
|
|
|
17.07.2008, 12:15
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
Решение проблемы нашел )
eval {
$SIG{ALRM} = sub { die "alarm\n" };
alarm 10;
..........# тут код
};
if ( $@ eq "alarm\n" ) {
print "время вышло!\n";
}
Теперь такой вопрос.
У меня есть пхп скриптик который тупо закачивает текстовый файл.
если я текстовый файл(сделанный в винде) закачаю на FreeBSD то там в нем на конце каждой строчки находтся символ ^M и потом перловский скрипт из за этой шляпы не хочет пахать, как лучше от него ^M избавиться? |
|
|
|
17.07.2008, 23:36
|
|
Banned
Регистрация: 17.07.2008
Сообщений: 14
Провел на форуме:
81162
Репутация:
27
|
|
$string =~ s/\^M//g;
Последний раз редактировалось Redyps; 17.07.2008 в 23:39..
|
|
|
|
18.07.2008, 06:49
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Код:
cat script_dos.pl | tr -d '\r' > script_unix.pl
или создать перл-скриптик с регуляркой
Это если файл уже залит на шелл. Можно сделать и в винде, пользуясь редакторами типа Notepad++ и сохранять сразу в Unix-варианте
Последний раз редактировалось krypt3r; 18.07.2008 в 07:08..
|
|
|
|
18.07.2008, 08:31
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Есть еще такая программка - dos2unix, входит в состав пакета tofrodos.
|
|
|
|
18.07.2008, 09:26
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
я сделал проще,хотя может это конечно и глупо но всетаки.
файл закачивается через пхп скрипт, а после закачки вызываю такую команду
'<pre>';
system('col -bx < /usr/local/apache/htdocs/cl/clients.txt > /usr/local/apache/htdocs/cl/1.txt');
echo '</pre>'
|
|
|
|
18.07.2008, 14:50
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Дайте пример multipart/form-data запроса на перле с использованием сокетов
|
|
|
|
18.07.2008, 18:00
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
ну вот засылает php скрипт в форму аплоада ))
Код:
my $sock=new IO::Socket::INET(PeerAddr=>$dom,PeerPort=>'80',PeerProto =>'TCP');
my $a=q(POST ).$skript_name.q( HTTP/1.1
User-Agent: Opera/9.50 (Windows NT 5.1; U; ru)
Host: ).$dom.q(
Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1
Accept-Language: ru-RU,ru;q=0.9,en;q=0.8
Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1
Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0
Connection: Keep-Alive, TE
TE: deflate, gzip, chunked, identity, trailers
Content-Length: 1000
Content-Type: multipart/form-data; boundary=----------Yqz7fayiEPXAbonKK8XQJM
------------Yqz7fayiEPXAbonKK8XQJM
Content-Disposition: form-data; name="act"
upload
------------Yqz7fayiEPXAbonKK8XQJM
Content-Disposition: form-data; name="uploadfile"; filename="name.php"
Content-Type: application/octet-stream
<?
Error_Reporting(E_ALL & ~E_NOTICE);
echo 'someshittt';
?>
------------Yqz7fayiEPXAbonKK8XQJM
Content-Disposition: form-data; name="miniform"
1
------------Yqz7fayiEPXAbonKK8XQJM
Content-Disposition: form-data; name="submit"
Upload
------------Yqz7fayiEPXAbonKK8XQJM--
);print $sock $a;
Последний раз редактировалось genom--; 18.07.2008 в 18:04..
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
