鰯のテクニカルノート

2007年7月4日

YAML 1.0

FormValidator::Simple::ProfileManager::YAML に読み込ませるため、profile.yml を書いていて、Validator で、DATE チェックをさせる時、On Coding なら以下のように書くのだが、、YAML で書く場合に、どう書いたらいいのか分からず、、ずっと試行錯誤を繰り返し、、２、３時間ハマって、やっと出来たので、忘れないように残しておく。
On Coding の場合

use FormValidator::Simple;

my $result = FormValidator::Simple->check( $query => [
    param1 => ['NOT_BLANK', 'ASCII', ['LENGTH', 2, 5]],
    { date  => ['year',  'month', 'day'] } => ['DATE'],
]);

っと書けばいいのだが、これを YAML で、しかも、ハッシュの状態のまま持たせるには、どうしたらいいのか！？ちなみに、普通はリストで以下のように書く

---
  - param1
  - [ NOT_BLANK, ASCII, [ LENGTH, 2, 5 ] ]
  - date: [ year, month, day ]
  - [ DATE ]

~~っんで、これをハッシュと同じように持たせるには、以下のようにしたら上手くいった~~

---
  param1 : [ NOT_BLANK, ASCII, [ LENGTH, 2, 5 ] ]
  ? date: [ year, month, day ]
  : [ DATE ]

ちなみに、この特殊な書き方をすると、Alias が付けられなかった、、(ただの文字列扱いにされた)
参考：YAML Ain't Markup Language (YAML™) 1.0

っで、最悪な事に、このエントリーを書いていて、それって、自分が作りたい DataObject を、Perl で書いてから、それを、YAML::Dumper で、吐き出せばいいんじゃねっとか思った。。。orz -> 自爆メソッド

ちゃんと YAML を習得しなくてわ、、、

追記：上手くいってませんでした、、、申し訳ないです、、、ただの文字列として判定されていました、、。申し訳ないです。。。m(___)m

CGI::Application::Plugin::FormValidator::Simple::ProfileManager::YAML

を作ってみたｗってか、パッケージ名、長すぎっ(--;)
CPAN Author になりたいけど、これが、最初のモジュールってのも、なんか自分的に嫌だなぁ、、、。

package CGI::Application::Plugin::FormValidator::Simple::ProfileManager::YAML;

use strict;
use vars qw($VERSION @EXPORT);
use warnings;
use FormValidator::Simple::ProfileManager::YAML;

require Exporter;

@EXPORT = qw(
  set_profiler
  get_validate_profile
);
sub import { goto &Exporter::import }

$VERSION = '0.03';

sub set_profiler {
    my $self = shift;
    my ($path_to_profile) = @_;

    if (!$self->{validate_profiler}) {
        $self->{validate_profiler}
            = FormValidator::Simple::ProfileManager::YAML->new(
                $path_to_profile
            );
    }
    return $self->{validate_profiler};
}


sub get_validate_profile {
    my $self = shift;
    return
          $self->{validate_profiler}
        ? $self->{validate_profiler}->get_profile(@_)
        : {};
}


1;
__END__

使い方としては、以下のような感じです


package MyApp;

use strict;
use warnings;

use base 'CGI::Application';

use CGI::Application::Plugin::FormValidator::Simple::ProfileManager::YAML;

sub cgiapp_init {
    my $self = shift;

    $self->set_profiler($path_to_profile);
}

sub mode1 {
    my $self = shift;

    my $profile = $self->get_validate_profile('group1');

    $self->form(@$profile);

    # ～云々～
}

んー、いろいろ抜けてますが、とりあえずこれでいかがでしょうか？

■追記
タイトルが長すぎて、途中で切れてるっ

2007年6月20日

CGI::Application はじめました

いろいろあって、CGI::Application を一度は触っておこうという事になったので、その備忘録とかいろいろ、たぶん、綴っていく予定、、。
とりあえず、sample的なものを作りはじめた。
ディレクトリ構成は今のところ、こんな感じ

/index.cgi
/MyApp     -- /Dispatch.pm
              /Welcome.pm

index.cgi

#!/usr/bin/env perl

use strict;

use MyApp::Dispatch;
MyApp::Dispatch->dispatch();

exit;

MyApp::Dispatch

package MyApp::Dispatch;

use strict;
use base 'CGI::Application::Dispatch';

