Передача бинарных параметров скрипту на Perl

Здравствуйте !

Уже видно съехал с колес. Задача простейшая, а бьюсь вторые сутки.
Из RADIUS передаю пераметры скрипту на PERL через командную строку, а в ней несколько строчных параметров и 2 параметра двоичные фиксированной длинны (кому интересно это CHAP-PASSWORD и CHAP-CHALLENGE).Все поля разделены пробелами (и бинарные тоже).

Так вот как только встречается нулевой символ строка режется, символ \047 просто убирается из ввода, символ \012 заменяется на пробел и прочее прочее. Естественно проверить пароль могу только в 6-7 случаях из 10. а хотелось бы в 10 из 10.

Если есть идеи или приходилось решать подобную проблему, помогите.

Заранее спасибо

Юрий

Ссылка

← [QT] Смещение позиции в QTextEdit

вопрос для GCC гуру →

perldoc -f unpack поможет?

majordomo ★
(30.01.05 11:28:07 MSK)

Ответ на: комментарий от majordomo 30.01.05 11:28:07 MSK

Да конечно поможет, но сначала надо получить ту строку которую потом надо передать функции unpack. Стандартные средства ($ARGV) испробованы и не помогают (например представьте себе что мне возвращает $ARGV если внутри одного из двоичных полей символ \000? Да ничего ARGV не делает, просто считает что ввод закончился :-)
Ну и конечно половину ключа передавать на обработку функции unpack, сами понимаете бесполезно :-(

Строка в @ARGV попадает в уже преобразованном виде.

Это уже пройденный этап...

Кстати... Сейчас пойду поробую получить ссылку на начало строки и перебирать последовательно в цикле.

anonymous
(30.01.05 12:33:36 MSK)

Ответ на: комментарий от anonymous 30.01.05 12:33:36 MSK

И все равно ничего не получилось.
Еще пол дня потерял :-(

Жаль что больше никто так и не откликнулся :-(

anonymous
(30.01.05 14:19:46 MSK)

Ссылка

по моему, этого сделать нельзя. попробуй спросить в fido7.ru.cgi.perl

~~vilfred~~ ☆☆
(30.01.05 15:09:22 MSK)

Ответ на: комментарий от vilfred 30.01.05 15:09:22 MSK

Эх... все руки никак не доходят до фидо :-)
и на том большое спасибо :-)
хоть не одиноко :-)

большое спасибо всем кто старался помочь.

но проблема так и не решилась :-(

anonymous
(30.01.05 17:50:08 MSK)

Ответ на: комментарий от anonymous 30.01.05 17:50:08 MSK

А нельзя попробовать передать данные на вход программы? С радиосом не знаком, поэтому как там вызывается внешняя программы хз, но если можно, то я думаю проблема решится ;)

roy ★★★★★
(30.01.05 19:37:46 MSK)

Ответ на: комментарий от roy 30.01.05 19:37:46 MSK

В радиусе есть файл настройки в котором я указываю какие параметры передать в командной строке. Вот пример этой строки:

Exec-Program-Wait = "/usr/local/etc/raddb/scripts/exec.pl \
%C{User-Name:-0} \
%C{Password:-0} \
%C{NAS-Port-Id:-0} \
%C{NAS-IP-Address:-0} \
%C{CHAP-Password:-0} \
%C{CHAP-Challenge:-0}"

User-Name, Password и прочие - это параметры которые я передаю своему скрипту. Е.е. я могу выбирать параметры которые я передаю, но не могу влиять на способ передачи.

anonymous
(31.01.05 10:35:50 MSK)

Ссылка

Проблема не perl-а, а shell-а
Именно он обрабатывает командную строку.
Т.е. нужно до perl-а подготовить параметры (закодировать, потом раскодировать)
Или передавать perl-у в виде входного потока

anonymous
(01.02.05 06:07:44 MSK)