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); }