perl如何调用其它编程语言（如C）

CODE:

use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    'NAME'              =>; 'Mytest',
    'VERSION_FROM'      =>; 'Mytest.pm', # finds $VERSION
    'PREREQ_PM'         =>; {}, # e.g., Module::Name =>; 1.1
    'LIBS'              =>; [''], # e.g., '-lm'
    'DEFINE'            =>; '', # e.g., '-DHAVE_SOMETHING'
    'INC'               =>; '', # e.g., '-I/usr/include/other'
);
~

CODE:

package Mytest;

require 5.005_62;
use strict;
use warnings;

require Exporter;
require DynaLoader;

our @ISA = qw(Exporter DynaLoader);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration       use Mytest ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' =>; [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw(

);
our $VERSION = '0.01';

bootstrap Mytest $VERSION;

# Preloaded methods go here.

1;
__END__
# Below is stub documentation for your module. You better edit it!

=head1 NAME

Mytest - Perl extension for blah blah blah

=head1 SYNOPSIS

  use Mytest;
  blah blah blah
=head1 DESCRIPTION

Stub documentation for Mytest, created by h2xs. It looks like the
author of the extension was negligent enough to leave the stub
unedited.

Blah blah blah.

=head2 EXPORT

None by default.


=head1 AUTHOR

A. U. Thor, a.u.thor@a.galaxy.far.far.away

=head1 SEE ALSO

perl(1).

=cut

CODE:

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

MODULE = Mytest         PACKAGE = Mytest

CODE:

#include <stdio.h>;

static int testfun( int );

int main( void )
{
    (void)fprintf(stderr,"Sample for test.\n");
    if( testfun( 100 ) < 0 ) {
        (void)fprintf(stderr,"testfun error!\n");
        exit(-1);
    }
    exit(0);
}

int testfun(int num )
{
    if( num >; 0 )
        printf("Int num = %d\n", num );
    else
        return -1;
    return 0;
}

CODE:

#!/usr/bin/perl -w

use Inline C;

say();

__END__
__C__
void say()
{
        puts("hello!");
}