Calling 'C' function from Perl

[Sankar]

Dear All,
I am developing a C application on a linux platform that has many
functions . My requirement is to call those functions from Perl.

I would appreciate if you could give some pointers in this regard.

My requirement is sth like this

C fucntion

int square( int a)
{
....
....
return(a)

}

in my perl file i should be able to do this.

a = square( 10)


Thanks in advance
Regards
Sankar

 

[Marco Neumann]

Hello, Sankar!

Try this module:

http://search.cpan.org/~ingy/Inline-0.44/C/C.pod
"
use Inline C;
greet('Ingy');
greet(42);
__END__
__C__
void greet(char* name) {
printf("Hello %s!\n", name);
}
"

Cheers,
Marco.

 

[Mumia W.]

Dear All,
I am developing a C application on a linux platform that has many
functions . My requirement is to call those functions from Perl.

I would appreciate if you could give some pointers in this regard.
[...]

perldoc perlxs

 

[Sisyphus]

Dear All,
I am developing a C application on a linux platform that has many
functions . My requirement is to call those functions from Perl.

I would appreciate if you could give some pointers in this regard.

My requirement is sth like this

C fucntion

int square( int a)
{
...
...
return(a)

}

Marco has pointed you in the right direction. More specifically:

-----------------
use warnings;
use Inline C => Config =>
BUILD_NOISY => 1;

use Inline C => <<'EOC';

int square(int a) {
return a * a;
}

EOC

$a = 173;
$a = square($a);
print $a, "\n";

 

[Sankar]

Marco has pointed you in the right direction. More specifically:

-----------------
use warnings;
use Inline C => Config =>
BUILD_NOISY => 1;

use Inline C => <<'EOC';

int square(int a) {
return a * a;

}

EOC

$a = 173;
$a = square($a);
print $a, "\n";

Thanks a lot everyone for your response.. Ur help is greatly
appreciated !!

Regards
Sankar