はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
配列から効率良くプレースホルダを作る : にぽたん研究所
my @a = qw(foo bar baz); こんな配列から ?,?,? という文字列を使いたい場合があります。 例えば、 SELECT * FROM hoge WHERE user_id IN (?,?,?); みたいな SQL にする場合のプレースホルダを作ると言った具合に。 社内 IRC で、clouder さんが言い出して、 18:27 <clouder>join(',', map('?', @a)) 18:27 <clouder> こんなのしか思いつかない。。 と言う。 まぁ、それが妥当というか、普通それが思い浮かぶよなーって思ってたら、会社の dos さんという人が 19:15 <dos> '?,' x @a; で s/,$//; というｿﾘｭｰｼｮﾝ とか、異様なことを言い出した。 sub placeholder_from_array { return join(',',
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
attributes - Practice of Programming
てきとーなんで信用しないでください。アトリビュートについて、調べてみました。 暇ができたら、perldoc attributesでも訳します。 アトリビュートというのは、 sub index : Private{ ... }というように、サブルーチンの横にくっついている、: の横のもの、 上の例では、Privateになります。 Catalystでよく使われているのですが、Catalystでは、Private とか、Global とか、Regexとか色々あります。 何もしない状態だと、組み込みのアトリビュート以外のものを使うと、エラーになってしまいます。 組み込みのアトリビュートというのは、lvalue、method、locked などなど。 で、どうやったら、Catalystみたいなのできるのかなぁ、と調べてみました。 ちなみに、ここに書いているのは、package-specifiedなア
Perl/DBIC - Nekokak's core dump
VERSION-0.05000での記述。http://search.cpan.org/~mstrout/DBIx-Class/ ドキュメントも当初に比べれば増えてきたし、そっち見たほうがよかばい。 まあ以下は簡単なまとめで。一通り使えるくらいは書きたい。 このサイトはWikiなので途中途中に色々追加したり修正したりしますからご注意を DBIx::Class::Schemaを使ってみる これからDBICではSchemaメインらしい。 使うテーブル作成SQL create table user ( id int(10) NOT NULL auto_increment, name varchar(256) NOT NULL, PRIMARY KEY (id) ) ENGINE = InnoDB;
Perlベストプラクティス
「本書で提供するのは、1つのベストプラクティス集である。コードの作成方法に関する誰かの机上の理論ではなく、実際のコーディング方法に関する実体験に基づいており、首尾一貫し、用途が広く、バランスよくまとめられている。何よりも、これは実際にうまくいくプラクティス集であり、世界中の多くの開発者によってすでに使用されている。Perl自体と同様に、これらのガイドラインの目的は、開発者にわずらわしさを感じさせずに、作業を行うための手助けをすることである。」（本書「はじめに」より） はじめに 1章 ベストプラクティス 1.1 3つの目標 1.1.1 堅牢性 1.1.2 効率性 1.1.3 保守性 1.2 本書について 1.3 新しい習慣 2章 コードのレイアウト 2.1 かっこ 2.2 キーワード 2.3 サブルーチンと変数 2.4 組み込み関数 2.5 キーとインデックス 2.6 演算子 2.7 セミコ
hide-k.net#blog: いつでもどこでも、すぐに Class::DBI を使いたい
お仕事でレンタルサーバー上でCGIを書く羽目になったのですが、root権限はおろかシェルも使えない環境なのでCatalystにどっぷりつかっていたボクとしては面倒くさくて気が狂いそうです。 特にDB周り。 DBI直たたきなんて非人間的な作業をやっているとバグつぶしだけで頭がおかしくなりそうです。 で、なんとかClass::DBIだけでも使えないか調べて見ました。 CDBIが依存しているクラスでXSを使っているのはversionとCloneだけです。 それならある程度環境が整っているレンタルサーバーならなんとかなるだろうってことで調べて見ると、都合のいいことにversionは--perl_onlyオプション付きでMakefile.PLすればPure Perlなクラスを作成してくれるし、CloneはClone::PPなるPure PerlなCloneクラスがありました。 で、やってみました。
近代的なメールの添付ファイルをとりだすライブラリ for Perl といえば Email::MIME::Attachment::Stripper - tokuhirom's blog.
http://search.cpan.org/~cwest/Email-MIME-Attachment-Stripper-1.31/id:takefumi が MIME::Parser を使ってるのをみて、最近はなんかもっといいライブラリがあって云々というハナシを昔 #plagger-ja かなんかでしたよなあと思って、ログをあさってみたらあった。cwest の Email::MIME だった。MIME::Parser はインターフェースがなんなかんじなので、こっちをためしてみることに。今回の要件は添付ファイルが一個ついてくるメールから、添付ファイルをとりだすだけ。まずは、cpan コマンドでいんすこ。依存モジュールがごっそりはいるけど、全部テストとおったのでよし。標準入力からファイル読み込んで、最初の添付ファイルを出力するのは、こんな感じね。 use strict; use warnin
モジュールをuseした際のメモリ使用量(増加量)を調べてみる (iandeth.)
iandeth. Perl, Flash ActionScript, MySQL, Movable Type, システム開発 - そんなテーマのサイトdeth. gtop.plx #!/usr/bin/perl use strict; use warnings; use GTop; my $gtop = GTop->new; my $before = $gtop->proc_mem($$)->size; eval $ARGV[0]; die $@ if $@; my $after = $gtop->proc_mem($$)->size; my $diff = GTop::size_string($after - $before); print "$diff : $ARGV[0]\n"; 例） CGIモジュールのメモリ増加量は... $ ./gtop.plx 'use CGI' 704k :
プロジェクトごとのメモリ使用量を測ってみる - tokuhirom's blog.
package Proj::Analizer; use GTop; use Template::Plugin::Comma; require Module::Pluggable::Fast; &main; sub proj_size { my $self = shift; my $proj_name = shift; my $before = GTop->new->proc_mem($$)->size; my $meth = "_${proj_name}_components"; Module::Pluggable::Fast->import( name => $meth, search => [ "${proj_name}::Data", "${proj_name}::Pages" ], require => 1, ); $self->$meth; my $after = GTop->n
Test::Class - naoyaのはてなダイアリー
最近 Perl でテストを書くときに Test::Class を使ってます。(もしかして常識?) これまでは *.t で Test::More をそのまま使ってたけど、テストが大きくなってくるとコードが分かりにくくなったり、自分であれこれしなきゃいけないことが多くてめんどくさい。 Test::Class は xUnit スタイルで Perl のテストを書けるフレームワークです。xUnit な Perl 実装といえば Test::Unit もあるんですが、テスト用の関数も Test::Unit の流儀に従う必要があってちょっと嫌。Test::Class は Test::More と Test::Harness とか、普段使い慣れてる Perl らしいテストスタイルを使いつつ xUnit できるという点が良いです。 使い方ですが、 Test::Class を継承したテストクラスを作り テスト用
PPerl - odz buffer
Perl Hacks読んでたらPPerlなんてのが紹介されてた。 This program turns ordinary perl scripts into long running daemons, making subsequent executions extremely fast. It forks several processes for each script, allowing many proceses to call the script at once. プロセスを常駐させておいてコンパイル時間を省くことで起動時間を短縮しようというものらしい。 以下Plaggerでのテスト。2回目以降は結構早くなっている。 $ time perl plagger real 0m1.368s user 0m0.833s sys 0m0.080s $ time pperl plagger
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Active Virus Shield レビュー MOONGIFT
簡単な deploy tool の雛形 - tokuhirom's blog.
mt.kmtz.net 售卖中
http://e8y.net/blog/2006/07/06/p124.html
DateTime で月間の日のリストがほしぃ(いてれーたでも可) - tokuhirom's blog.
Cache-Memcached-XS-0.01
Cache::Memcachedでエラーの検出 - tokuhirom's blog.
apache の shared 領域のお話と、Sledge ではどうやるとよいかの話 - tokuhirom's blog.