問題

f();  //  1 
f();  //  2
f();  //  3

クロージャ その１

#!/usr/bin/perl

use strict;
use warnings;

sub outer {
    my $i = 1;

    return  sub {
        print "$i\n";
        $i++;
    };

}

my $f = outer();

$f->(); # 1
$f->(); # 2
$f->(); # 3

クロージャ その２

#!/usr/bin/perl

use strict;
use warnings;

my $f;
{
    my $i = 1;

    $f = sub {
        print "$i\n";
        $i++;
    };

}

$f->(); # 1
$f->(); # 2
$f->(); # 3

クロージャ その３

#!/usr/bin/perl
use strict;
use warnings;

{
    my $i = 1;

    sub f {
        print "$i\n";
        $i++;
    }

}

f();
f();
f();

クロージャの使われどころ

参考

• はてな匿名ダイアリー：PerlのClass::Data::Inheritableの解析
  軽妙な語り口でClass::Data::Inheritableの実装を解説してくれる。もはやこれは文学だ。
Perl のクロージャ - naoyaのはてなダイアリー
クロージャの応用方法について深堀したい方はこちら。

• コマンドラインから実行することを想定しています。
• ユーザ名、パスワード、DB接続情報などは環境に合わせて変更してくださいね。
• サンプルではMySQLを使用していますが、他のRDBMSにも使えると思います。

 #!/usr/bin/perl
 
 use strict;
 use warnings;
 use DBI;
 
 my $user = 'username';
 my $passwd = 'pass';
 my $host = 'localhost';
 my $dbname = 'mysample';
 my $dbh = DBI->connect("DBI:mysql:$dbname:".$host, $user, $passwd);
 
 my $sql;
 my $sth;
 
 # CREATE TABLE
 $sql = "CREATE TABLE prefmaster ( id INT , name VARCHAR(255) ) ";
 $dbh->do($sql);
 
 # INSERT
 $sql = " INSERT INTO prefmaster (id,name) values (1, 'hokkaido') ";
 $dbh->do($sql);
 $sql = " INSERT INTO prefmaster (id,name) values (2, 'akita') ";
 $dbh->do($sql);
 
 # SELECT
 $sql = "SELECT * FROM prefmaster";
 
 $sth = $dbh->prepare($sql);
 $sth->execute;
 
 print "SELECT\n";
 while(my @a = $sth->fetchrow_array){
     print "@a\n";
 }
 print "\n";
 
 # UPDATE
 $sql = " UPDATE prefmaster SET name = 'iwate' WHERE id = 2 ";
 $dbh->do($sql);
 
 # DELETE
 $sql = " DELETE FROM prefmaster WHERE id = 1 ";
 $dbh->do($sql);
 
 # SELECT AGAIN
 $sql = "SELECT * FROM prefmaster";
 
 $sth = $dbh->prepare($sql);
 $sth->execute;
 
 print "SELECT\n";
 while(my @a = $sth->fetchrow_array){
     print "@a\n";
 }
 print "\n";
 
 
 # DROP TABLE
 $sql = " DROP TABLE prefmaster ";
 $dbh->do($sql);
 
 
 $sth->finish;
 $dbh->disconnect;

 $ sudo apt-get install php5-dev

アップグレードの前に

• Ubuntu 9.04からUbuntu 9.10へは直接アップグレードができます（UpgradeNotes（英語）を見てください）
• アップグレードの前にUbuntu 9.04における全パッケージのアップデートを必ず実施してください。

追記

• 下記の内容のテキストファイルを作って、"getFullPath.mac"というファイル名で、秀丸本体と同じ場所に保存してください。

setclipboard filename;

WindowsXPの場合は"C:¥program Files¥Hidemaru¥"になります。
（他の場所でもＯＫです。）
• メニュー＞マクロ＞マクロ登録
  で、タイトル名に「フルパス取得」など入力。ファイル名の欄で、"getFullPath.mac"を選択すればＯＫです。

$this->logger->log(LOG_DEBUG, 'view class is not defined for [%s] -> use default [%s]', $forward_name, $class_name);

$this->logger->log(LOG_DEBUG, 'view class is not defined for [%s] -> use default [%s]', $forward_name, $class_name);
trigger_error( sprintf( 'view class is not defined for [%s] -> use default [%s]', $forward_name, $class_name) );

YukiWikiMiniのJavaScript移植版

• YukiWikiMini：Webサーバに設置して公開して使う。(もしくは社内Web等で使う)
• JSWikiMini：ローカルPCに置いて自分ひとり(もしくは共有フォルダにおいて仲間内だけで)で使う

