ぱわふる

2014/05/25(日)Perl Data Language 基礎編 #01 「PDLのインストール」

プログラミング::Perl

統計検定に向けて「Perlで統計」をまとめていきます。（の予定でしたが、思いのほかPDLが大きいライブラリだったのでまずはPDLをまとめていきます）

PDL（Perl Data Language）は、科学技術計算とその結果の描画のためのPerl拡張です。PDLは速くて、IDL（科学技術計算でよく使われるデータ分析用プログラミング言語）やMATLABと匹敵するか、それらより速い（often outperforming）です。PDLによって、画像などの多次元データも効率よく格納できて素早く操作できます。$a = $b + $c で $b と $c が大きいデータ集合 (たとえば 2048x2048 画像) でもほんの一瞬で結果を得られます。PDL変数（piddleと呼ばれる）は基本的なデータ型の広範囲をサポートし、たとえば $x は何次元のデータでも入ります（おそらくメモリが許す限り）。@x に格納しない理由は、「メモリ」と「スピード」のためです。（ドキュメントより）

インストールは以下の通り。

cpanm Data::Printer
cpanm Data::Printer::Filter::PDL

今回はとりあえず動かすところま'で。

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/say/;
use PDL;
use DDP filters => { -external => [ 'PDL' ] };

my $piddle = pdl [1,0,0,1];
say $piddle;

say "Data::Printer::Filter::PDL で表示：";
p $piddle;
print "\n";

print "要素数：" . $piddle->nelem . "\n";
say $piddle->info("メモリ消費量：%M");

print "\n";


my $piddle2 = pdl [ [ 1 .. 3 ], [ 3 .. 5 ] ];
say $piddle2;

say "Data::Printer::Filter::PDL で表示：";
p $piddle2;
print "\n";

print "要素数：" . $piddle2->nelem . "\n";
say $piddle2->info("メモリ消費量：%M");

実行結果：

次回はPDLの関数を見て、次々回でモジュールまとめていく感じでいこうかな。

追記！割りとガチで使う場合は GSL（GNU Scientific Library）をインストールしておきましょう。パッケージ管理システムがAPTの場合は「sudo apt-get install libgsl0-dev」でOK！GSLのインストールより先にPDLをインストールしてしまった場合は、「cpanm PDL --reinstall」でPDLを再インストールしましょう。

コメント（0件）

2014/05/01(木)１文字フォントの作り方（無料）

Web技術

💩 （うんこ）を表示できるフォント（うんこフォント）を作ったので作り方を軽くまとめておきます。

用意するハードウェア

スキャナー（デジタルでフォントを描く場合はなくてもOK）

最初に用意するソフトウェア

Gimp
Inkscape

フォント（SVGファイル）作成手順↓

紙に文字を書く
スキャナーで読み込む（300dpiぐらい）
Gimpで２値化（白と黒に分けること）
気に入らないところがあればGimpで編集
bmpファイルで保存
Inkscapeを起動
「ファイル」→「ドキュメントの設定」→「カスタムサイズ」で正方形にする（1000px x 1000pxぐらい）
bmpファイルをドラッグ・アンド・ドロップしてInkscapeで読み込み（埋め込み）
「パス」→「ビットマップをトレース」→「OK」ボタンを押す
「テキスト」→「SVG フォントエディタ」→「新規」ボタンを押す
「フォント 1」をクリックして「ファミリ名」を適当なフォント名（うんこフォントなら「Unko」とか）にする
「グリフ」タブをクリック→「グリフを追加」ボタンを押す
「グリフ 1」の「マッチング文字列」に作りたいフォントの文字を入力
「選択オブジェクトから曲線を取得」ボタンを押す
「プレビューテキスト」に作りたいフォントの文字を入力して描いたフォントが反映されているか確認
「ファイル」→「名前を付けて保存」でファイルの種類はInkscape SVGのままで保存

Inkscapeの操作は自作フォントの作り方|windowsで無料で作成!How to make Font in Inkscape.It's completely free.が詳しいです。

SVGファイルから eot, ttf, woff ファイル作成手順（難易度高め）

Linuxで「sudo apt-get install npm」する（パッケージ管理システムによって少し変わる）
さらに「npm install -g svg2ttf」する
「svg2ttf from.svg to.ttf」でttfファイルを作成（もちろん適切なファイル名で）
WOFFコンバータでttfファイルからwoffファイルとeotファイルを作成！（終了）

紙にかいた文字は↓ですが、線はもっと太くしたほうがいいです。

↑のように線が細いと、小さく表示したときに文字が見えなくなるのでGimpでかなり太くしないといけなくなります。

ファイルサイズは woff, eot, ttf で2,000から3,000 バイトぐらいになりました。

コメント（0件）

2014/03/21(金)Lingua::JA::KanjiTable - Perlで常用漢字表と人名用漢字表を扱う

プログラミング::Perlプログラミング::自然言語処理

https://metacpan.org/pod/Lingua::JA::KanjiTable

