|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artur Penttinen 2:5020/400 26 May 2004 22:02:11
To : Serguei Miridonov
Subject : Re: Как в бинарном файле искать строки?
--------------------------------------------------------------------------------
On Wed, 26 May 2004 17:09:27 +0000 (UTC) Serguei Miridonov <mirsev@cicese.mx>
writes to Serguei Miridonov:
SM> Serguei Miridonov wrote:
>> Задача: есть переменная $data, содержащая порядка 1.5Mb бинарных
>> данных. Hадо найти все последовательности байтов, соответствующих
>> печатным символам и их позиции относительно начала строки. Т.е. -
>> сделать нечто аналогичное утилите strings. Я пробовал while (my
>> ($string) = $data =~ m/\G([[:print:]]+)/gc) { print $string . " at
>> pos = " . pos($string) . "\n";
SM> тьфу - конечно pos($data), но это не причем... Все равно не
SM> работает
while ($data =~ m|[[:print:]]+|g) { print $&; } ?
wbw,artur (Sivan 6, 5764)
--
Админ не опаздывает - у него просто сегодня плохой трафик!
--- ifmail v.2.15dev5.3
* Origin: ase,cap gemini,ernst&young (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
