ゆーすけべー日記: 「エロサイトにおけるコンテンツマッチ型広告APIの自作」の資料
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
Template-Toolkitでマルチバイトな話 - 日向夏特殊応援部隊
先に言っておくと、hide-kさんのまとめが分かりやすいです。 http://blog.hide-k.net/archives/2007/03/catalyst_2.php 最もCatalystを使う際にと言う事ですが。 utf8フラグを立てないでTTを使う場合 ソース自身はutf8で書くんですけど、 #!/usr/bin/perl use strict; use warnings; use Carp::Clan; use Path::Class; use Template; my $base_dir = dir($ENV{HOME}, qw/tmp tt_test/); my $template = Template->new({ COMPILE_DIR => $base_dir->subdir('tt.cache')->stringify, COMPILE_EXT => 'c', })
窓の杜 - 【NEWS】PerlスクリプトをEXE形式の実行ファイルへ変換「Perl2Exe Lite」
PerlスクリプトをEXE形式の実行ファイルへ変換できる「Perl2Exe Lite」v9.100が、18日に公開された。Windows 95/98/Me/NT/2000/XP/Vista/XP x64/Vista x64に対応する49米ドルのシェアウェアで、現在作者のホームページからダウンロードできる。なお、試用期限は30日となっており、試用中は変換されたEXEファイルの実行時に広告メッセージがコマンドプロンプトで表示される。 「Perl2Exe Lite」は、PerlのスクリプトファイルをEXE形式の実行ファイルへ変換できるソフト。変換されたEXEファイルは、Perlをインストールしていないパソコンでも動作するため、ファイル操作など汎用的に利用できる作業スクリプトを社内で配布したり、友人へ渡したい場合に便利だ。 EXEファイルへ変換するには、まず変換元のスクリプトファイルを本ソフトのイ
フレームワーク勉強会 - Lazy Programmer :-p
kansai.pm に参加させて貰いました。Thanks! 二つほど考えさせられることがあったので、まとめようと思います。 フレームワークと制約 色々なフレームワークの紹介がありましたが、私的に、一つ良いのがあれば（現在:Catalyst)、それを超えないかぎり他はいらないじゃないかな、と思っていましたが、今回参加したことによって、考えの幅が広がりました。 私がこれまで開発してきたのは、サーバの発注から行うことが一般的で、perlが5.0だけが入ってるとか、CPANのモジュールは使えないなどの制約などは気にしたことはほぼありませんでした。 つまりそうか、「制約の中で動かすようにする必要がある場合の、フレームワークという需要」があるのがわかりました。 ただ個人的に、制約の中でのフレームワークというのは、戦術レベルの対応であって、そういった状態を避けるための戦略的な努力をまずしてから、それでも
2008/01/23 - memo - unknownplace.org
DBICで論理削除をしたくなったので調べていたのだが、うまく書く方法がイマイチなかった。 まず、削除フラグを常にチェックするようにするのは簡単で、テーブルクラスに __PACKAGE__->resultset_attributes({ where => { deleted => undef }}); とか書いてくだけでつねにWHERE句に deleted IS NOT NULL が入るようになる。これはマニュアルに書いてある通り。 問題は削除するときで、テーブルクラスで delete 定義してそこで update({ deleted => 1 }) とかやればいいかなと思いきや、そうすると cascade delete 効かなくなってしまっていやだ。 DBICのrowに対するdeleteチェーンは大まかに ユーザー定義テーブルクラスでのdelete (定義されてる場合)DBIx::Clas
Spreadsheet::WriteExcel = Perl で Excel 出力
業務系アプリを書いていると、csv 出力ぢゃなくて、Excel データそのものを出力できたらなぁ・・・と思うことがあると思います。そこで、 Perl で Excel データを生成する方法と日本語を扱うときの注意点をまとめてみました。 環境構築編／必要な Perl モジュールをインストールします。 下記コマンドを root 権限のあるユーザで実行してください。 perl -MCPAN -e 'install Spreadsheet::WriteExcel' perl -MCPAN -e 'install Spreadsheet::ParseExcel' perl -MCPAN -e 'install Unicode::String' 日本語を含む Excel データの生成例 #!/usr/bin/perl -w use strict; use Jcode; use Unicode::Stri
Perl の autobox で遊ぶ - 2008-01-19 - naoyaのはてなダイアリー
autobox を使ったコードをここ最近よく見た ので、ややいまさらですが自分もすこし遊んでみました。autobox は Perl の組み込みのデータ (bless されていないスカラー、リスト、ハッシュほか) をファーストクラスオブジェクトとして扱うための機構を提供するモジュール(レキシカルプラグマ)です。 #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use autobox; use autobox::Core; use autobox::Encode; use autobox::Hatena::Feed; use autobox::Accessor; shift->b(qw/perl autobox/)->items->foreach(sub { $_[0]->title->encode('utf
Perl最速伝説
Perlのロジックの違いから、どの程度速度差が出るのか、スピードテストの記録です。 最速伝説と言いながらPerl以外の言語とバトルしてないじゃないかという突っ込みは無しの方向でお願いします。 Unix帝国Linux市、ここにはインタプリタ屋のメッカ、オライリー峠がある。 その峠からの下りフローチャートは勾配がきつくタイトなIF文が連続するコース。 そこを軽々と走り抜ける男、ラリー・ウォール。 ひょんなことからオライリー峠のバトルに参加し、 インテル入ってる！といわれるSUN兄弟の弟ジョン・ケムニーが駆るBASICに勝ってしまったラリー。 ラリーの乗るPerl5.8、通称“ゴーハチ”は彼の若かりし頃の傑作、20年前のログ整理用言語である。 ジョン・ケムニーにラリーのゴーハチが勝ったという噂はたちまち周辺のインタプリタ屋たちの間に広まり、次々と挑戦者が名乗りを上げてくる。 しかし、バリバリにチ
.forward で受信メールをどうこうする - IT戦記
書いとかないと忘れそうなのでメモメモ .forward ファイルにコマンドを書いておく "| exec /Users/amachang/hoge.pl" で、そのメールのデータをオブジェクトにする use MIME::Parser; my $parser = MIME::Parser->new; $parser->output_to_core; my $entity = $parser->parse(\*STDIN); オブジェクトからそれぞれのデータを取り出す use Encode; # Subject my $subject = decode('MIME-Header', $entity->head->get('Subject')); # From my $from = do { $entity->head->get('From') =~ /([^<]+\@(?:[-a-z0-9]+\
つくるぶガイドブログ: テンプレートの記述もPerlで - Template::Declareを使う
こんにちは、Perl担当の西山です。 これまでJifty::DBI、Template::WWW::DeclareとWebフレームワークJiftyの周辺モジュールについて書きましたが、今回はViewに関わる部分であるTemplate::Declareというモジュールを取り上げようと思います。 特徴 Template::Declare（以下TD）は、HTML::MASONやTemplate::Toolkitなどに並ぶテンプレートエンジンですが、他のものには無い特徴を持っています。 すべてのテンプレートは100% Pure Perlで記述する 宣言的なシンタックス Mixinや継承などのオブジェクト指向の機能を利用可能（Perlなので） HTML/XUL/RDF/XMLなどの形式に対応（その他の形式も拡張可能） 簡単な例でPerlではデファクトのテンプレートエンジンであるTemplate::T
Perl で 8ビット CPU を作る - naoyaのはてなダイアリー
CPU を作る、と言ってもハードではなくソフト、仮想機械です。 2001 年から UNIX USER で連載されていた西田亙さんの「gccプログラミング工房」。いまさらながら、バックナンバーを取り寄せて初回から順番に読んでいます。とてもためになる連載です。 この連載中で第10回から数回に分けて開発されていた octopus という 8 ビット CPU の仮想機械があります。オリジナルは C 言語で書かれていたのですが、その設計を見て、これは他の言語でも作れるのではないか、と思い Perl に移植してみたところなんとか動作させることができました。以下の URL にコードを公開します。(西田さんに確認を取ったところ、オリジナルのソースは Public Domain とのことでした。オリジナルは http://www.skyfree.org/jpn/unixuser/ からダウンロード可能です。
Perl Tips | Perl で、メールサーバに送られてきたメールを処理する
Procmail を利用すればサーバに送られてきたメールが標準入力から Perl スクリプトに渡すことができる。ここでは Procmail の詳細は割愛するが、以下は標準入力に入っているメールを処理する関数。 使用するクラス use MIME::Parser; use MIME::Base64; use Mail::Address; use MIME::Parser; use MIME::Base64; use Mail::Address; use Unicode::Japanese; my ($mail) = &parse; print "From: " . $mail->{sender} . "\n"; print "To: " . $mail->{recipient} . "\n"; print "Subject: " . $mail->{subject} . "\n"; sub p
たけまる / OpenID v1.1 の IdP と Consumer を Catalyst で動かした
_ OpenID v1.1 の IdP と Consumer を Catalyst で動かした [openid][catalyst] IdP (Identity Provider) と Consumer を Catalyst で動かしてみました． といっても，IdP はNet::OpenID::Server を Catalyst に組み込むだけだ し，Consumer にいたっては Catalyst::Plugin::Authentication::Credential::OpenID というプラグインがあるから簡単だろうと思っていました．ところが，そ うでもなかったので，メモとソースを残しておきます． ダウンロードすれば，実際に動く IdP と Consumer が手に入ります．手っ 取り早く手元で OpenID を動かしてみたい人はダウンロードしてみてくだ さい．なお，Catalyst
Perl で Unicode Character について触る - daily dayflower
Python の unicodedata モジュール - bkブログ を読んで，それ Perl だとどうよと思ったんで対応をまとめてみました。utf8 flag や Encode モジュールについては特に解説しませんので。 文字の名前を取得する charnames モジュール（Perl 5.6 より付属）の viacode 関数を使うと文字の名前を取得することができます。引数として文字列ではなく文字コードを渡すところが要注意です。 use utf8; use charnames qw( :full ); print charnames::viacode(ord 'A')), "\n"; # 'LATIN CAPITAL LETTER A' print charnames::viacode(ord 'あ')), "\n"; # 'HIRAGANA LETTER A' 文字列リテラルとして標準
Ajax - linkjawiki : 404 Blog Not Found
2007年12月25日14:45 カテゴリLightweight Languages Ajax - linkjawiki 404 Blog Not Found:perl - Text::Tx も一応作った目的は、実はこれにあります。 小飼弾（こがい だん、1969年8月17日 - ）は日本のオープンソース開発者。ディーエイエヌ有限会社代表取締役。歌代和正開発のjcode.plの発想を基にJcode.pmを開発したことで知られ、その後、プロジェクトEncode Module(Encode.pm）のメンテナンスとPerlバージョン5.8の開発に携わった。そうした経緯から日本のPerlハッカーの一人と認知されている。 見ての通り、ウィキペディア日本語版でキーワードリンクします。 % ls -l jawiki jawiki.tx 9200 -rw-r--r-- 1 dankogai wheel 9
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Web::ScraperとCatalystでアダルト動画を紹介するサイトを作ってみた - アダルトサイト研究所
はてなブログ | 無料ブログを作成しよう
Web::ScraperとLWP::Simpleを使って画像掲示板的なサイトから画像を頂く | ブログが続かないわけ
Perl：%SIGによるシグナルの制御
今日のCPANモジュール（跡地） 目次