x::Model::CDBI is using the deprecated Catalyst::Base,

update your application as this will be removed in the next major release

at /usr/local/lib/perl5/site_perl/5.10.1/Catalyst/Base.pm line 7.

package Catalyst::Model::CDBI;


use strict;

use base qw/Catalyst::Base Class::DBI/;

use NEXT;

use Class::DBI::Loader;

our $VERSION = '0.11';

__PACKAGE__->mk_accessors('loader');

てな訳で、最新のバージョンは取ってこれないんだろうか？と
perl -MCPAN -e 'upgrade Catalyst::Model::CDBI' と打つも
「All modules are up to date for Catalyst::Model::CDBI」と表示されてしまい終了。

仕方ないので、cpan.org に行って、調べてみると
最新版は 0.12 らしいので、その tar.gz を wget してから
毎度の perl Makefile.pl 、 make 、 make install でインストール。

それから改めて ./script/x_server.pl を実行してみると、
めでたく「update your application」の文言は表示されなくなったのでした。

ちなみに 0.12 の Catalyst::Model::CDBI のコードは

package Catalyst::Model::CDBI;


# work around CDBI being incompatible with C3 mro, due to both Ima::DBI and Class::DBI::__::Base

# inheriting from Class::Data::Inheritable in an inconsistent order.

BEGIN {

    require Class::DBI;

    @Class::DBI::__::Base::ISA = grep { $_ ne 'Class::Data::Inheritable' } @Class::DBI::__::Base::ISA;

}

use strict;

use base qw/Catalyst::Component Class::DBI/;

use MRO::Compat;

use Class::DBI::Loader;

our $VERSION = '0.12';

__PACKAGE__->mk_accessors('loader');

それにしても、

require x::Model::CDBI::Test was successful but the package is not defined. at /usr/local/lib/perl5/site_perl/5.10.1/Catalyst/Utils.pm line 286.

てな訳で、ふと思い出して、久々にいじってみる。

perl -MCPAN -e 'install Catalyst::Helper::Model::CDBI'

perl -MCPAN -e 'install Class::DBI::mysql'

それから、テスト用の database と テーブルを用意し、
./script/xxx_create.pl model CDBI CDBI DBI:mysql:test ユーザー名 パスワード
などと打って、Model 部分を自動で作ってもらったつもりが。

...が。

./script/xxx_server.pl と打つと、何やら見慣れないエラーが。

require x::Model::CDBI::Test was successful but the package is not defined.

at /usr/local/lib/perl5/site_perl/5.10.1/Catalyst/Utils.pm line 286.

Couldn't instantiate component "x::Model::CDBI", "Inconsistent hierarchy during

C3 merge of class 'Class::DBI::__::Base': merging failed on parent

'Class::Data::Inheritable' at /usr/local/lib/perl5/5.10.1/i686-linux-thread-multi/mro.pm

line 24."Compilation failed in require at /home/anigon/Hello/script/x_server.pl line 66.

・・・はて？

仕方ないので、あれこれググって
これとか、あれこれ見つけるも、
「これだー！」という解決方法が見つからず、
しばし途方に暮れる。
う"ー、Class::DBI::Loader　のバージョンは 0.34 だしなぁ...。

ふー。夕飯でも作るか。
じゅーじゅー。（←フライパンで焼いてる）

そして夕飯後。

改めて気合を入れてググった結果、継承順に問題があるらしいとかって話を見かけ
試しに Catalyst モジュールを書き換えてみる。

・/usr/local/lib/perl5/site_perl/5.10.1/Class/DBI.pm

use base qw(Class::Accessor Class::Data::Inheritable Ima::DBI);

use base qw(Ima::DBI Class::Data::Inheritable Class::Accessor);

それから、再び xxx_server.pl で起動してみると、
今度は違う文言が表示されつつも、起動は出来た模様。

ふーむ。それでいいのか？
その文言をよく読むと、こんな事が書いてある。

x::Model::CDBI is using the deprecated Catalyst::Base,

update your application as this will be removed in the next major release

at /usr/local/lib/perl5/site_perl/5.10.1/Catalyst/Base.pm line 7.

はぁ、your application って言われてもなぁ。
Catalyst を新しくしろって事なのかな？
それとも、一部の Plugin とか？と思いつつ
とりあえず Catalyst の update してみる。

perl -MCPAN -e 'upgrade Catalyst::Runtime'

perl -MCPAN -e 'upgrade Catalyst::Devel'

じゃあ、もしかすると、今回使ってたアプリケーションを
catalyst.pl で作った時はモジュールが古かった？とかって事もあるのかしら？
などと適当なことを思い、再度 catalyst.pl から、やり直すも同じ結果。

うーん。よくわかんないけど、次のバージョンの Catalyst を待てって事かなぁ？
まぁ、動いたから、いっか。

自業自得なので、私自身がひどいメに遭うのは仕方ないとして
一緒にバグ対応に追われた人達や
その症状にぶつかっちゃったユーザーの皆さんに対して
申し訳ない気持ちでいっぱいです。

ごめんなさい。

でもね。

プログラマとして、普通のお仕事より少し高い時給で働かせていただいてるって事は
それだけの技術力を求められているからなのであって。

だから、この職業を選んでいる限りは、日々自分は成長せなアカンし、
「わからない」ことを誰かのせいにしたり、
「誰も教えてくれない」と嘆いて終わりにする訳にいかないんですよ。

わからない事は、自分でせっせと資料集めて、英文だろうが独語だろうが
読んで実験しまくって、頭で理解して、仕事で使えるようにせなアカンのです。

中には何処にも資料のない問題に遭遇する事もあるのだし
「誰も教えてくれない」のはむしろ当然で、
誰も教えられないものだってあるのです。

だから、こんだけ無理が続いている状況だけど
とりあえず、段々勉強する暇も体力も気力もなくなってきているのに
「プログラマ」としてお仕事させていただくのは「おこがましい」とも思ったり。

「わからない」と嘆くだけなら、辞めてしまえ。
文句ばっか言ってないで、まずはそこを乗り越える努力をしないと。

自信がないから、何も出来ないんじゃなくて。
逃げてるから、自信がなくなるんだから。

昨年11月頃からの仕事で、
心も身体もヘロヘロになってる
あにごんです。

その案件も、いよいよ明日リリースとなりまして
あまりのスリリングさに、頭がクラクラしているのですが。

悲しいかな、こんなタイミングでバレンタイン。

今年は昨年のバレンタインを経験した女子がいない為
習慣は特に決まってなく、
さらに14日は日曜日で同僚さん達に顔を合わせる事も、たぶんないし
穏やかに（？）大人しく、その日を過ごせば良いものと思っておりましたー。

が。

土日祝日出勤＆残業三昧でグッタリしている中、
とあるお昼休みに同僚さん（女子）と話してみたら
もうネットで義理チョコを発注した、との事。え"ー！

でも「良かったら、それに乗っからない？（割り勘して一緒に贈らない？）」と
有難いお誘いがあったので、金額や発注したチョコの内容を聞いてみると
どうも2人からの義理チョコとしては、ちょっとボリューム的に無理っぽい...というか
「義理チョコ1人分」な雰囲気をプンプンかもし出している模様。

う"ーん（汗）

てなこったで、私も単独で義理チョコを用意する事となり
慌てて職場の男性を数えて見ると、
同じ部署の男性と、違う部署でお世話になっている人の合計は20人。

うー、安く抑えられて1人200円程としても、20人で4,000円。
1日の食費＆雑費を 1,666円と決めて生活している身としてはダメージになる上、
200円のチョコって、見た目、あまりにも「義理チョコ」かもなぁ...orz

かくして、弱った頭と身体で数日考えて、出した結論は
「手作りで乗り切る」。

最近はあまりに多忙でお料理する機会が減っているけど
お菓子作りは好きだし、
世の中には手作りキットが売り出されているらしいし、
MUJI では私が作ってみたかった「マカロン作りキット」まであるらしいし、それでいいやー。

でも、ここで冷静にならなーアカンのは、
同僚さんが12日にチョコを配ると言っている事。

同じ部の同じチームの唯一の私以外の女子の彼女が12日と言うなら
私も同じタイミングで配布した方が無難だけど
手作りだと日持ちしないので、寸前の11日しか作るタイミングはなさそうだ。

ほんとか？私、初挑戦でマカロン作れるの？
一発勝負だよ？大丈夫なのか、私？
失敗したら、代替品を用意せなアカンから、余計に高くつくかもよ？

...と、あれこれ迷いつつも、平日は朝から終電近くまで仕事で過ぎていき
気付けば、もうバレンタイン1週間前。

とりあえず、まずは
私が大好きなドイツ製の天道虫の形をしたミニチョコを、ソニプラで20人個入手。

義理チョコは、手作りマカロンをメインにするつもりだけど、
これはこれで、赤くてかわいいし、美味しいし、縁起いいし、
ラッピングした物に貼り付けたりして、アクセントにも使えるので、
何かに使えるんじゃないかと。ちなみに1個50円程。

それから、100円ショップに行って、20人分のラッピング用の袋を手配。
5枚の袋&5本のチェックリボンを4セットで、420円。

そして、目的のマカロンキットを買いにMUJIに行ってみると...
肝心のマカロンキットだけ、ない。

みんな考える事は一緒で、マカロンを作ってみたかったに違いない。
人気で売り切れたっぽい...嗚呼。

その場でしばし立ちつくし、
よーく考えた結果、手にしたのは
「自分でつくる　ショコラのプチマフィン」と
「自分でつくる　いちごのプチマフィン」だった。

よしっ、後は11日に頑張るだけだ！

そして、迎えた前日の2月10日。
リリース間近の案件も、なんとか形になってきたかなー...という所で
朝会ならぬ夕会で、チーム全体の進捗確認した結果、
遠慮がちなマネージャーからのご意見で
私も11日に祝日出勤した方が良い事に。

確かに、皆出社するって言ってるしなぁ。
私が仕込んじゃってるバグも沢山あるだろうし、
休んじゃ申し訳ないよなぁ...。うー。

てな訳で、せめて午後から出社にしてもらい
11日は朝から、衛生面に気をつかい、マスクにエプロン姿で、
バタバタとプチマフィンを作っていたのでした。

でも、予想以上に簡単だったし、予想以上に大きく立派に膨らんで
膨らみ過ぎて、オーブンん中でパンパンになって
一部のマフィンが変形しちゃってたけど（苦笑）
焼きあがったマフィンを冷まし、それから溶かしたチョコにつけて
オレンジピールかイチゴのフリーズドライを載せたら
そこそこ、かわいく完成。

小さい冷蔵庫の中に、大量のプチマフィンを突っ込んでから出社し、
終電間際で帰ってきたら、今度は梱包作業。

多めに作っておいたから、そこそこ形の良いのを選んでは
天道虫チョコと一緒に袋に入れて、チェック柄リボンで結んで出来上がり。

こうしてやっと12日当日、満員電車で押しつぶされないように
プチマフィンを会社に運び、やっと配布する事が出来たのでした。
はぁー、大変だったーorz

そんな訳で、皆さんに無事お渡しして、食べていただき
おまけに気を使ってか「美味しい」とのお言葉もいただけて
悩んで選んで頑張って作った甲斐がありましたー(^-^)

ちなみに予算的には、材料の卵2個と牛乳分を抜くと、
1人あたり 50円程（チョコ） + 21円（ラッピング） + 63円（プチマフィン） = 134円程でした。

本当はプチマフィンキットにも、ラッピング袋が入っているので
そのキットだけ買っても良かったんだけどねー。
なにはともあれ、安い予算で、そこそこかわいいもんが作れて、えがったえがった。

いやー、それにしても、久々のお菓子作りだったけど、やっぱり楽しいなぁ。
ストレス解消になるから、時間と体力に余裕が出来たら、また何か作ろうっと。

昨年12月は、激しく頭と心と体力を使いまくった月となりまして、
30日まで出勤してたので年賀状が...orz

例年通りと言えば、そうなんですが
今年も年賀状、遅くなりますので、ごめんなさい。

なにはともあれ、みんなにとって有意義な1年でありますように。

2009年は何故か「強い人」と言われる事が多かったのですが、
「あにごん」の装備出来る武器は「諸刃の剣」か「毒針」程度なので
そんなに強くないと思って扱っていただければ幸いです（苦笑）

身体が弱いこと。
結構神経質なこと。
本当は激しくネガティブ思考なこと。

これらを言い訳にして、
何かから逃げたり誰かのせいにしたくないから
出来るだけ、その問題が発生する手前で食い止めようと
いろいろ努力した結果、
たまたま自分の望む道を歩めただけであって、
何が起きても、心や身体が平気な訳じゃないです。

勿論、これは私だけがそうなんじゃなくて、
誰だってそうなんじゃないかなぁ。

丁度10年前にも口にした言葉です。

若かろうが歳くっていようが、男性だろうが女性だろうが、関係なく
辛いもんは辛いし、痛いもんは痛い。

辛いと嘆いたり、不満を愚痴ったり、
誰かを羨んだり、誰かの悪口を言うのは、簡単。

そうじゃなくて、どうしたら状況改善出来るのか、
自分をどう変えたら、状況が変わるのか
それを考えて実行出来るのが、
生きてるって事なんじゃないのかな？

てな訳で、そうやって、めっさ努力して生きてる人、愛してますよー。
ほんでは、今年もよろしくお願いします　m(_ _)m ぺこり

・Elch.pm（Mooseがシカらしいんで、独語でシカにしてみた）

package Elch;


use Exporter;

@ISA    = (Exporter);

@EXPORT = qw(has);

my ($class, $file, $line)  = caller;

sub has {

    my $method  = shift;

    my ($arg)   = @_;

    my $routine = {};

    if (exists $arg->{'is'}) {

        my $is  = $arg->{'is'};

        if ($is eq 'ro') {

            $routine    = sub {

                die "this is readonly" if scalar @_ > 1;

                return $_[0]->{$method};

            };

        } elsif ($is eq 'rw') {

            $routine    = sub {

                return $_[0]->{$method} = $_[1];

            };

        }

    }

    *{"${class}::${method}"}   = $routine;

}

*{"${class}::new"} = sub {

    my $self    = shift;

    my (%arg)   = @_;

    my $member  = {};

    foreach my $key (keys %arg) {

        $member->{$key} = $arg{$key};

    }

    bless $member, $self;

};

1;

・Mensch.pm

package Mensch;


use Elch;

has name => {

    'is' => "ro",

};

1;

・test.pl

#!/usr/bin/perl -w


use strict;

use Mensch;

my $obj = Mensch->new(name => 'anigon');

print $obj->name, "\n";

exit;

http://libpanda.s18.xrea.com/commentary.txtを参考に続けますー。

「14 00 00 00」は 0x0014 と解釈して良いらしいので
20byte分、値が続いている模様。

その20byte分「96 0F 00 00 74 65 73 74 00 00 41 42 43 44 45 46 47 00 3C 00」は
こんな風↓に解釈するらしい？

まずは「96」は、Action の 0x96 「Push Data」。
続いて「0F 00」は、Push する長さで 0x000F だから、15byte。

ここから素直に 15byte 持ってくると
「00 74 65 73 74 00」で「test」
「00 41 42 43 44 45 46 47 00」で「ABCDEF」を入れてるような気が。

その後「3C」が Action の 0x3C「Set Local Variable」で
続く「00」が、Action の 0x00「End」を示していて、この Push は終了。

次の2byteは「40 00」（0x0040=1 000000）は、1番ShowFrameで長さはなし。

で、実はもう1つ変数「next='abcdef';」も仕掛けてあるので、
まだ Action は続いていて。

また「3F 03」で 12番DoAction が始まって、
長さは「13 00 00 00」だから、
19byteで「96 0E 00 00 6E 65 78 74 00 00 61 62 63 64 65 66 00 3C 00」が対象。

ここも「96」は、Action の 0x96 「Push Data」で
「0E 00」は、Push する長さで 0x000E だから、14byte。

「00 6E 65 78 74 00」で「next」、
「00 61 62 63 64 65 66 00」で「abcdef」となり。

「3C」が Action の 0x3C「Set Local Variable」
「00」が Action の 0x00「End」を示していて、この Push も終了。

で、また2byteは「40 00」（0x0040=1 000000）は、
1番ShowFrameで長さはなし。

最後に「00 00」 が 0番「End」として入って終了。

ちなみに変数を設定する時に、「var test='ABCDEFG';」としたので
「3C」の「Set Local Variable」が実行されているけど、
これを「test='ABCDEFG';」にすると、
「1D」の「Set Variable」が代わりに入りましたー。

swfファイルをバイナリエディタで見て
何処に変数が入っているか確認。

...って、ただ眺めたんじゃ、そりゃ何もわからないので
Yoyaさんのサイトと、
そこから辿れる「Alexis' SWF Reference」を参考に、勉強させていただく。
ありがたやーm(_ _)m

[offset]: +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F  0123456789ABCDEF 
----------------------------------------------------------------------------
00000000: 46 57 53 07 38 00 00 00 78 00 05 5F 00 00 0F A0  FWS.8...x.._... 
00000010: 00 00 0C 01 00 43 02 FF FF FF 3F 03 14 00 00 00  .....C.?..... 
00000020: 96 0F 00 00 74 65 73 74 00 00 41 42 43 44 45 46  ・..test..ABCDEF 
00000030: 47 00 3C 00 40 00 00 00                          G.<.@...         

頭3byte「46 57 53」は「FWS」で、ファイルの種類を指し
次の1byte「07」はバージョンが 7　である事を示し、
次の4byte「38 00 00 00」は、「0x00000038」で、ファイル容量 56byte である事を指す。

次の「78 （0111 1000）」は、頭5bit「01111」が、その後に続くbit を分割する単位を示し、
つまり、15bit 毎に区切ってみていかないとアカン、と。

するってーと、「78 00 05 5F 00 00 0F A0 00 00 0C 01...」から、
頭5bit取った残りを、15bit毎で区切る、と。

xmin 「000 0000 0000 0000」
xmax 「0101 0101 1111 000」
ymin 「0 0000 0000 0000 00」
ymax 「00 1111 1010 0000 0」

結果、xmin=0、xmax=11000、ymin=0、ymax=8000 となって、
これを 20 で割った数が pixel になるそうだから、えーっと、
xmin=0、xmax=550pixels、ymin=0、ymax=400pixels なので。