sub dispatch_args {
    return {
        prefix  => 'MyApp',
        table   => [
            ''         => { app => 'Welcome', rm => 'start' },
            ':app/:rm' => { },
        ],
    };
}

1;

MyApp::Welcome

package MyApp::Welcome;

use base 'CGI::Application';

use strict;
use CGI::Application::Plugin::AutoRunmode;

sub cgiapp_init {
 my $self = shift;
 $self->header_props(-type => 'text/html; charset=SJIS');
}

sub setup {
}

sub start : StartRunmode {
    my $self = shift;

    my $q = $self->query();

    my $output .= $q->start_html(-title => 'Welcome CGI::Application!!');

    $output .= '<h1>Welcome CGI::Application!!</h1>';

    $output .= $q->end_html();

    return $output;
}

"setup" Method が無いと動かない模様、、。まぁ、そのうち使うだろうから定義だけはしておくべし。。。
上記のように作成すると、URL とかが、
http://www.exsample.com/index.cgi/welcome/start
とかアクセスできる

2007年6月15日

CGI - Perl から、Excel の出力

また、いつか使う時が来ると思うので、備忘録的に残しておこう、、サンプルコード。
どこかで、調べてコピッただけ、だけど、、、orz

use Jcode;
use Spreadsheet::WriteExcel::Big;
use Unicode::String qw(utf8 utf16);

print 'Content-type: application/vnd.ms-excel', "\n",
      'Content-Disposition: attachment; filename="結果.xls"', "\n\n";

my $workbook  = Spreadsheet::WriteExcel::Big->new("-");
my $worksheet = $workbook->add_worksheet;
my $format    = $workbook->addformat(font => "MS PGothic");

my ($row_num, $col_num) = (0,0);
for my $row (@rows) {
    for my $col (@$row) {
        $worksheet->write_unicode(
            $row_num, $col_num++,
            utf8(Jcode->new($col)->utf8)->utf16, $format,
        );
    }
    $row_num++;
}
$workbook->close;

注意点としては、、
Spreadsheet::WriteExcel::Big を使う事で、大量データのエクセルを作成できる、Big じゃないものだと、途中で落ちる、、？？とか、あったような、、
あと、utf16 じゃないと文字化けする？？
とか、こんな感じで Excel 作れたよって話し。。。
最新のモジュールとか見直してみた方がいいかも、、、。

sleep は、SIGALRM で解除できる。

最近、daemontools を利用した、perl プログラムを、以下のように書いている

my $END_FLG = 0;
$SIG{HUP} = $SIG{TERM} = sub {
    $END_FLG = 1;
};

while (sleep 60) {
    # ... bla bla bla ...
    exit if $END_FLG;
}

っで、SIGHUP とか SIGTERM とかが来たら、安全な場所で、プログラム停止ができるように組み込んだ、あと、調べて分かった事が、ひとつふたつあるので紹介。SIGKILL は、捕捉したり無視したりできないという事がわかった、それと、SIGSTOP も同じという事が発覚した、、。
参考:perlドキュメント日本語訳 - Perlのプロセス間通信#Signals
そこで、SIGSTOP が捕捉できないって事は、例えば、他サーバーと通信中に SIGSTOP とか受信したら、どうなるんだ？？通信相手には、STOP なんて知らせて無いのに強制停止、この時、返答が来たらどうなるの？？それに、通信中に停止すると、何も通信が無くなるから途中で、コネクションが強制切断されたりする可能性があるし、かなり困るなぁ、、、SIGSTOP が捕捉できないというのは、仕様としてどうなのだろう、、、？？

それと、タイトルの件だけど、sleep が SIGALRM で再開できるってのは、師匠の話によると、alarm を使って、sleep が実装されているとの事、なるほどぉ～！

っで、ふと思ったのだけど、上記に書いた実装方法だと、おそらくだけど、sleep に入って、1秒経過する前に SIGALRM を受信してしまうと、ループから抜けてしまう気がする、、。。

2007年6月8日

Windows ユーザ必見のツール!!

以前にもう一つのブログでも紹介したのですが、いろいろと Tips がたまって来たので、こちらで紹介させて頂きます。ソフトウェアの紹介については、こちらの記事で、、。
っで早速、Launchy の Tips を紹介。

■Launchy から TeraTerm を起動して任意のマクロファイルを実行する

