[Moscow.pm] Perl XS: Как записать unsigned char* в SV*

[Dmitry Karasik]

> 
> Да,я понял. Значит нужно сделать так ? 
> 
> SV* sv = newSVpvn((char*)ptr, len);
> SvUTF8_on(sv);

если я правильно понял проблему, (см внизу как я это себе представляю), 
то да так

void insert_string_in_hash( HV * hv, char * key, const unsigned char * ptr)
{
   SV* sv = newSVpvn((char*)ptr, strlen(ptr));
   SvUTF8_on(sv);
   hv_store( hv, key, strlen(key), sv, 0);
}
...
insert_string_in_hash( hv, "foo", "bar");


-- 
Sincerely,
	Dmitry Karasik