«

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

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.

On 02/14/2007 11:49 PM, Sankar wrote:
> 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


--
Windows Vista and your freedom in conflict:
http://techdirt.com/articles/20061019/102225.shtml

"Sankar" <> wrote in message
news: ups.com...
> 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";
-----------------

Cheers,
Rob

On Feb 15, 5:30 am, "Sisyphus" <sisyph...@nomail.afraid.com> wrote:
> "Sankar" <writetoshan...@gmail.com> wrote in message
>
> news: ups.com...
>
>
>
> > 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";
> -----------------
>
> Cheers,
> Rob

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

Regards
Sankar