Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > перевести функцию PHP->Perl

Автор: Smith 6.1.2009, 22:42

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

Код


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

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

Автор: xoma 6.1.2009, 23:36

простите....а это на чем????

Автор: sir_nuf_nuf 7.1.2009, 01:19

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

Код


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

Автор: Smith 11.1.2009, 17:11

Цитата(sir_nuf_nuf @ 7.1.2009, 01:19)

Код


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

да, забыл сказать, что $data это строка а не массив)

Автор: KSURi 11.1.2009, 17:31

Код


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