おいぬま日報(不定期)

@ [mysql] そのまま使えるシリーズ MySQL / Stack*

インポート／エクスポートのやり方がわからなかったので参考になりました。

@ [mysql] CREATE TABLE文を表示する

指定したデータベースのCREATE TABLE文を出力するには下記のコマンドで。ただし外部キーの設定を行っている場合、依存している順番では出力してくれないのでそのままCREATE TABLEを実行してもエラーになる場合があります。めんどくさー。

$ mysqldump -d データベース名

@ [memo] lessプレゼンmeets高橋メソッド

高橋メソッドは有名ですが、lessプレゼンなんていうのもあったんですね。IT業界でしか使えなさそうですが...

@ [book][perl] Perlプログラミング救命病棟

分厚い本ではないのに読了するまで1ヶ月ぐらいかかってしまいました。ですが、じっくり時間をかけて読むべき本だと思いました。まだまだPerl初心者の私にとっては「Perlらしく書くにはどうするべきか？」という点で非常に有用な本だったと思います。その他にも、Test::Moreなどのテスト系モジュールや、Carp、Test::Exceptionなど非常に役に立つモジュールが紹介されており、これだけでも一見の価値ありです。

@ [perl] perlpod(PODの書き方)

CPANのモジュールのドキュメントは全てPODで書かれているので、自分もこれで書いてみることにします。使い勝手はJavadocに比べるといまひとつ。

@ [vmware] 本当に無償で使える「VMware Player」

QEMUってVMwareのディスクファイル作れるんですね。会社のPCはcoLinuxをインストールしようとすると原因不明のブルースクリーンで死ぬので、こっちを試してみようっと。

@ [perl] taskpad.jp みたいなのを Catalyst で作ってみる

このぐらいの大きさのサンプルだと非常にわかり易いですね。非常にためになります。

@ [linux] win32版のSylpheed

久々にSylpheedのサイトを見たらどうやら開発版の2.1.5からwin32版が本格的に始動しているようです。これでソースを自分でコンパイルする必要なし。素晴らしい！(以前コンパイルしようとして失敗した)

@ [life] 一つのことに集中できない

タイトルの通り、ここ1年ぐらい「一つのことに集中できてないな」とよく思います。特にプライベートな時間にネットで調べ物をしていると、気付いたら当初の目的とは全然かけはなれたサイトの文章を読んでいたりします。

ついさっきもSylpheed立ち上げて会社にメールを送ろうとしていたのですが

1. アドレス帳に会社のアカウントが登録されていなかった
2. そこからなぜかSylpheedの最新版が出ていないか気になった
3. Sylpheedのサイトに行くとwin32のβ版がリリースされていた
4. 嬉しくなってこの日記に記事を書いた

みたいな感じで当初の目的を忘れ、立ち上がっていたSylpheedのウィンドウを見てやっと「あ、俺メール書こうとしてたんだった」と思い出したのでした。プライベートは別にどうだっていいのですが、仕事をしていてもこんな感じで別のことに夢中になって大事なことを忘れてたりしてそうなのが非常に怖いです。。。

@ [perl] 最近好きなループの書き方

昔はよく↓のようなコードを書いてましたが

my @new_list;
foreach (@old_list) {
    push @new_list, $_ if ($_ ne '');
}

ちょっとしたループなら

my @new_list = map { $_ if ($_ ne ''); } @old_list;

と書いた方が素敵な気がします。

@ [perl] Perl版Antみたいなやつ - PackMan

JavaにはAnt、RubyにはRakeがあるのに、Perlにはそれらしいのがない！*1ということで実験的にちょっと作ってます。その名もPackMan(名前はテキトー)。

Packfile*2を作成して、コマンドを実行するとPackfileに書いた内容が実行されるというもの。とてつもなくRakeのパクリですがまぁPerlの勉強がてら作ってみたかったのでやっちゃいました。

例えば、下記のような Packfile をカレントディレクトリに作成して packman.pl というスクリプトを実行すると

# Packfile(Makefileみたいなもん)
# -*- cperl -*-
 
# デフォルトで実行するタスク
default_task "hello";
 
# initタスク
task
    name => "init",
    desc => "Initialize",
    code => sub {
        my $task = shift;
        print "初期化しています...\n"
    }
;
 
# helloタスク
task
    name => "hello",
    desc => "Print hello world",
    deps => [ qw(init) ],
    code => sub {
        my $task = shift;
        print "Hello world!\n";
    }
