Во-первых, даже так получается быстрее!
Во-вторых, cr4ck3r открыл мне глаза просто. Я-то думал, что Perl на Перле написан. Проблема-то не в этом. А в том, что unpack слишком общая функция.
И простая сумма времен вычислений :
void myunpack(char *str, int n)
{
int a;
for(int i = 0; i < n; i++ ) a=str;
}
и
for(int $i=0; $i<$n; $i++) { my $a=0; @imgData[$i]=$a; }
получается значительно меньше чем unpack.
Однако объединить данные две штуки - та еще проблема.