If you're worried about compatibility, take a look at Devel::PPPort.

Another way to use C code from perl is to use Inline::C or swig.

All the examples i've tried from perlxs, perlxstut, perlapi, perlguts and perlembed have been up-to-date for me

I tried running the example of Mytest that is given in perlxstut, the code generated for me was different than the onw they're talking about in the tutorial and I couldn't make it work.


Hotshot

I hope you're refering to your local copy of perlxstut - the copies on perlmonks are out of date. But indeed, the files generated with perl 5.8.6 are slightly longer and have more options and comments in them than the docs show, though it's not too spectacular.

I just tried the first example (adding the hello world function to the xs file) and it works fine for me. Here's what my Mytest.xs looks like (no changes required to any other file) update: I mean: just do what the tutorial says, and ignore small differences in the generated files compared to the docs:

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"


MODULE = Mytest         PACKAGE = Mytest

    
void
hello()
     CODE:
     printf("Hello, world!\n");
[download]

and the test script:

#!/usr/local/bin/perl
use ExtUtils::testlib;

use Mytest;
Mytest::hello();
__OUTPUT__
Hello, world!
[download]

You should probably remember that XS is whitespace sensitive, especially with regards to the function prototypes.

HTH, Joost.

"What should it profit a man, if he should win a flame war, yet lose his cool?"

Another, somewhat dated, way is to produce .ph files from the library's C headers and use the syscall function. Details in that perldoc.

I think that largely has been replaced by XS because with XS you can tune the library calls to have more perlish calling conventions.

#!/usr/bin/perl

# Suppose libyourlib contains a function called 'multiply' which takes
+ 2 
# arguments of type int and returns a int. You could access it with 
# Inline::C as follows: 

use Inline C => Config =>
LIBS => '-L/path/to/the_static_lib -lyourlib';

use Inline C => <<'EOC';

#include "yourlib.h" 

int wrap_multiply(int a, int b) {
return multiply(a,b);
}

EOC

my $x = 17;
my $y = 123;

print wrap_multiply($x, $y);

__END__ 
 
# And, so long as libyourlib.so was able to be found, that Inline scri
+pt 
# should work fine (typing errors aside :-).
[download]