VPF::Perl XS регулярные выражения (pregexec)

kavkaz

Дата 14.2.2011, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 70
Регистрация: 26.12.2007

Репутация: 1
Всего: 2

Есть проблема, не понятно как использовать регулярки в xs.
В инете нарыл пример
http://www.mail-archive.com/[email protected]/msg02059.html

Код


SV*
regex_once(SV *regex_ref, SV *text) {
    SV *regex_sv;
    regexp *rx;
    char *stringarg, *stringbeg, *stringend;
    MAGIC *mg = NULL;

    if (!SvROK(regex_ref)) croak("not a ref");
    regex_sv = SvRV(regex_ref);
    if (!SvMAGICAL(regex_sv)) croak("No magic");
    mg       = mg_find(regex_sv, PERL_MAGIC_qr);
    rx       = (REGEXP*)mg->mg_obj;

    stringbeg = SvPV_nolen(text);
    stringarg = stringbeg;
    stringend = SvEND(text);

    pregexec(rx, stringarg, stringend, stringbeg, 1, text, 1);

    return newSVpv(stringbeg, rx->endp[0]);
}

С учетом документации ( http://perldoc.perl.org/perlapi.html#REGEXP-Functions ),
и подставляя его в свои реалии, получаем такой кусок кода

Код


SV *mask;
mask = *hv_fetch( hv, "mask", 4, 0);

SV *path_info;
path_info = *hv_fetch( hv, "path_info", 9, 0);

if (SvRXOK(mask)) {
    printf("\tmask is regexp\n");
            
    REGEXP *rx;
    rx = SvRX(mask);
                    
    char *strarg, *strbeg, *strend;
                    
    strbeg = SvPV_nolen(path_info);
    strarg = strbeg;
    strend = SvEND(path_info);
                    
    pregexec( rx, strarg, strend, strbeg, 1, path_info, 1 );
                    
    printf("\t\treg[%s][%s][%s]\n",strarg,strbeg,strend);
}

Код


warning: assignment from incompatible pointer type
error: 'REGEXP' has no member named 'endp'

http://perldoc.perl.org/perlapi.html#Undocumented-functions

Нужно просто поймать true/false при исполнении регулярки на строку.

kavkaz

Дата 15.2.2011, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 70
Регистрация: 26.12.2007

Репутация: 1
Всего: 2

Решение конкретно заданной проблемы оказалось очевидным (ниже).
А вот если вопрос изучать глубже, то всё таки остаются вопросы, но это уже следующий этап.
Резюмируем.

Документация Internals and C language interface > perlreapi
http://perldoc.perl.org/perlreapi.html

Пример реализации
http://frepan.org/src/GBARR/Regexp-0.004/Regexp.xs?pretty=1

Рабочий код из XS модуля для теста

Код


void
testreg(mask,str)
        SV *mask;
        SV *str;
    CODE:
        printf("BEGIN test regexp\n");
        if (SvRXOK(mask)) {
            REGEXP *rx;
            rx = SvRX(mask);
            
            char *strarg, *strbeg, *strend;
            
            strbeg = SvPV_nolen(str);
            strarg = strbeg;
            strend = SvEND(str);
            
            if (pregexec( rx, strarg, strend, strbeg, 1, str, 1 )) {
                printf("regexp TRUE\n");
                //int matches = rx->nparens;
                //printf("matches[%d]\n",matches);
            } else {
                printf("regexp FALSE\n");
            }
        } else {
            printf("arg[mask] is not regexp\n");
        }
        printf("END test regexp\n");

Работает при следующем вызове

Код

testreg(qr{^/blog/},'/blog/index.htm');

Несложно понять что будет результатом

Код


BEGIN test regexp
regexp TRUE
END test regexp

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »