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

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

Форум программистов > Perl: Общие вопросы > Запутался с pack

Автор: infarch 30.1.2013, 15:59

Подскажите пожалуйста как мне воспользоваться функцией pack чтобы получить строку из массива, причем не из всего?
Например, имею массив чисел:

Код


my @bytes = (0, 0, 84, 69, 83, 84, 0, ......);

Первые 2 числа должны быть пропущены, потом 4 числа образуют строку "TEST", вот именно она мне и нужна. Остальные игнорируем. Если бы массив начинался сразу с текста, я мог бы так сделать:

Код


my $string = pack('CCCC', @bytes);

А вот как первые два пропустить не могу понять. Помогите плиз.

Автор: arto 30.1.2013, 16:45

@bytes[2..6]?

Автор: infarch 30.1.2013, 17:12

Да, конечно ) Уж это я знаю... Но мне хотелось освоить pack, чувствую в нем хороший потенциал. Но вот не могу в него въехать никак (

ps: @bytes[2..5]

Автор: Pfailed 30.1.2013, 18:53

Код


my $str = pack('C6', @bytes);

Добавлено через 5 минут и 17 секунд

Код


my $str = pack('(@.)2C4', @bytes);

Автор: infarch 31.1.2013, 11:12

Pfailed, это не работает. Я ищу слово "Exif".

первый ваирант дает:

Код


'↔ОExif'

Второй вариант дает:

Код


'

            Exif'

Автор: Pfailed 31.1.2013, 11:18

Где вы ищите слово "Exif"? Для теста из первого поста работает

Автор: infarch 31.1.2013, 18:01

На тех данных оно показывает нормально строку, но это просто совпадение. Замените первые байты, которые нужно игнорировать, на не-нулевые значения и сами увидите. Вот например так:

Код


my @bytes = (13, 10, 84, 69, 83, 84, 0, 4, 5, 6);

Автор: Pfailed 31.1.2013, 18:44

Цитата(infarch @ 31.1.2013, 18:01

)

Вот например так

Так не получится, pack умеет пропускать только нулевые байты

Автор: infarch 31.1.2013, 19:00

Эх, жаль. Значит буду использовать срезы массива для пака.
Спасибо за информацию.