;

$ packman.pl --tasks (定義されているタスクの表示)
########################################
# Task descriptions for `z:/windata/epcb/build-tools/packman/packfile'
########################################
TASK  DESCRIPTION
init  # Initialize
hello # Print hello world

$ packman.pl hello (helloタスクの実行)
初期化しています...
Hello world!

というようにタスクごとのコードが実行されます。とりあえず引越しの現実逃避で作ってみましたが、まだまだ完成度が低いのでレベル上げてから(1ヵ月後ぐらい？)公開します。

@ [perl] Catalystのリンク集

Sledgeってどうなのよ？って最近常に思ってます。

• Catalyst::Manual::Intro
• Catalyst::Manual::Cookbook
• Perl の MVC フレームワーク Catalyst に入門してみた - NDO::Weblog
• Catalyst入門 と お作法について
• use Catalyst qw(初挑戦);
• Perl on Rails な Catalyst を試す - qootas.org/blog
• Catalyst入門: Actionの定義とその処理の流れ（前編）
• hide-k.net#blogのCatalyst関連
• ActivePerlでCatalystにチャレンジ!!
• taskpad.jp みたいなのを Catalyst で作ってみる

@ [emacs] cperl-modeの設定

とりあえずこんだけ。cperl-electric-parensとかは逆にうっとおしいのではずしてます。

(autoload 'cperl-mode
  "cperl-mode"
  "alternate mode for editing Perl programs" t)
(setq cperl-indent-level 4
      cperl-continued-statement-offset 4
      cperl-close-paren-offset -4
      cperl-comment-column 40
      cperl-highlight-variables-indiscriminately t
      cperl-indent-parens-as-block t
      cperl-label-offset -4
      cperl-tab-always-indent nil
      cperl-font-lock t)
(add-hook 'cperl-mode-hook
          '(lambda ()
             (progn
               (setq indent-tabs-mode nil)
               (setq tab-width nil)
               )))
(setq auto-mode-alist
      (append (list (cons "\\.\\(pl\\|pm\\)$" 'cperl-mode))
              auto-mode-alist))

@ [web] userAgent（ユーザーエージェント一覧）

よく調べてますなぁ。メモ。

@ [web] HTTPリクエストとレスポンスを見るツール

メモ。

@ [memo] gooサジェストβ with ATOK

Firefoxだと動作しないのはまだベータだから？こういうことで業界人からは「このサービス使えねー」とかいうレッテルを貼られることにこの人たちは気付かないのだろうか？

@ [memo] Google Base 公開：早速レビュー

最近リリースされた話題のGoogle Baseの使い方について。いやマジで末恐ろしいですな。。。Googleショック。

@ [mysoft] 今日のPackMan

プラグイン機構を導入したおかげで実効速度が1.25倍遅くなりました。。。あとちょっとでリリース出来るレベルなのですが、リリースって面倒なんですよね。

@ [linux] Fedora Core4をインストール

会社のマシンに話題のVMware Playerを入れてFedora Core4を入れてみました。クライアント用途でRedhat系のOSに触るのは3年ぶりぐらい。家ではDebianなのですが、デスクトップ環境は両方KDEなので感覚的にはほとんど変わらないですね。rpmコマンドから--rebuildオプションがなくなっていてちょっとびっくりしましたが。

ちなみにEmacsのange-ftpで

500 AUTH not understood

というエラーが出ていたので.emacsに下記を追加しました。これでだいぶ快適に開発できそうです。

(setq ange-ftp-ftp-program-args '("-i" "-n" "-g" "-v" "-u"))

@ [memo] 悪魔に心を売っても納期を守る！帳尻あわせの裏技術

恐ろしや。。。

@ [ajax] quickSub

feedsterの"Subscribe to this feed"の部分が気になったのでちょっと調べてみたら、どうやらこのレイヤーを出すquickSubというオープンソースのAjaxライブラリにたどり着きました。レイヤーの部分の色とかはソースいじらないと駄目みたいですが、あんなこと(feedの登録先を選ばせること)のためにいちいち開発の労力をかけなくて良い点はなかなか評価できます。試しにこの日記で使ってみよう。

@ [memo] ネットワーク総合辞書

ネットワークのこと以外にも、PerlのDBIやらEmacsやらCygwinやら色々あります。