わいえむねっと

2026/05
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31

2009/05/15 Fri: よく寝た！
日が変わる前に就寝したら2時に起きてしまってどうしたものかと思ったけれど普通に二度寝できたので体力も全快ですよ。
主にアセトアルデヒドの生成に浪費した体力の。

営業中案件の打ち合わせに連行させられることになりそう。来週。
なんだかまた忙しくなってきた。
現状を整理。

・改修案件が3つ
・新規案件が2つ
・ヘルプが2つ

ああ。今度こそ死ぬかもね？

昨年度末に退職した後輩が、しいたけ農家に就職したらしい。
相変わらず人の予想の斜め上を行く男だな！！
あの男に農家の仕事が勤まるのだろうかと不安は残るところではありますが、ぜひ新しい道で頑張っていって欲しいものです。
とりあえず生しいたけを注文しておく。

2009/05/14 Thu: 起床。
上着だけ脱いだ状態で掛け布団の上に突っ伏していたので、とりあえず靴下を脱ぐ。
昨晩を少し振り返り、少しじたばたする。
お茶を飲んで一息。
今日も元気です。
胃は痛い。

これ、現調いくことになったら小旅行どころの騒ぎじゃないですよ？
能登半島の先っぽにあるダムとか、阿蘇山の近くのダムとか。

2009/05/13 Wed: 年度末に死にそうになっていた原因こと3プロジェクト掛け持ちのうちの1つの打ち上げのお誘いが唐突に。お客様側から。
もちろん参加ですよ。
そしてお客様主催ということも関係なしに大暴れして後で怒られるのですよ。恐らく。
ほんと自重してください。
じゃあいってきます！

予定通りの惨状。

2009/05/12 Tue: 室温が普通に30度超えている朝。
梅雨入りもまだだというのに。先が思いやられます。

追加の見積依頼がきたので見積ったりコーヒー飲んだりコーヒー飲んだり。
そもそもアサインはどうするのさと出張から帰ってきた取締役をとっつかまえて話をしたら、全部お前がやれと言われました。
ヒャッハー！
先が思いやられるぜ！

2009/05/11 Mon: 5時過ぎ就寝。
8時前起床。
眠いです。

突発的に客先に同行させられることになったり、打ち合わせの中で新規案件のお話をいただいてきたり、帰社してから見積もりしたりで日が暮れて。
眠いです。

最寄コンビニに続いて最寄クリーニング店まで潰れてしまってああくそ不便になるなと思っていたら、一時期は二日に一度とかいうペースで通っていた最寄酒屋まで潰れてましたよ。超ショックですよ。

ブックオフから支払い手続きの報が。

合計 83点 2箱￥3,436

思っていたよりも値がついたなーと。
でも、

お値段がつかなかった商品 35点

思ったより値がつかなかったものも多かった。

2009/05/10 Sun

ラクダ本を読みながらごろごろ。
ごろごろしながら読むには重過ぎますが。あの本。 Exporterメモ。

$ cat foo.pm
package foo;

our @ISA = qw(Exporter);
our @EXPORT = qw(foo bar);

sub foo{print "foo\n"}
sub bar{print "bar\n"}
1;

$ cat foo.pl
use strict;
use warnings;
use foo;

foo();
bar();

$ perl foo.pl
foo
bar

を

$ cat foo.pm
package foo;

our @ISA = qw(Exporter);
our @EXPORT = qw(foo bar);

my $foo;
sub import
{
    $foo = $_[1];
}

sub foo{print "$foo\n"}
sub bar{print "bar\n"}
1;

$ cat foo.pl
use strict;
use warnings;
use foo qw(foobar);

foo();
bar();

とかしてuseする際に値を渡すようにしようとすると、

$ perl foo.pl
Undefined subroutine &main::foo called at foo.pl line 5.

そんなsubroutineないと怒られる。

Exporting without using Exporter's import method
http://search.cpan.org/~nwclark/perl-5.8.8/lib/Exporter.pm#Exporting_without_using_Exporter's_import_method

を参考に

$ cat foo.pm
package foo;

our @ISA = qw(Exporter);
our @EXPORT = qw(foo bar);

my $foo;
sub import
{
    $foo = $_[1];
    foo->export_to_level(1, @_);
}

sub foo{print "$foo\n"}
sub bar{print "bar\n"}
1;

とすると、

$ perl foo.pl
"foobar" is not exported by the foo module
Can't continue after import errors at foo.pm line 10
BEGIN failed--compilation aborted at foo.pl line 3.

そんなものexportされていないと怒られる。
export_to_levelは

MyPackage->export_to_level($where_to_export, $package, @what_to_export);

のようになっているので、@what_to_exporに余計なモノが混入するのが原因。

$ cat foo.pm
package foo;

our @ISA = qw(Exporter);
our @EXPORT = qw(foo bar);

my $foo;
sub import
{
    $foo = $_[1];
    foo->export_to_level(1, $_[0]);
}

sub foo{print "$foo\n"}
sub bar{print "bar\n"}
1;

とすれば、

$ perl foo.pl
foobar
bar

とりあえず通る。

2009/05/09 Sat: 「チョコモッチ \125-」

チョコモッチはチョコモッチでもあのチョコモッチではなく。
食感も全然別物。

参考:
チョコモ倶楽部
http://malo.jp/marotake/chocomo/

乙女か、君は。

2009/05/08 Fri: 4時前起床。
あんまりにもすっきりとした寝覚めだったので二度寝はあきらめ、コーヒー飲んだりキーボード叩いたり。
空が明るくなってきた。

気が付けばいつの間にやらHUBの8ポート中の半分がGbEなNICになっていたので、いい加減HUBもGbE対応のものに買い換えようと思い立ち買って帰ってきたものの、ファイルサーバの構成がこんななので予想以上に速度がでずがっくり。

2009/05/07 Thu: ちょっと待て。
この七味の賞味期限、2007/05/02てなんだ。

目が覚めたら、目の前にチョロＱが。
誰だ。
いや、該当者は一人しか思い浮かびませんが。
とりあえず机の上を走らせる。

2009/05/06 Wed: 連休八日目。最終日。
当初予定していた、死んだ目をして天井を眺める日々にはなりませんでした。
概ね、死んだ目をしてキーボードを叩き続ける日々。
肩こりが酷い。
一番の遠出は環七向こうのスーパーでもやしと酒を買ってきたこととか、出不精にもほどがある。

雨に塗れた駅前の道を、饅頭を食いながらてくてく。