ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
29.07.2008, 17:06
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
попробуй
'submission[msg_id]'=>'',
'submission[message]'=>'how',
так
|
|
|
30.07.2008, 00:33
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
$req = HTTP::Request->new (GET => $url . "?code=$name&month" .$pairs[0]);
$req->content_type ('text/html');
$res = $ua->request ($req);
die "Can't get url $url: " . $res->status_line . "\n" unless $res->is_success;
$content = $res->content;
open $OUT, '>','/var/www/res/'.$name. '.txt';
print $OUT decode('KOI8-R',$content);
#print $OUT $content;
close $OUT;
вот кусок кода из скрипта,суть такова что скрипт выдергивает данные и пихает их в файл,соответственно чтоб файл нормально читался в Винде необходимо сделать конверт формата из никсов под вынь
собственно делаю
$content= ~s/\n/\r\n/;
на выходе получаю пустой файл (
пробовал s и m и ~m
Что не так?
можно тупо в консоле прописать perl -pi -e 's/\n/\r\n/;' *.txt но это не удобно
ХЭЛПППП!!!!!!!!!!
|
|
|
|
30.07.2008, 00:34
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
делай вывод ответа с сервака через print -- и анализируй что он тебе пишет - сначала авторизацию потом постинг и тд - все должно воркать-пока сам не разберешся ничего небуит-наберайся опыта
|
|
|
|
30.07.2008, 01:24
|
|
Познающий
Регистрация: 08.04.2008
Сообщений: 60
Провел на форуме:
111221
Репутация:
2
|
|
А как в Perl написать email адес, чтобы он его правильно понял. А то он мне что то парит типа.
Possible unintended interpolation of @rambler in string at ***** line 38.
Name "main::rambler" used only once: possible typo at *****line 38.
Что это значит? |
|
|
|
30.07.2008, 01:29
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
Сообщение от GAVVVR
А как в Perl написать email адес, чтобы он его правильно понял. А то он мне что то парит типа.
Что это значит?
строку 38 покажи
|
|
|
|
30.07.2008, 01:43
|
|
Познающий
Регистрация: 08.04.2008
Сообщений: 60
Провел на форуме:
111221
Репутация:
2
|
|
Всё. сорри. Он же не понимает правильно "@" - ему надо "%40"
|
|
|
|
30.07.2008, 01:44
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
Сообщение от gavvvr
Всё. сорри. Он же не понимает правильно "@" - ему надо "%40"
кто? все телепаты уже спят
|
|
|
|
30.07.2008, 01:52
|
|
Познающий
Регистрация: 08.04.2008
Сообщений: 60
Провел на форуме:
111221
Репутация:
2
|
|
Perl не понимает символ "@", как надо. Он же считает, что это к массиву относится. поэтому вместо "@" - "%40"!
|
|
|
|
30.07.2008, 01:55
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
Сообщение от GAVVVR
Perl не понимает символ "@", как надо. Он же считает, что это к массиву относится. поэтому вместо "@" - "%40"!
или выложи код, или тут не о чем говорить имхо
|
|
|
|
30.07.2008, 02:29
|
|
Познающий
Регистрация: 08.04.2008
Сообщений: 60
Провел на форуме:
111221
Репутация:
2
|
|
Да я разобрался уже  |
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