つまり、横幅（x）が、550pixels、縦幅（y）が、400pixels だと。
おぉ、Flashで作ったファイルの設定と同じだー。

それから、レート（unsigned short）が続くんで、16bit を確保したいんだけど
前述の ymax で 00（0000 0000）のうち、頭1bitだけ使ってるのが気になる。
これ、残りは 0 で埋めた感じなのかな？

とりあえず、Flashでファイル作った時の設定は 12fps にしてあるので
「00 0C」（0x0C00）は、実数を「0C」、コンマ以下を「00」と見なせば
12.0 となって、正解かも。

続いて、フレーム数が「02 00」（0x0002 ）だから、2フレームで正解。

で、ここまでが、ファイルヘッダー。
ここから先が、SWFタグ。

頭2byteは「43 02」（0x0243=1001 000011）は、
後ろ6bitが値を示している部分の長さなので、
9番SetBackgroundColorで、長さは3byte、
だから、続く3byte「FF FF FF」が背景色（白）を指している、と。

続く2byteは「3F 03」（0x033F）は、12番DoAction、
長さが0x3Fで、これは特別で、続く4byteが長さになるので
「14 00 00 00」が長さ。んあ？すんごく長いような（汗）

うーん、この辺りは、もっとちゃんと時間かけて見ないとダメですね。

GET なり、POST なり、どちらにしても
キー=値&キー=値 の文字列で送られる訳なので、
つまりは、test=2&test=1 と送信されて
これを素直に左から右に順に1つ1つ処理していけば、
ちゃんと 2 1 の順で格納出来るものの。

この格納した値を、順番を意識せず、
なんやかんやと、ハッシュに入れなおしたり
foreach なんかしちゃうと、
勿論、それは保証出来ないのでして。

かくして、そういやぁ、Catalyst ではどうなの？と思い、
家に帰ってからテスト。

<html>

    <body>

        <form method="post" action="/">

        <input type="checkbox" name="test" value="B" />

        <input type="checkbox" name="test" value="2" />

        <input type="checkbox" name="test" value="11" />

        <input type="checkbox" name="test" value="a" />

        <input type="checkbox" name="test" value="1" />

        <input type="checkbox" name="test" value="b" />

        <input type="checkbox" name="test" value="3" />

        <input type="checkbox" name="test" value="A" />

        <input type="submit" />

        </form>

    </body>

</html>

Controller で $c->req->param('test') の値を
グルグル順に見てみたところ、期待通りに
B 2 11 a 1 b 3 A の順で配列のリファレンスとして格納されていたのでした。
えがったえがった。

って、いや、家だと FastCGI 入れてないから、
職場の環境と、ちょっと動きが違ったら嫌だなぁ。
明日会社でも、一応実験してみるかー。

名前の無いハッシュへのリファレンスは、中括弧を使って作ることができます:
...
開き中括弧が BLOCK の開始でないことを Perl に教えるために、文の最初の中括弧の前に + や return をつけて、曖昧さをなくすようにする必要がある場合があります。
...
sub hashem { { @_ } } # ちょっと間違い
sub hashem { +{ @_ } } # ok
sub hashem { return { @_ } } # ok

#!/usr/bin/perl -w


use strict;

use Benchmark qw(:all);

my $result      = timethese(10000, {

                    'normal'    => sub {

                        my @test    = ();

                        push @test, &normal('test') for (1..1000);

                    },

                    'plus'      => sub {

                        my @test    = ();

                        push @test, &plus('test') for (1..1000);

                    },

});

cmpthese($result);

exit;

sub normal {  { param => $_[0] } }

sub plus   { +{ param => $_[0] } }

結果。

Benchmark: timing 10000 iterations of normal, plus...

    normal: 30 wallclock secs (29.84 usr +  0.14 sys = 29.98 CPU) @ 333.56/s (n=10000)

      plus: 34 wallclock secs (33.28 usr +  0.15 sys = 33.43 CPU) @ 299.13/s (n=10000)

        Rate   plus normal

plus   299/s     --   -10%

normal 334/s    12%     --

Benchmark: timing 10000 iterations of normal, plus...

    normal: 32 wallclock secs (32.15 usr +  0.15 sys = 32.30 CPU) @ 309.60/s (n=10000)

      plus: 34 wallclock secs (33.27 usr +  0.14 sys = 33.41 CPU) @ 299.31/s (n=10000)

        Rate   plus normal

plus   299/s     --    -3%

normal 310/s     3%     --

...そうですか。 +{} のが遅い、と。ふむ。
ちなみに return {} のバージョンも含めて、計測してみたけど
速い順で言うと {}、return {}、+{} でした。

そんな中、komichan さんのお誕生日会で
久々の komichan さん＆息子さんとうるうるさん＆まじこさんに会った。

しかも、結構忙しい面々となってしまい、
予定をあわすのも、結構大変な感じになってきましたが、
それでも年4回はお互いの誕生日を祝い続けて...えっと、もう何年目ですかね？

今回はパスタとタルトをいただきながらも、
ダイエットだの、肩凝りがひどいだの、とゆー話題になり
なんだったら次回は、少しスポーツっぽい事でもしますか...という事に。

次回は、うるうるさんの誕生日会のはずだけど、どーなるかなぁー。
ってーか、その頃、私の予定はどうなるんだろう？
最近、自分で管理してる案件じゃないから、先が見えなくてなぁー...。

なにはともあれ、komichan さんには、5月頃に会う事が出来なかったので
今になってお誕生日を祝っていただき「からし高菜風ドロップス」などをいただきました。
すんばらしい。何故にいつも面白い物を見つけてくるんですか、komichan さん（笑）

ちなみにお味は、最初がぼんやりした「甘いような味がないような」味で
後から「ピリリ」と、からしらしさが追ってきまして、なんともう"ーん。
1個食べれば十分だったので「あとは会社に持っていって配ったら？」との
komichan さんのアドバイスに素直に従い、後日、会社で配布したのでした。

そんな中、レディースデーだったので、映画を観ようと会社帰りに寄ってみたのは
マイケル・ジャクソンの「This is it」。

たまたま公開初日で、めちゃくちゃファンだった訳ではないし、
曲もそんなに聴いていた訳じゃないのに、何故観に行ったのか？ってーと。

彼が亡くなった後、とある場所で「マイケル・ジャクソン・トリビュート」と題したPV集を見てたら
流れてた「Remember the time」が、よくわからないけど、むちゃくちゃ悲しく感じてですね。

その時、初めて「あー、彼はもういないのかぁ」とか
勝手に「きっと大変だったけど、有意義な人生だったんだろうなぁ」なんて思って、
それで、改めてその曲を歌う彼の姿をネット上で検索しまくったのだけど。

ちゃんと振り付きでちゃんと歌ってるのはPVの時だけなようだったので
もしかすると、映画ん中で歌っててくれないかなー...って期待して行った次第。

結果、残念ながら映画の中で、その曲は出てこなかったんだけど、
映画で今まで気にした事なかった曲を聴いてみたり、
リハーサルでの、周りとのやり取りとか見てたら、
なるほど、みんなが期待する人物になろうと頑張った人なんだなぁ...と
改めて...というか、初めてちゃんと、彼という人間を知った気になったのでした。

で、彼の訴えたい事とか目指すものとか価値観は、私のとは勿論違うし、
どう考えても何処も共通点はないだろう...と思っていた存在だったけど。

でも、ああやって何歳になっても、ずーっと頑張ってた人だから
あぁやって憧れて頑張れる人達がいて、その人達が集まってきて、
すごいもんや面白いもんを作り出せるんだろうなぁー...って想像したら
いいなぁ...と素直に思えたのでした。

そっかー。いいなぁ...。

私が20歳の時に、確か36歳だったマンちゃん（ナイジェル・マンセルさん）は
F1ドライバーとしては、もう結構なお歳だったのに、
モナコGPで、トラブルで一度大きく下げた順位を、
最後までガンガン走って2位になった時、感動して涙が出そうだった事を思い出した。

私も気付けば、既にその時のマンちゃんの年齢を超えているけど、
私もそーゆー人達のように、まだがんばれるかなぁー？

・「Remember the time」Michael Jackson

故に危ない予感がすると鉄分のサプリメントを取るようにしていたのだけど、
最近、そのサプリメントがコンビニに置いてない。あらー。

で、とりあえず、今日は今朝から疲れのせいなのか
イマイチ不機嫌で、モヤモヤしてたので
このままじゃいけない！と思い、
コンビニで手にしたのは、キューピーコーワゴールドAだった。

一体どうなってんだ？
でも劇薬っぽいスッキリ感じゃないのが、また不思議。

なにはともあれ、あんまり薬に頼りたくはないので
また気分と体調が悪い日に飲もうっと。

それにしても、脳に栄養が足りなくなると
ネガティブになると気付いてから、
食事から何から、いろいろ微調整中な人生。

そもそも、神経質でネガティブ思考で頑固な性格で、
良くも悪くも「短気」で「飽きっぽい」ので
「クヨクヨする自分」に飽きたり、腹がたったりする次第。

でも、
自分に対して怒ったり悲しんだりするのは、楽。
他人に対して怒ったり悲しんだりするのは、辛い。

だから、楽な方へと流れていけば、全て自分に向けるようになっていく。

未来の自分に希望を託し、
過去の自分を「よくがんばったなー」と褒めたり、
「あらー、なにやってんの」と呆れてみたり。

