> Подскажите пжл как вырезать кусок бинарных данных из файла, например
>ццццццц
>кккккк
>еееееее
>Старт
>йййййййй
>Стоп
>......
>Старт
>1234567890
>Стоп
>нужно вырезать все что заключено в Старт/Стоп последний (1234567890), обращаю внимание что
>в промежутке между Старт/Стоп бинарные данные
> Большое Спасибо. вне зависимости от чего там было, двоичные недвоичные - выведет на экран весь файл без всех возможных совпадений заключенных в старт/стоп.......
----------------------------------- cut
#!/usr/bin/perl -wT
open F, "$ARGV[0]";
while(<F>)
{
$num1=/Старт/i;
$num2=/Стоп/i;
print if(!($num1 ... $num2) )
}
----------------------------------- cut