|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Serguei Miridonov 2:5020/400 26 May 2004 21:01:07
To : All
Subject : Как в бинарном файле искать строки?
--------------------------------------------------------------------------------
Задача: есть переменная $data, содержащая порядка 1.5Mb бинарных
данных. Hадо найти все последовательности байтов, соответствующих
печатным символам и их позиции относительно начала строки. Т.е. -
сделать нечто аналогичное утилите strings. Я пробовал
while (my ($string) = $data =~ m/\G([[:print:]]+)/gc) {
print $string . " at pos = " . pos($string) . "\n";
}
но это почему-то не работает... Как быть?
--- ifmail v.2.15dev5.3
* Origin: CICESE Research Center, Ensenada, Mexico (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
