информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Портрет посетителяГде водятся OGRыВсе любят мед
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Три миллиона электронных замков... 
 Doom на газонокосилках 
 Умер Никлаус Вирт 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Глупые вопросы по Perl 11.06.01 10:02  Число просмотров: 760
Автор: Alёkz Статус: Незарегистрированный пользователь
<"чистая" ссылка>
> Вообще-то, я пишу восновном на C++, но тут приперло
> написать CGI-скрипт на Perl (вижу его первый раз). Первый
> глупый вопрос : Как в Perl делается преобразование типов?
> Пример:
> В POST-запросе получаем некоторые данные, читаем их:
> my $packet="";
> read (STDIN, $packet, $ENV{CONTENT_LENGTH}) ==
> $ENV(CONTENT_LENGTH};
>
> теперь надо трактовать первые 4 байта как DWORD, следующие
> 2 байта как WORD, а остольное как строку.
>
> Как это грамотно реализовать?


Никак нечё не надо - берёшь строку из файла (типа стринг) - берёшь число 5 и умножаешь на строку! =:-o вот и всё приоброзование, если в строке были только числа - получишь результат умножения - иначе - еррор. Перл рулит - сам всё знает что и где =;-)
Нет там никакого word dword если надо чёта подобное - делай array.
Рульные фанки - chr, ord пригодяться.
Перл для обработки текста - там туча функций для фильтра строк, только медленые иногда :(
С методом пост можешь сделать так:

@zapros = split(/ /, $line);

всё - в @zapros[0] - метод
в @zapros[1] файл
@zapros[2] версия хттп протокола.
<programming> Поиск 






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2024 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach