reduce II - Yappo::タワシ
package Reduce; use strict; use warnings; sub import { my $caller = caller; no strict 'refs'; *{"$caller\::reduce"} = \&reduce; } sub reduce (&@) { my $code = shift; my $caller = caller; my $x; my $z; no strict 'refs'; local(*{"$caller\::a"}) = sub { $x }; local(*{"$caller\::b"}) = sub { $z }; $x = shift; for (@_) { $z = $_; $x = &{$code}(); warn $z; } $x; } 1; use strict; use warnings; use Reduce
AUの件名が文字化けしたのはNet::Cmdの仕業だったでござるの巻 - Unknown::Programming
既知の事実かもしれないがハマったのでメモメモ。 こーんなシンプルなメール送信プログラムを書いたのです。 use strict; use warnings; use MIME::Lite; use Path::Class; my $mime = MIME::Lite->new( From => 'from@exmaple.com', To => 'xxxxxxxxxxxxx@ezweb.ne.jp', Subject => subject() || '', Data => body() || '', Encoding => 'base64', ); $mime->attr( 'content-type.charset' => 'Shift_JIS' ); $mime->attr( "Content-disposition" => "" ); $mime->field_order( 'MIME
【中国】 貴州の数万人暴動、殺害された女子中学生の捜査に抗議した親族が死亡:【2ｃｈ】ニュース速報アワーズ
1 ：ミノネズミ(愛知県)：2008/06/30(月) 03:29:08.20 ID:dm+6hNoy0 ? ２９日付の香港紙・明報によると、中国貴州省甕安県で２８日、女子中学生（１５）が殺された強姦殺人事件の捜査に不満を持った住民数万人が警察本部などを占拠、建物や警察車両に放火するなどの騒ぎとなった。 警官隊の発砲により１人が死亡したとの情報がある。新華社電は２９日、事態は終息したと伝えたが、消息筋によると、暴動は同日もまだ続いているという。同紙などによると、公安当局が事件の容疑者として逮捕した男２人を翌日に釈放したことが事件の発端となった。被害者の遺族が公安当局に徹底捜査を求めたが逆に暴行され、親族１人が死亡した。容疑者の１人の親が公安幹部だったため本格捜査が行われなかったとのうわさも流れ、住民の怒りが爆発。２８日午後、警察本部や地元政府庁舎などを襲撃する事態に発展した。 （2008年
『ストリートファイターIV』春麗に待望の新コスチュームが！？ - ファミ通.com
●NESYSカードシステムに対応 2008年7月18日より随時稼動開始予定の対戦格闘ゲーム『ストリートファイターIV』。その続報をお伝えしよう。今回は、戦績情報などが記録できる”NESYSカードシステム”の詳細が判明した。 ●まずはカードを購入して登録 稼動直後に販売されるNESYSカードの絵柄は４種類（カードの絵柄はさまざまなものが追加販売される予定）。カードを購入したらモバイルサイト”sf4.jp”にアクセスしよう。そして、プレイヤーネームと購入したカード情報を登録。プレイヤーネームのほかにも、対戦まえのVS画面に表示される自己PR文の登録も可能だ。また、マイ店舗（自分が通っている店舗）を登録することもできる。マイ店舗に設定したお店でプレイし続けると、いいことがあるかも！？ ●対戦でBP（バトルポイント）を稼ごう プレイヤーの情報の登録が完了したら、カードを使ってゲームセンターで対戦し
はてなブログ | 無料ブログを作成しよう
早春とフィルム写真 カラーネガフィルムとはなんとも不思議なメディアで、その季節の陽光だとか湿度が写真に乗ってくるような気がする。 冬の写真は暗くかさついているし春の写真は霞がかって見える。夏の写真は湿度100%に近い空間を貫いてくる強い太陽光がフィルムの乳剤面に記録されてい…
TTSite で作った MyApp::View::TT を Catalyst::View::Templated を使うように書き換えてみた - cooldaemonの備忘録
package MyApp::View::TT; use strict; use warnings; use base 'Catalyst::View::Templated'; use Template; MyApp->config->{'View::TT'} = { EVAL_PERL => 0, TEMPLATE_EXTENSION => '.tt2', CATALYST_VAR => 'c', INCLUDE_PATH => [ MyApp->path_to('root', 'src'), MyApp->path_to('root', 'lib'), ], PRE_PROCESS => 'config/main', WRAPPER => 'site/wrapper', ERROR => 'error.tt2', }; sub new { my ($class, $c, $args)
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
秋葉原事件以後のネット上犯行予告、検挙事例一覧
ＰＳ３ ＡＱＵＡＮＡＵＴ’Ｓ ＨＯＬＩＤＡＹ〜隠された記録〜通販★ゲームスター★
【楽天市場】エラー