Perl Quiz - package名について - Islands in the byte stream #!perl -w use strict; use Test::More 'no_plan'; sub f{ # 何かする bless({}, '::Foo'); } f(); is ref(bless({}, 'Foo')), 'Foo'; __END__ うわあ,適当にそれっぽく書いてみたら失敗したよこれ.いみふ!
こちらの問題。 http://d.hatena.ne.jp/gfx/20081007/1223340787 回答がすでにいろいろ出てるけど。 これで。 #!/usr/bin/perl use strict; use Test::More 'no_plan'; sub f{ my $builder = Test::More->builder; my $out = $builder->output; print $out <<_TEST_; not ok 1 # Failed test at q.pl line 17. # got: '' # expected: 'Foo' _TEST_ $builder->output(*HOGE); sub Foo::DESTROY {$builder->output($out)} } f(); is ref(bless({}, 'Foo')), 'Foo
とある Subversion をリポジトリとするプロジェクトで、デプロイツールとして Capistrano を使用しようと思ったのですが、私と同僚の開発環境が異なる事を理由に、前から目を付けていた Webistrano を試してみました。 動作環境 apache 2.2.9 mysql 5.0.67 ruby 1.8.6 rails 2.1.0 passenger 2.0.3 capistrano 2.5.0 webistrano Revision 189 webistrano 本体は http://labs.peritor.com/svn/webistrano/trunk/ からチェックアウトしたものを使用しています。 基本的な使い方 下記を眺めると、何となく理解できます。 Screencasts – Peritor Webistrano – Trac Catalyst で作ったアプリを
Perl Quiz - package名について - Islands in the byte stream #!perl -w use strict; use Test::More 'no_plan'; sub f{ package main::Foo; } f(); is ref(bless({}, 'Foo')), 'Foo'; とか #!perl -w use strict; use Test::More 'no_plan'; sub f{ package Foo; our @ISA = ('Foo'); } f(); is ref(bless({}, 'Foo')), 'Foo'; 死ぬのは無し?でもf関数で死ぬわけじゃないから有り? #!perl -w use strict; use Test::More 'no_plan'; sub f{ }__END__ } f(); is
This Domain Has Expired, To Renew Please Contact Your Provider.
http://d.hatena.ne.jp/a2c/20081008/1223403985 multiprocessing部はPEP8になってない部分が多かったり、ドキュメントが適当だったりする。 (python2.6で増えた部分は割りと適当なのかも。kqueueんところも最初すげー適当だったし) bm_server.py from multiprocessing.managers import BaseManager import Queue queue = Queue.Queue() class QueueManager(BaseManager): pass def _call(): print("server call") return queue QueueManager.register('getQueue', callable=_call) m = QueueManager(a
久しぶりにある人からメールが届いたので何かと思ったら,4月に結婚しますというお話だった。 25歳までに結婚する宣言をしていた人だったのだが,まさかその通りに間に合うとは思ってなかった。 おめでとう。 akane の 160GB HDD でファイルシステム破損事故が発生。avi ファイルを読んでいただけで xfs が破損するというのは いったいどういうことなのか ……? XFS: bad magic number XFS: SB validate failed 再起動しても直らないので,別のマシンに差して調査し直し。 xfs_repair -n の報告によると superblock が壊れているということなので,いちかばちか修復させてみる。 《xfs_repair 実行結果》 なんか妙なディレクトリ名・ファイル名が見えるが気にしてはならない。 盛大にぶっ壊されたようだが,x
Perl Quiz - package名について - Islands in the byte stream #!perl -w use strict; use Test::More 'no_plan'; sub f{ package main::Foo; } f(); is ref(bless({}, 'Foo')), 'Foo'; とか #!perl -w use strict; use Test::More 'no_plan'; sub f{ package Foo; our @ISA = ('Foo'); } f(); is ref(bless({}, 'Foo')), 'Foo'; 死ぬのは無し?でもf関数で死ぬわけじゃないから有り? #!perl -w use strict; use Test::More 'no_plan'; sub f{ }__END__ } f(); is
この度はiddyにお問い合わせいただき、ありがとうございます。 > お世話になっております。 > > 私の友達がiddyを利用しているのですが、最近プロフイン http://gazo.in/idd > y/ というサイトに勝手に乗せられ、怪しい足跡などが多くて非常に恐怖を感じ > ているとのことで相談されたのですが、なんとかなりませんでしょうか? インタ > ーネットで検索したところ、作者の方はいろいろ問題が指摘されており、特にプロ > フインは当初「ストーカーサイト」と自称していたようで、否定意見が多いようで > す。調べていくと、御社ではプロフインを公認していると書かれていたのですが、 > それは本当でしょうか? 彼女によると、ほかにも恐怖を感じている女性が多いよ > うですが(迷惑とか嫌ではなく、怖いそうです)、現在の状況は御社にとって問題 > ないのでしょうか? > ご返信宜しくお
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く