でも、そうやってるうちに、気付くんだよね。
自分を幸せに出来るのは、自分しかいないんだって事に。

どんなに他人様に褒めてもらっても、
自分で納得してなかったら、喜べない。

どんなに他人様が安心する言葉を発してくれても、
自分がその根拠に違和感があったら、何も解決出来ない。

私が何万回、愛の言葉をささやいても、
私が何万時間、誰かの不安を受け止めたとしても、
本人がその状況を受け取って処理しなければ、全ては流れていくだけ。

それが、ありのままで現実で
それは、決してネガティブなんじゃなくて、
「現実」をただ見つめた結果で、
だから、すごく納得。

誰かと同じじゃないといけない訳じゃないし、
誰かの愛を無理矢理受け取る必要もないし、
何かの制約に縛られてないし。

誰を愛せないだの、悲しいけど何かが嫌いだの、みっともないだの
めんどくさい罪悪感みたいな、どっか無理した部分は、
全てどっかに吹き飛ばして、シンプルに感じたらいいんだと思う。

好きなもんは好き。
嫌いなもんは嫌い。
辛いもんは辛い。
悲しいもんは悲しい。
楽しいもんは楽しい。

そうしたら、全ては自分の判断の上で成り立っていて
何かが起きた時、誰かのせいや何かのせいにせずに、
自分を磨いて、自分を幸せにしていけるんじゃないかなぁ。

まぁ、なにはともあれ、美味しいもん食べて
今の自分に出来る事をやっていく為のエネルギーを仕入れないとね。

そんな中、前の会社の同僚さんで
かわいいお二方に表参道で会ってきたのでした。

元同僚さんのご紹介で、オシャレなカフェで
ランチビールを味わったのですが。

お互いの近況を話すものの、
ほーんとここ2ヶ月程の濃度が濃くて
う～ん、ほんと何してたっけなぁ...。

一方、同僚さんの1人は、お歌歌いで
最近もライブに出演されたのですが。

いやぁ...この方がねー、めっさ、べっぴんさんでねー。
しかも、その外見に無闇に甘える事なく、とても良い性格で
事ある毎に彼女の笑顔を見ては癒されていたのですよ。

で、CD聴かせてもらったら、外見とは違った深い良い声だし
私が好きなハウス系とジャズ系の中間の曲調で
これまた素敵やん、と思ってた訳ですが。

残念ながら、ライブの頃、私は仕事上
「明日はどうなるんだろう...」という先の読めない状態だったのでしたorz
あああ。ごめんなさい。

もう1人の同僚さんは、
一番、プログラマーとして期待しているんだけど、
こんなに楽しんでプログラミングしている人は
なかなかいないんじゃないかな？

勿論、プレッシャーで辛い事も沢山あるし、
乗り越えるのに苦労する事もあるだろうけど、
それでも、プログラミングの楽しさを知っているのが
伝わってくるような気がするんだよね。

その気持ちさえ持ってれば、今後どんな展開があろうとも、
きっと良いもん作ってくれる、と思うので
ほんと今後、人や機会に恵まれるといいなぁー。

...という訳で、これまた2人とも私に良い刺激を与えてくれたので、
今私はいろいろ激しく勉強中なんだけど、
「歳だから」とか甘えた事言って面倒な事から逃げてないで
ふんばって乗り越えなーアカンなー。

いや、独語の先生が、またMacでお困りのようです。

ほんでもって、何をお困りか？と言うと。

1. スキャナーを買ったけど、英語版のマニュアルがないので、どう繋げたらいいのかな？
2. Thunderbird でYahoo!でのメールの受信は出来ても送信が出来ないんだけど何故？
3. MacBook の画面をTVに出力したいんだけど、どうしたらいい？
4. iTunesで Apple iTunes Store にアクセスすると、日本語版に行ってしまうが、独語版のサイトに設定したい
5. ネットサーフィンしてると Flash Player がないと見れないって言うんだけど、どうすれば良い？
6. HDの中身のバックアップを外付けHDに取るにはどうしたらいい？
7. PDFファイルがプリントアウト出来なくなっちゃったんだけど...

えっと...。

先ず、昨日？買ったというスキャナは「CanoScan LiDE 700E」。
スキャナ本体の背面にあるロック機能を解除し、
USBでMacに繋げ、付いてるCD-ROMからソフトウェアをインストールして、
あとはインストールした「MP Navigator EX」を起動。

すると先生のOSXは独語版で、あとは独語でメニューやら説明が出てるので
説明どおりに操作すればいいだけ。おっけー、終了ー。

次。Thunderbird で Yahoo! でのアカウントでメールの送信が出来ない件は
SMTPサーバーに対する、アカウントとパスワードを、
間違って別のメールアドレスのものを入力したのが原因。

