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

[Nikita Aznauryan]

29.09.2010, 13:46, "Dmitry Karasik" <dmitry на karasik.eu.org>:
>>  Да,я понял. Значит нужно сделать так ?
>>
>>  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
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

Да, спасибо)