動作もサクサク超高速

USBメモリ、SDカードに入れても動く

　インターネットは変化が激しく、チャンスも生まれやすい土壌ですが、そうはいってももしかしたらこれが残り少ない非常に大きなチャンスのひとつかもしれないという気持ちは捨てられませんでした。
これに賭けてみたいとミーティングでメンバーを説得していきました。

　FriendsterのCEOだったTim Koogle氏が以前、CNETの記事で
「インターネットにある大きな機会はすべて利用し尽くされた、と誰もが考えた時に、そもそもルール自体を変えてしまうような企業が登場する」
と発言していましたが、それと同じ気持ちでした。
2003年当時も、あらゆるサービスが出尽くした感がありましたが、SNSは市場のルールを変えることができる革命性のあるサービスであり、やらない手はないと考えたんです。
なぜmixiはこれほど成功したのか--笠原社長が明かす開発秘話

ソースコードが読みやすい

あのGreeが使っている

覚えることが少ない

function _trigger_WWW($default_action_name = "", $fallback_action_name = "")
{
    // アクション名の取得
    $action_name = $this->_getActionName(
            $default_action_name, $fallback_action_name
    );

    // アクション定義の取得
    $action_obj =& $this->_getAction($action_name);

    $this->action_name = $action_name;

    $backend =& $this->getBackend();

    // アクションフォームを呼び出し
    $form_name = $this->getActionFormName($action_name);
    $this->action_form =& new $form_name($this);
    $this->action_form->setFormVars();

    $backend->setActionForm($this->action_form);

    // セッションスタート
    $session =& $this->getSession();
    $session->restore();

    // アクション実行
    $forward_name = $backend->perform($action_name);

    // ビュー呼び出し・実行
    if ($forward_name != null) {
        $view_class_name = $this->getViewClassName($forward_name);

        $this->view =& new $view_class_name(
            $backend, $forward_name, $this->_getForwardPath($forward_name)
        );

        $this->view->preforward();
        $this->view->forward();
    }

    return 0;
}

• アクションフォームの呼び出し(インスタンス化)、初期化
• アクションクラスの呼び出し、実行
• ビュークラスの呼び出し（インスタンス化）、実行
• プログラム全体の終了

Fatal error: Call to undefined function pg_connect() 

原因

• Apacheモジュールとして動作する場合: c:\windows\php.ini
• コマンドラインのコマンドとして動作する場合: c:\php5\php.ini

対処法

;extension=php_pgsql.dll
↓
extension=php_pgsql.dll

php_pgsql.dllが読み込まれているかを確認する方法

>php -i

エラー

>php -f foo.php
Fatal error: Call to a member function execute() on a non-object in Ethna_DB_ADOdb.php on line 210

原因

エラー

>ethna add-action ...なんとかかんとか
Fatal error: Cannot redeclare class Ethna in ... Ethna.php on line 424 

原因

• PEARチャンネルでインストールしたEthna (C:\php5\PEAR\Ethnaみたいな場所にある)
• 既に作ったプロジェクトのlibフォルダ内のEthna (C:\www\myproject\lib\Ethna)

対処法

@echo off

rem
rem   ethna.bat
rem
rem   simple command line gateway
rem
rem   $Id: ethna.bat 457 2007-02-07 11:14:39Z ichii386 $
rem

if "%OS%"=="Windows_NT" @setlocal

if NOT "%PHP_PEAR_INSTALL_DIR%" == "" (
rem set DEFAULT_ETHNA_HOME= %PHP_PEAR_INSTALL_DIR%\Ethna
set DEFAULT_ETHNA_HOME=.\lib\Ethna
) ELSE (
set DEFAULT_ETHNA_HOME=%~dp0
)

goto init
goto cleanup

:init

if "%ETHNA_HOME%" == "" set ETHNA_HOME=%DEFAULT_ETHNA_HOME%
set DEFAULT_ETHNA_HOME=

if "%PHP_COMMAND%" == "" goto no_phpcommand
if "%PHP_CLASSPATH%" == "" goto set_classpath

goto run
goto cleanup

:run
rem IF EXIST "C:\php5\pear\Ethna" (
rem %PHP_COMMAND% -d html_errors=off -qC "C:\php5\pear\Ethna\bin\ethna_handle.php" %1 %2 %3 %4 %5 %6 %7 %8 %9
rem ) ELSE (
%PHP_COMMAND% -d html_errors=off -qC "%ETHNA_HOME%\bin\ethna_handle.php" %1 %2 %3 %4 %5 %6 %7 %8 %9
rem )
goto cleanup

