Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> перевести функцию PHP->Perl 
:(
    Опции темы
Smith
Дата 6.1.2009, 22:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 17.1.2007

Репутация: нет
Всего: 2



парсинг hex-кода
Код

for ($i=0; $data{$i}!="\x00"; $i++) {
    $string .= $data{$i};
}

мало представляю себе как это должно выглядеть на Perl...

Это сообщение отредактировал(а) Smith - 6.1.2009, 22:43
PM MAIL   Вверх
xoma
Дата 6.1.2009, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 86
Регистрация: 4.4.2007

Репутация: нет
Всего: нет



простите....а это на чем????
PM MAIL WWW   Вверх
sir_nuf_nuf
Дата 7.1.2009, 01:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 14
Всего: 31



Smith, вы знаете, Perl - уникальный язык!
Он настолько интелектуален, что можно просто вставлять ваш код и все будет работать!
Код

for ($i=0; $data{$i}!="\x00"; $i++) {
    $string .= $data{$i};
}

 smile 

Это сообщение отредактировал(а) sir_nuf_nuf - 7.1.2009, 01:20


--------------------
user posted image
user posted image
PM MAIL Jabber   Вверх
Smith
Дата 11.1.2009, 17:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 17.1.2007

Репутация: нет
Всего: 2



Цитата(sir_nuf_nuf @ 7.1.2009,  01:19)
Smith, вы знаете, Perl - уникальный язык!
Он настолько интелектуален, что можно просто вставлять ваш код и все будет работать!
Код

for ($i=0; $data{$i}!="\x00"; $i++) {
    $string .= $data{$i};
}

 smile

да, забыл сказать, что $data это строка а не массив)
PM MAIL   Вверх
KSURi
Дата 11.1.2009, 17:31 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27



Код

foreach(split $data) {
  last if $_ eq "\x00";
  $string .= $_
}



--------------------
Died at Life.pl line 21
PM Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0589 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.