I checked the perlapi but i did not get it.

The C regex engine hooks are not documented in perlapi, they're elsewhere. See perlreapi and perlreguts.

use warnings;

use Inline C => <<'EOC';

void C_foo(char *a) {
     dSP;

     ENTER;
     SAVETMPS;
     PUSHMARK(SP);
     POPMARK;
     PUSHMARK(SP);
     XPUSHs(sv_2mortal(newSVpv(a, 0)));
     PUTBACK;
     call_pv("foo", G_DISCARD);
     FREETMPS;
     LEAVE;
}


EOC

my $string = "AAA:BBB";

C_foo($string);

sub foo {
$_[0] =~ /^([^:]+):([^:]+)$/;
print "$1 - $2\n";
}
[download]

#!/usr/bin/perl
use strict;
use warnings;
use Inline qw(C);

c_func('AAA:BBB');

sub perl_sub {
    for (@_) {
        /^([^:]+):([^:]+)$/;
        print "$1 - $2\n";
    }
}

__DATA__
__C__

void c_func(SV* text) {
    Inline_Stack_Vars;
    Inline_Stack_Push(newSVpvf("CCC:DDD"));
    Inline_Stack_Done;
    perl_call_pv("main::perl_sub", 0);
    Inline_Stack_Void;
}
[download]

However, if your main() is a C function, I believe you need a different approach. I've never used it, but Inline::CPR ostensibly gives you a binary you can call from C which will handle the appropriate inheritance.

you can use something like this to perform your task (largely based on code from Inline::C-Cookbook)

It's a bad example in the Cookbook, and thank you for reminding me that it needs to be fixed. Your code (and the Cookbook example) are fine if run just once - but if you call the Inline::C sub more than once, then things can go screwy.

For example, with the code you posted, if I call it 10 times:

c_func('AAA:BBB');
c_func('AAA:BBB');
c_func('AAA:BBB');
c_func('AAA:BBB');
c_func('AAA:BBB');
c_func('AAA:BBB');
c_func('AAA:BBB');
c_func('AAA:BBB');
c_func('AAA:BBB');
c_func('AAA:BBB');
[download]

I get this output:

AAA - BBB
CCC - DDD
CCC - DDD
[download]

If I call the sub 10 times in a loop:

for(1 .. 10) {c_func('AAA:BBB')}
[download]

I get:

Use of uninitialized value $1 in concatenation (.) or string at try.pl
+ line 10.
Use of uninitialized value $2 in concatenation (.) or string at try.pl
+ line 10.
 -
Use of uninitialized value $1 in concatenation (.) or string at try.pl
+ line 10.
Use of uninitialized value $2 in concatenation (.) or string at try.pl
+ line 10.
 -
AAA - BBB
CCC - DDD
Use of uninitialized value $1 in concatenation (.) or string at try.pl
+ line 10.
Use of uninitialized value $2 in concatenation (.) or string at try.pl
+ line 10.
 -
AAA - BBB
CCC - DDD
AAA - BBB
CCC - DDD
CCC - DDD
[download]

The problem is that the Inline Stack macros are deficient for performing callbacks - and one should instead base one's callbacks on the perlcall documentation (from where my example was drawn).

Cheers,
Rob

You can't call Perl operators (from C or anywhere), just functions.

The regex pattern doesn't have to be hardcoded — it could be passed as an argument — but if you want to call Perl's match operator, you'll need to call a Perl function that contains it.