я хотел только узнать как пишется и от чего это берётся новерно юникодом каким-то и что там написанно в этих юникодах мож брут какой.
Качаешь http://www.activestate.com/Products/activeperl/index.mhtml Если нет какого-то модуля, пишешь в консоли ppm, добавляешь в настройках репозитории и там ищешь. Code: http://www.bribes.org/perl/ppm/package.xml http://trouchelle.com/ppm10/package.xml http://cpan.uwinnipeg.ca/PPMPackages/10xx/package.xml Если уж и там не находит, то cpan тебе в помощь.
кроме LWP и IO:Socket сплоиты ничего не ипользуют как правило, а эти модули в любом стандартном дистре
Приветсвую всех! Возник такой вопрос (уже не первый раз сталкиваюсь) Передается Post запрос, я его перехватываю, выглядит примерно так: где %CF%F0%E8%E2%E5%F2 слово "кольцо". Передаю через Perl точно такой же запрос, вместо слова "кольцо" у меня вылазит: Если тупо пишу слово на ру, то оно передается в виде иероглифов Использую модуль LWP, в чем проблема господа и дамы? P.S. всех с прошедшим!
Хочу передать post запрос с русскими символами. Например со словом "жопа", но вместо этого передаются иероглифы, снифак при "отловке запроса" выдает: siski=%EA%EE%EB%FC%F6%EE Я передаю запрос так: $response=$browser->post($keyurl, [ "siski" => "жопа", ]);
Нашел выход! Когда передаешь номер какого-то ascii символа - все ок! Т.е. буква "ы" chr(251); Как преобразовывать слова?
Кодировка передаваемого текста и кодировка сайта должны совпадать. Если ты иероглифами называешь текст после урленкода, то юзай сокеты и формируй запрос сам. @text = unpack("C*", "test"); print @text;
вот Code: open(DAT, "test1.txt") || die("error1!"); @data=<DAT>; close(DAT); open(FILE, ">>test2.txt") || die("error2!"); foreach [COLOR=Red]$line[/COLOR] (@data) { my($a,$b) = split(/:/, [COLOR=Red]$line[/COLOR]); [COLOR=Red]print[/COLOR] FILE "$a:$b\n"; } close(FILE);
нууу.. эээ... line это ж переменная а print оператор ыы Code: open(DAT, "< test1.txt") || die("error1!"); @data=<DAT>; close(DAT); open(FILE, ">> test2.txt") || die("error2!"); foreach my $line (@data) { my($a,$b) = split(':', $line); print FILE "$a:$b\n"; } close(FILE);
open F, '<', 'file1.txt' or die $!; open G, '>>', 'file2.txt' or die $!; print G $_ while <F>; close F; close G xDD