[Perl] Новичкам: задаем вопросы

что за line?

 

не совсем понятно что за линия? ты сказал?

 

я хотел только узнать как пишется и от чего это берётся новерно юникодом каким-то и что там написанно в этих юникодах мож брут какой.

 

or1, это я не тебе писал)

 

Качаешь
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. всех с прошедшим!

 

Попробуй типа
use URI::Escape;

А потом uri_escape('слово')

 

ну када надо выводить в файл

 

напиши весь скрипт

 

2 Kaimi. передает %D0%BA%D0%BE%D0%BB%D1%8C%D1%86%D0%BE вместо нужного мне слова...

 

Тогда объясни точнее что ты получить хочешь?

 

Хочу передать 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

 

Code:

perl -F':' -ane 'print @F' test.txt | tee -a parse.txt

 

извините конечно за тупой вопрос, но КАК использовать перл скрипт?????