Inlineを使って、Perlの中にPythonを埋め込んじゃう

Python Perl 30分プログラム

30分プログラム、その510。Inlineを使って、Perlの中にPythonを埋め込んでみる。
"port search python"の結果を眺めていたら、"p5-inline: Write Perl subroutines in other programming languages"なるものを見つけた。これを使うと、Perlの中にCやJava、Pythonとかを埋め込めるらしい。(対応言語一覧)
これで、いつPerlを書く仕事が振ってきても安心ですね。

インストール

MacPortsにもp5-inlineとして用意されているけど、cpanでいれたほうが安心だと思う。

cpan> install Inline
cpan> install Inline::Python

使い方

$ perl p5-inline-test.pl
120

ソースコード

#! /usr/bin/perl
# -*- mode:perl; coding:utf-8 -*-
#
# p5-inline-test.pl -
#
# Copyright(C) 2009 by mzp
# Author: MIZUNO Hiroki / mzpppp at gmail dot com
# http://howdyworld.org
#
# Timestamp: 2009/01/19 22:31:40
#
# This program is free software; you can redistribute it and/or
# modify it under MIT Lincence.
#

use strict;
use warnings;
use Inline "Python";

print fact(5),"\n";

__END__
__Python__

def fact(n):
  if n == 0:
    return 1
  else:
    return n * fact(n-1)

参考