Вызов скриптов Perl из программы на C++

Оказалось, что организовать вызов Perl-скриптов из C/C++ (MS Visual C++ 2010) достаточно просто:

1. Прописываем в Include Directories и Library Directories проекта путь к Perl\CORE:
   
   
   
   
   
2. Добавляем perl512.lib в Linker->Input->Additional Dependencies.
   
   
   
   
   
3. Ниже приведен пример кода, вызывающего perl из консольного приложения C++. Обращу внимание на два момента: a) #pragma warning (disable:4005) для подавления сообщения компилятора "'ENOTSOCK' : macro redefinition"; b) если опустить вызов PERL_SYS_INIT(0, NULL), то на шаге perl_parse получим Access Violation.
   
   
   4. #include "stdafx.h"
   5. //avoid warning C4005: 'ENOTSOCK' : macro redefinition
   6. #ifdef _MSC_VER
   7. #pragma warning ( disable : 4005 )
   8. #endif
   9. #include <perl.h>
   10.  
   11. PerlInterpreter *my_perl;
   12.  
   13. int _tmain(int argc, _TCHAR* argv[])
   14. {
   15.     PERL_SYS_INIT(0, NULL);
   16.  
   17.     my_perl = perl_alloc();
   18.     perl_construct(my_perl);
   19.  
   20.     perl_parse(my_perl, NULL, argc, argv, NULL);
   21.     perl_run(my_perl);
   22.  
   23.     perl_destruct(my_perl);
   24.     perl_free(my_perl);
   25.  
   26.     return 0;
   27. }

===
Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru