在使用perl xs 扩展C/C++的时候，如何在测试文件中使用到C/C++定

在使用perl xs封装C或者C++的函数的时候，如果C或者C++函数中的头文件中定义有常量或者enum常量的时候，如何在perl的测试文件中使用它们呢？很简单。

1：修改Makefile.PL文件，在Makefile.PL文件中加入以下代码：

if  (eval {require ExtUtils::Constant; 1}) {
  # If you edit these definitions to change the constants used by this module,# you will need to use the generated const-c.inc and const-xs.inc
  # files to replace their "fallback" counterparts before distributing your
  # changes.
 my @names = (
        {name=>"CA",macro=>"1"},{name=>"CB",{name=>"CC",{name=>"VMW_STATUS_SUCCESS",{name=>"VMW_STATUS_INVALID_SESSION",{name=>" VMW_STATUS_NOT_FOUND",{name=>"VMW_STATUS_INVALID_ARGUMENT",{name=>" VMW_STATUS_STORAGE_FAULT",{name=>"VMW_STATUS_FAILURE",);
  ExtUtils::Constant::WriteConstants(
                                     NAME         => 'mytest',NAMES        => @names,DEFAULT_TYPE => 'IV',C_FILE       => 'const-c.inc',XS_FILE      => 'const-xs.inc',);


}
else {
  use File::Copy;
  use File::Spec;
  foreach my $file ('const-c.inc','const-xs.inc') {
    my $fallback = File::Spec->catfile('fallback',$file);
    copy ($fallback,$file) or die "Can't copy $fallback to $file: $!";
  }
}

然后，需要在lib/vasa.pm文件中将这些常量放入到@export数组中去，其中vasa是我在最初使用h2xs新建工程的时候的工程名字，比如：

our @EXPORT = qw(
	CA
        CB
        CC
	 VMW_STATUS_SUCCESS 
   VMW_STATUS_INVALID_SESSION
   VMW_STATUS_NOT_FOUND
   VMW_STATUS_INVALID_ARGUMENT
   VMW_STATUS_STORAGE_FAULT
   VMW_STATUS_FAILURE
);

然后，就可以在测试文件中使用对应的常量或者enum类型的变量了……

如果上面的常量值不是声明在@EXPORT,而是声明在%EXPORT_TAGS 中，那么在perl中要使用这些常量，需要在常量前面添加包名，比如 vasa::VMW_STATUS_SUCCESS