:no_phpcommand
set PHP_COMMAND=php.exe
goto init

:set_classpath
set PHP_CLASSPATH=%ETHNA_HOME%\class
goto init

:cleanup
if "%OS%"=="Windows_NT" @endlocal
REM pause

function _trigger_WWW($default_action_name = "", $fallback_action_name = "")
{
    // アクション名の取得
    $action_name = $this->_getActionName($default_action_name, $fallback_action_name);

    // マネージャ実行チェック
    $this->_ethnaManagerEnabledCheck($action_name);

    // アクション定義の取得
    $action_obj =& $this->_getAction($action_name);
    if (is_null($action_obj)) {
        if ($fallback_action_name != "") {
            $this->logger->log(LOG_DEBUG, 'undefined action [%s] -> try fallback action [%s]', $action_name, $fallback_action_name);
            $action_obj =& $this->_getAction($fallback_action_name);
        }
        if (is_null($action_obj)) {
            return Ethna::raiseError("undefined action [%s]", E_APP_UNDEFINED_ACTION, $action_name);
        } else {
            $action_name = $fallback_action_name;
        }
    }

    // アクション実行前フィルタ
    for ($i = 0; $i < count($this->filter_chain); $i++) {
        $r = $this->filter_chain[$i]->preActionFilter($action_name);
        if ($r != null) {
            $this->logger->log(LOG_DEBUG, 'action [%s] -> [%s] by %s', $action_name, $r, get_class($this->filter_chain[$i]));
            $action_name = $r;
        }
    }
    $this->action_name = $action_name;

    // 言語設定
    $this->_setLanguage($this->language, $this->system_encoding, $this->client_encoding);

    // オブジェクト生成
    $backend =& $this->getBackend();

    $form_name = $this->getActionFormName($action_name);
    $this->action_form =& new $form_name($this);
    $this->action_form->setFormVars();

    // バックエンド処理実行
    $backend->setActionForm($this->action_form);

    $session =& $this->getSession();
    $session->restore();
    $forward_name = $backend->perform($action_name);

    // アクション実行後フィルタ
    for ($i = count($this->filter_chain) - 1; $i >= 0; $i--) {
        $r = $this->filter_chain[$i]->postActionFilter($action_name, $forward_name);
        if ($r != null) {
            $this->logger->log(LOG_DEBUG, 'forward [%s] -> [%s] by %s', $forward_name, $r, get_class($this->filter_chain[$i]));
            $forward_name = $r;
        }
    }

    // コントローラで遷移先を決定する(オプション)
    $forward_name = $this->_sortForward($action_name, $forward_name);

    if ($forward_name != null) {
        $view_class_name = $this->getViewClassName($forward_name);
        $this->view =& new $view_class_name($backend, $forward_name, $this->_getForwardPath($forward_name));
        $this->view->preforward();
        $this->view->forward();
    }

    return 0;
}

• アクションフォームの呼び出し(インスタンス化)
• アクションクラスの呼び出し（インスタンス化）
• ビュークラスの呼び出し（インスタンス化）
• プログラム全体の終了

Ethnaのプログラム実行処理は、index.phpから始まって、trigger()で終わる。

coLinuxをダウンロード

• http://www.colinux.org/ coLinuxのサイトに行きます。


• "Downloads (binary and source)"というページに行きます。




• "coLinux-stable"の"download"をクリックします。
• filenameが"coLinux-0.7.4.exe"というのをダウンロードしてください。
• 普通に実行してインストールが始まります。

coLinuxをインストール

• インストール先は"C:¥colinux"に設定。（デフォルトのままでもOKです。）
• Root Filesystem Image Downloadのところにチェックを入れて、Ubuntuを選択。
• TAP-Win32 というドライバをインストールするか聞かれるので、インストール。
• Ubuntuのイメージファイル(Ubuntu-7.10.ext3.2GB.7z)がダウンロードされたことを確認

Ubuntuイメージファイルを解凍

confファイルを作る

• coLinuxフォルダにある、example.confをコピーしてubuntu.confに名前変更
• ubuntu.confを開いて、下記のように書き換えます。

20行目付近

cobd0="c:\coLinux\root_fs"

↓(Ubuntuイメージファイルを指定)

cobd0="c:\coLinux\Ubuntu-7.10.ext3.2gb.fs"

23行目付近

#cobd1="c:\coLinux\swap_device"

↓(コメントを外す)

cobd1="c:\coLinux\swap_device"

23行目付近

#eth1=tuntap

↓

eth0=tuntap

起動！

C:\coLinux>colinux-daemon.exe @ubuntu.conf