Perl как упаковать 64 bit?

Ну если переносимость между архитектурами неважна - то, видимо, запаковывать побайтно (или пословно) во временный буфер, потом хватать мутекс и копировать.

И, кстати, а что это у вас за $value, что вы хотите паковать один скаляр в 64 бита на 32-битной платформе?

pack('ll', $value, 0) ?

>Ну если переносимость между архитектурами неважна - то, видимо, запаковывать побайтно (или пословно) во временный буфер, потом хватать мутекс и копировать.

Как это проще всего сделать?

>хватать мутекс

может всётаки семафор?

>может всётаки семафор?

По этому поводу все ясно и уже сделано. Вот замучался с long long. Заранее не учел, что perl может выдать такую фигню. Теперь и не знаю, что делать.

Неужели не существует простого решения?
А то у меня получилось нечто полурабочее,
причем не учитывающее знака, а он тоже необходим:

sub pack_quad {
	my $quad = shift;
	my $temp;
	while ($quad != 0) {
		$temp .= sprintf('%02x',$quad % 256);
		$quad = int($quad / 256);
	}
	return pack('(H2)8',unpack('(A2)*',$temp));
}