deflate拡張してみた。以下テスト package Onihei::Hoge; use base 'Onihei::ORM::Component'; __PACKAGE__->attr( 'hoge' , deflate => sub { 'deflate:' . $_[0] } ); package main ; use Test::Base qw/no_plan/; my $hoge = Onihei::Hoge->new(); $hoge->hoge( 'hoge' ); is( $hoge->hoge() , 'deflate:hoge' , 'deflate' ); 1; ソース package Onihei::ORM::Component; use warnings; use strict; use base 'Mojo::Base'; sub attr { my $cla

昨日、4/21 秋葉原 UDX で JPA の第一回セミナーがあったので参加してきました。 同時翻訳の受信機が先着40名だったので、心配だったのですが、翻訳したスライドが用意されていたので大分助かりました。 スライドの翻訳だけではなく、プリントアウトされたものも配布していただいたので、会場が広いのもあったので、視力があまり良くない自分としては大分助かりました。 フリースポットもあったので、講演を聴きながら CPAN にアクセスできたりするのも良かったです。 講演終了後、個人的に牧さんに質問させていただきましたが、とても親切に回答してくださいました。牧さんありがとうございます。 各セッション毎にエントリ分けてまとめましたので、ブックマークする方は、今日の日付でブックマークすると良いと思います。 代表理事挨拶 1部 Better Perl Practices 最新 Perl 開発手法のススメ

PostgreSQL で簡易に MQ - Mi manca qualche giovedi`? を読んで、こりゃ素晴らしいと思ったので Perl モジュール化しました。 simple message queue using PostgreSQL. http://github.com/fujiwara/perl-queue-q4pg-lite/tree/master 割と簡易な Message Queue ということで、Lite って名前に。pg_advisory_lock() を使用してるので、PostgreSQL-8.2 以降でないと動きません。 インターフェースは Queue::Q4M とほとんど同じ……というか、コード自体を半分ぐらい Queue::Q4M から頂いています。 use Queue::Q4Pg::Lite; my $q = Queue::Q4Pg::Lite->conn

思いは言葉に。 はてなブログは、あなたの思いや考えを残したり、 さまざまな人が綴った多様な価値観に触れたりできる場所です。

Perlでprint関数を実行してもすぐに画面に表示されない・・・ 仕様です。print、即出力を想定してると痛い目みます。 Perlでは出力されるべき文字列はまずはメモリにバッファリングされ、決められた条件を満たした時にまとめて出力されます。 その基本的な考え方はこうです。 ディスプレイへの出力は行バッファリング 改行がきたら出力 その他のハンドルへの出力はブロックバッファリング 一定サイズたまったら出力 オートフラッシュを有効化するとコマンドバッファリング print(、printf、write)が実行されるたびに出力 あと出力ハンドルがcloseされたとき、プログラムの終了時はもちろん出力はフラッシュされます。 じゃ見てみましょう。 ディスプレイへの出力は行バッファリング #! /usr/bin/perl sleep 1; print "111"; sleep 1; print "2

さくらの500円サーバで MeCab の Perl モジュールが動かなくなっていた 2009-04-28-3 [Tips][Maintenance] さくらの500円サーバにインストールして使っていた MeCab の Perl モジュールが動かなくなっていました。 perl のバージョンが 5.8.9 に上がっていたのが原因っぽいです。 その影響で MECAPI もストップしてました。 これは困りました。 というわけでさっそく対応。 MeCab 本体も Perl モジュールも「make clean」して configure からインストールし直しました。 インストール手順はこちら→[2008-11-15-1]。 しかし、Perl モジュールインストール(make install)時にこんなエラーが出て先に進まず。 Can't load '/home/***/src/mecab-perl-0

「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 ※10秒後にBIGLOBEのおすすめページに遷移します

Perl Advent Calendar Japan 2011 Casual Track 4日目でGroongaを使った簡易チュートリアルを投稿しました。 groongaをmysql経由で使うのではなく、groongaをhttpサーバーとして起動しておいてhttpリクエストでやり取りをする方式での開発方法を紹介しています。 このチュートリアルを実際に実行してくれる人がいたらうれしいです。 http://okamuuu.hatenablog.com/ そんなわけでとりとめもない記事です。 ディレクトリ構成 こんな感じ static.psgi root/ root/index.html root/xxx.html root/hoge/index.html root/hoge/xxx.html psgi % cat static.psgi use Plack::Builder;builder {

grep関数は、第１引数の検索文字列で、第２引数の配列の中を検索し、マッチした要素内容を配列で返します。 第１引数の検索文字列は、実は正規表現なのです。 なので、以下のように意外な要素を引っ掛けてしまうのです。 サンプル（grep.pl） #!/usr/bin/perl use strict; use warnings; local ($, , $\) = (', ', "\n"); my @data = ("12.4", "1234", "A12B4", "B456"); my @rdata = grep(/12.4/, @data); print @rdata; 文字列'12.4'を検索しても余分な'1234', 'A12B4'が引っ掛かる。 $ ./grep.pl 12.4, 1234, A12B4 これは、正規表現の任意の文字『.』があるのでそうなるわけです。 なので、これを『\』

Vistaで動作確認。 #!/usr/bin/perl use strict; use warnings; use Win32::API; my $SPI = Win32::API->new("user32", "SystemParametersInfo", "NNPN", "N"); my $SPI_SETDESKWALLPAPER = 20; my $IMG_PATH = "c:\\ashibe.bmp"; my $fWinIni = 0; #一時的な変更なら0。1にするとレジストリを書き換える。 $SPI->Call($SPI_SETDESKWALLPAPER, 0, $IMG_PATH, $fWinIni); このサンプルのままだとcドライブ直下にあるashibe.bmpを壁紙にします。bmpかjpgファイルを壁紙にできます。 画像の表示方法（拡大、中央など）は現在の設定を引き継い

id:charsbar氏のブクマを眺めていたらTowards a Pure Perl HTML::FillInForm: 61% tests passingという記事があった。 HTML::FillInFormが依存するHTML::ParserがXSモジュールであるため，Pure Perlで依存の少ないHTML::Parserを開発し，HTML::FillInFormをPure Perlモジュールにしたいという計画のようだ。 これは私も昔思ったことで，そこでHTML::FillInForm::LiteというPure Perlモジュールを書いたのだった。この時はもうXHTML前提でいいだろうと思いHTML4を入れてもXHTMLを出力するという仕様にしたのだが，HTML4は結局消えそうもないのでもう少し柔軟にしたほうが使いやすそうだ。 それにしてもHTML::FillInFormは古いモジュー

新装版 ほぼ日の就職論「はたらきたい。」 (ほぼ日ブックス) 作者: ほぼ日刊イトイ新聞,板尾創路,ピエール瀧,天久聖一,浜野謙太[SAKEROCK],金井壽宏,河野晴樹,しりあがり寿,みうらじゅん,矢沢永吉,糸井重里出版社/メーカー: 東京糸井重里事務所発売日: 2010/04/26メディア: 単行本（ソフトカバー）購入: 5人 クリック: 54回この商品を含むブログ (17件) を見る この人と結婚していいの? (新潮文庫) 作者: 石井希尚出版社/メーカー: 新潮社発売日: 2002/11/28メディア: 文庫購入: 52人 クリック: 639回この商品を含むブログ (37件) を見る Google Maps Hacks 第2版 ―地図検索サービスをもっと活用するテクニック 作者: Rich Gibson,Schuyler Erle,武舎広幸,福地太郎,武舎るみ出版社/メーカー: オ

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28