TeraTerm Menu を使わなくても、キーボードだけで、簡単にアクセスできるので非常に便利なワザ。

使い方

ALT + Space → "tt 127.0.0.1" → Enter
etc...

設定方法

Launchy の検索対象のディレクトリ配下に、ショートカットを作成、ショートカットの名前を「tt 127.0.0.1」。※ドメイン名とかが分かり易い
リンク先「"C:\Program Files\TTERMPRO\ttermpro.exe" /M=ttl\127.0.0.1.ttl /nossh」
ショートカットをIndexに登録させるため、コンテキストメニューより [Rebuild Index] を実行

■Launchy から NextFTP を起動して任意の接続先に接続する

使い方

ALT + Space → "nf 127.0.0.1" → Enter
etc...

設定方法

NextFTP の「ホストに接続」ダイアログにて、ショートカットを作成したいホストを選択し、右側の[ｼｮｰﾄｶｯﾄ作成]を押す
デスクトップにショットカットが作成されるので、Launchy の検索対象のディレクトリ配下に、ショートカットを移動
ショートカットの名前を「nf 127.0.0.1」に変更
ショートカットを、インデックスに登録させるため、コンテキストメニューより [Rebuild Index] を実行

※ちなみに、NextFTP のコマンドラインオプションは、ココが詳しい

■Launchy からいろいろな Windows コマンドを実行する

使い方

ALT + Space → "cmd" → TAB → "ping 127.0.0.1" → Enter
ALT + Space → "cmd" → TAB → "ipconfig /all" → Enter
etc...

設定方法

下記のバッチファイルを、Launchy の検索対象のディレクトリ配下に作成
ショートカットを、インデックスに登録させるため、コンテキストメニューより [Rebuild Index] を実行

ファイル名：cmd.bat

@echo cmd command line for here
@echo off 
cd c:\ 
cmd /K "%1 %2 %3 %4 %5 %6 %7 %8"

っと、そんなわけで、Windows での開発環境も、それなりにストレスの溜まらない方向へ、、まぁ、、Mac が使えればそれで、いいのだけどね、、orz
でも、Windows のコマンドラインも、Launchy があれば、それなりに使えるようになります。。というネタでした、、、。

2007年6月4日

今さら「Fizz-Buzz問題」に取り組む。。。

今さらですが、やってみました、、、

どうしてプログラマに・・・プログラムが書けないのか?
とりあえず、問題だけ見て一回目は、1分程で以下のように、、

for (1..100) {
    print ("FizzBuzz\n"), next if ($_ % 3) == 0 && ($_ % 5) == 0;
    print ("Fizz\n"), next if ($_ % 3) == 0;
    print ("Buzz\n"), next if ($_ % 5) == 0;
    print "$_\n";
}

っで、これはひどいので、さらに考えてみた、、

print 
      +(($_ % 3) == 0 && ($_ % 5) == 0 ? 'FizzBuzz'
    : ($_ % 3) == 0 ? 'Fizz'
    : ($_ % 5) == 0 ? 'Buzz'
    : $_)
    , "\n" for 1..100;

あまり変わって無い気がしますが、、、とりあえず、鰯の回答は以上、、後は、他の方のを見て勉強させてもらいます、、、。

登録: 投稿 (Atom)

鰯のテクニカルノート

2007年7月4日

YAML 1.0

CGI::Application::Plugin::FormValidator::Simple::ProfileManager::YAML

2007年6月20日

CGI::Application はじめました

2007年6月15日

CGI - Perl から、Excel の出力

sleep は、SIGALRM で解除できる。

2007年6月8日

Windows ユーザ必見のツール!!

■Launchy から TeraTerm を起動して任意のマクロファイルを実行する

■Launchy から NextFTP を起動して任意の接続先に接続する

■Launchy からいろいろな Windows コマンドを実行する

2007年6月4日

今さら「Fizz-Buzz問題」に取り組む。。。

ブログアーカイブ

ラベル

自己紹介

2007年7月4日

2007年6月20日

2007年6月15日

2007年6月8日

■Launchy から TeraTerm を起動して任意のマクロファイルを実行する

■Launchy から NextFTP を起動して任意の接続先に接続する

■Launchy から いろいろな Windows コマンドを実行する

2007年6月4日

ブログ アーカイブ

ラベル

自己紹介

■Launchy からいろいろな Windows コマンドを実行する

ブログアーカイブ