正しい設定もしてはいたけど、その正しい方を「(Standard）」に設定しといて、
かつアカウント毎の設定画面の「Postausgang Server (SMTP):」で
正しい設定のSMTP設定を選択すればOK。

はい、次ー。
MacBookとTVを繋げるには、前以てググっておいたところ
Apple Mini DVI-DVIアダプタと HDMI-DVIケーブルを用意して、
今後購入しようと検討しているらしきTVは HDMI 対応しているものにすれば良いらしいです。
以上！

はい、次ー。
iTunes で「iTunes Store」をクリックすると、日本のiTunes Storeに行ってしまうのを
独語版にするには、日本のiTunes Store の一番下にある「Storeを選ぶ」でドイツを選ぶか、
丸い日本の国旗マークをクリックし現れた画面に並んだ国名の中から
「Deutschland」を選べばOK。

ちなみに「サインイン」する際に、日本のiTunes Store用に発行してもらったヤツは
独語版iTunes Storeでは使えないし、独語版でアカウント作ろうにも、
ドイツの住所がないとダメなようです。

はい、お次ー。
Flash Player は、ここからダウンロードしてください、って操作してたら
先生の古い方のMac（iMac）は、最高にアップデートしてもOS10.3.x なせいか、
FireFoxにはインストール出来たんだけど、
Safari ではダウンロードするページすらちゃんと動作しないし、入れたプラグインにも反応しなかったのでした。
うーん、古い方はもうそろそろ限界かもしれません。

ほいほい、次ー。
HDのバックアップ、なかなか面倒ですなー。
「ディスクユーティリティ」（Programme-Dienstprogramme-Festplattendienstprogramm）で、
イメージ作ってしまおうかと思ったけど、起動中のSystemを含むHDは対象に出来ないので
Macを起動CD/DVDで起動しなおすのが面倒...。

しかも、こんなイメージファイル作っても、先生にとっては操作しにくいだろうなぁ...。

という訳で、純粋にバックアップ取りたいものを
外付けHDにドラッグしてコピーする事にしました。

はい、ではラストー。
PDFファイルでプリントアウト出来ないものがあるそうなんだけど
実物見てみたら、どうも画像が貼り付けてあるファイルで。

Adobe Acrobat Reader で「ファイル」メニューの「印刷...」選んでそのままプリントすると、
エラーになって何もプリントされないので、
試しに「印刷」画面で「詳細設定」ボタン押下して現れる画面で
「画像として印刷」にチェック入れてプリントしてみたら、
エラーが出なくなりました(^^)

と言う訳で。

ときどきお料理いただきながら、なんだかんだで時間がかかり
結局、23時頃まで作業していたのでした。

いやー、とりあえず、いろいろ解決して良かった。
また何か問題起きたら、メール頂戴ね～！

先日のドラム教室での元クラスメートさんに続き、
今度はドイツ語教室での元クラスメートさん達に会いましたー。

いやぁ、またこうやって
皆で会えるなんて、ほんと嬉しいなぁ。

ちなみに、何故（第一）なのか？と言うと、
「どいちゅ会」は東京ゲーテでのクラスメート達がメンバーなんだけど、
クラスが一緒だった時期が違っているので、時期に応じて第一・第二と呼び、
最近集まっているのは第二メンバーがメインで+第一数名なのでした。

で、今回は第一で最近参加出来なかった2人が今回参加という事で、
ほーんと4年ぶりくらいで、第一だけのどいちゅ会。
わーい、わーい、みんな変わってないねぇ（笑）

もうあの最後に会った時と同じ感じで、なんの抵抗も違和感もなく、
みんなで近況報告したり、入ったレストランでメニュー選ぶの迷ってみたり
ほんと皆と一緒にいると心地よくて、あっと言う間に3時間も過ぎてました。

いやー、ほんと有難い。
こういう仲間がいて、こういう空間があって、こうやって集まれて。

ここ数年、仕事メインで毎日バタバタやってるもんだから、
仕事の事以外、自分から提供出来る話題が少なくなっちゃって
仕事以外で会う人を楽しませられなくて、ちょっと申し訳なく思ってたんだけど。

独語仲間は、やっぱりドイツの話題が多いけど
あれこれ皆で共有出来る話があるし、一緒にいるだけで安心するんだよね。
あー、それはあれか、私が比較的メンバーの中で年下だからかな？
みんなに甘えちゃってるのかもね。

なにはともあれ、また会おうね！って別れたので、
ほんと次の企画考えなくっちゃなー。
あと久々の第一の2人も、第二の集まりに参加出来るといいなぁ。

さてと、こうやっていろんな人から力をもらったから
引き続き、お仕事がんばらなきゃー。