常用漢字表だけでも個人的には嬉しいのですが、人名用漢字表も用意してあるので妥当な名かのチェックもできます。戸籍法第50条と戸籍法施行規則第60条によると、子の名には常用漢字表の漢字と人名用漢字表の漢字と片仮名と平仮名が使えるようなので、以下のコードで名の妥当性をチェックできます。（名は Mock::Person::JP で出力）

#!/usr/bin/env perl
 
use strict;
use warnings;
use utf8;
use Lingua::JA::KanjiTable;
 
my @name_list = qw/希砂妃 みのる 菜奈世
勇凪 ソラ 未佑 茶流 怜実 紫翠 夢里/;
 
for my $name (@name_list)
{
    $name =~ /^p{InMei}+$/
        ? print "validn"
        : print "invalidn"
        ;
}
 
sub InMei
{
    return &lt;&lt;"END";
+Lingua::JA::KanjiTable::InJoyoKanji
+Lingua::JA::KanjiTable::InJinmeiyoKanji
3005
3041t3096
309D
309E
30A1t30FA
30FCt30FE
END
}

コメント（0件）

2014/03/08(土)PerlでServer-Sent Events

プログラミング::PerlWeb技術

サーバからPUSHされたイベントを受け取るやつ。（http://www.w3.org/TR/eventsource/）

最初リアルタイムで反映されなくて試行錯誤していたのですが、nginxの設定を変えたらリアルタイムで反映されるようになりました。（http://stackoverflow.com/questions/13672743/eventsource-server-sent-events-through-nginx）

コードは下の通りで「plackup」とかで立ち上げられます。

#!/usr/bin/env perl

use strict;
use warnings;
use AnyEvent;
use Time::Piece;
use HTTP::ServerEvent;

my $AFTER    = 1;
my $INTERVAL = 1;
my $DURATION = 60 * 30; # 秒

my $html = do { local $/; <DATA> };

my $app = sub {
    my $env = shift;

    if ($env->{PATH_INFO} ne '/sse/events')
    {
        return [ 200, ['Content-Type', 'text/html'], [$html] ];
    }

    if ( ! $env->{"psgi.streaming"} )
    {
        my $err= "Server does not support streaming responses";
        return [ 500, ['Content-Type', 'text/plain'], [$err] ];
    }

    return sub {
        my $responder = shift;
        my $writer    = $responder->([ 200, [ 'Content-Type' => 'text/event-stream; charset=UTF-8' ] ]);

        my $cnt = 0;

        my $t; $t = AnyEvent->timer(
            after    => $AFTER,
            interval => $INTERVAL,
            cb       => sub {
                my $now = localtime->strftime('%Y-%m-%d %H:%M:%S');

                my $event = HTTP::ServerEvent->as_string(
                    id   => ++$cnt,
                    data => $now,
                );

                $writer->write($event);

                undef $t if $cnt > $DURATION;
            }
        );
    };
};

__DATA__
<!DOCTYPE html>
<html lang="ja">
<head>
  <meta charset="UTF-8">
  <title>Server-Sent Events</title>
  <script src="http://ajax.googleapis.com/ajax/libs/jquery/2.1.0/jquery.min.js"></script>
</head>

<body>
  <h1>Server-Sent Events</h1>
  <div id="msg"></div>
  <script>
    var eventSource = new EventSource('/sse/events');
    var msg = $("#msg");

    eventSource.onmessage = function(e)
    {
        console.log("message");
        console.log(e.data);

        msg.prepend("<p>" + e.data + "</p>");
    };

    eventSource.onopen = function(e)
    {
        console.log("open");
    };

    eventSource.onerror = function(e)
    {
        console.log("error");
    };
  </script>
</body>

コメント（0件）

2014/03/02(日)Logwatch で Date::Manip unable to determine TimeZone が出た時の対処法

インフラ

とりあえず、rootになって現在のタイムゾーンを確認します。

perl -MDate::Manip::TZ -le 'print Date::Manip::TZ->new->zone;'

正常ならば、「Asia/Tokyo」とか出力されます。

ここで自分の場合は、以下のエラーが出ました。

ERROR: failed to load Date::Manip::Lang::english: Can't locate YAML/Syck.pm in @IN

そのため、「cpanm YAML::Syck」でYAML::Syckをインストールしました。（cpanm がないなら「cpan YAML::Syck」でOK）これで自分の場合はエラーが解消されました。

「Date::Manip::TZ」のドキュメントによると、↓の順番でチェックするようなので、出力がおかしかったら妥当なタイムゾーンが出力されるまでいじりましょう。

main     TZ
env      zone TZ
file     /etc/TIMEZONE
file     /etc/timezone
file     /etc/sysconfig/clock
file     /etc/default/init
command  "/bin/date +%Z"
command  "/usr/bin/date +%Z"
command  "/usr/local/bin/date +%Z"
cmdfield /bin/date             -2
cmdfield /usr/bin/date         -2
cmdfield /usr/local/bin/date   -2
gmtoff

詳細は↓ http://search.cpan.org/~sbeck/Date-Manip-6.42/lib/Date/Manip/TZ.pod#DETERMINING_THE_SYSTEM_TIME_ZONE

コメント（0件）