はちゅにっき

こっちのブログはまったり更新

Inline::C を使ってみる

PerlからC言語を扱える(?)ってコトで使ってみました。
XSを使うのは、ちょっと難しかったけど、こっちは簡単だった。


今は、GloMoSim のログから座標情報を取得するPerl
その座標情報からガブリエルグラフを求めるPerlを作ってますが
ガブリエルグラフを作成するのに、簡単な計算ではありますが
ごりごりと計算をしているので、そっちに Inline::C を適用できるといいな。

#!/usr/bin/perl -w

use lib '/home/my/perl/modules';
use Inline C => 'DATA';
use warnings;
use strict;

nullpo( );

__DATA__
__C__
#include<stdio.h>

void nullpo ( )
{
  char *null=NULL;

  printf("  ∧_∧ \n");
  printf(" ( ´∀`)<%s \n", null);
}