※ 「PECL-PerlでPHPからPerlを実行」の続きです。

PHPからPerlのGD::Barcode::NW7を使ってバーコードを生成してみます。

まずはファイルを作って・・

# vi nw7.php

中身はこれ。

<?php
/**
 * PECL-Perl sample
 */
$param = date('YmdHis');

// バーコード生成モジュールの呼び出し
$perl = new Perl();
$perl->eval( 'use GD::Barcode::NW7' );
$perl->eval( 'binmode STDOUT;' );
$output = $perl->eval( 'GD::Barcode::NW7->new( "' . $param . '" )->plot->png' );

// ファイルに出力
$fp = fopen( 'nw7.png' , 'w' );
fwrite( $fp , $output );
fclose( $fp );
?>

コンソールから実行！！

# php nw7.php

生成されたバーコードはこれ。

うまくいきました～