YAPC::Asia 2009で「『Ficia』インフラとPerlにまつわるエトセトラ」というタイトルでしゃべってきました - （ひ）メモ
YAPC::Asia 2009 第一日目で「『Ficia』インフラとPerlにまつわるエトセトラ」というタイトルでしゃべってきましたのでその資料を公開します。 『Ficia』インフラとPerlにまつわるエトセトラView more documents from Masaaki HIROSE. 他の方のスライドも http://www.slideshare.net/event/yapcasia-2009 から参照できるようでっす。 以下、今回のトークの内容で参考にさせてもらったURLのリストです。 Linux のプロセスが Copy on Write で共有しているメモリのサイズを調べる - naoyaのはてなダイアリー http://d.hatena.ne.jp/naoya/20080212/1202830671 mod_perl における C10K Problem, 竹迫 良範 http
miyagawanize.pl 試した - bayashi_netの作業ログ
YAPC::Asia2009で大うけだった miyagawanize にインスパイアされて、4U - beauty image bookmarking のフィードの画像を取ってきて、根こそぎ美少女を miyagawanize して IRC か twitter にポストするというネタを非同期な感じでやろうとしたけど、なかなか難しかった。 まず普通にスクリプトを動かそうとする。 OpenCV と Imager はけっこうすぐ入ったけど、Image::ObjectDetect がすんなり行ってくれなかった。 Package opencv was not found in the pkg-config search path. Perhaps you should add the directory containing `opencv.pc' to the PKG_CONFIG_PATH env
DBIで文字コード変換その後 - omoonのブログ
http://d.hatena.ne.jp/omoon/20070710/1184034594 http://q.hatena.ne.jp/1183789393 このあたりに書いていたことの顛末です。とりあえず、この形で様子を見る、というのができたので書いときます。とりあえず今のところ暫定版。変化があり次第追記します。 結論から言うと、DBIのサブクラスを作って実装しました。 主に、この部分を参考にしました。 http://search.cpan.org/~timb/DBI-1.58/DBI.pm#Subclassing_the_DBI やったことは、以下の３つ。 prepare部分でsql文をencode（cp932へ） execute部分でプレースホルダへの変数をencode（cp932へ） fetch部分で戻り値をdecode（cp932から） 上２つで、更新（insert, upd
よく使用する関数・標準モジュール一覧 - Perl入門ゼミ
Perl › よく使う関数・モジュール よく使用する関数・標準モジュールの一覧です。これらの関数を覚えておけば、Perlをより便利なものにすることができます。詳細な解説は避け、簡単なサンプルを紹介しています。戻り値のあるものについては$retという記号で表しています。 また、よく使用する特殊変数、標準モジュールについても、解説しています。各項目から、関数の詳細にもリンクしていますので、便利にご利用ください。 数学関数 文字列操作 配列操作 ハッシュ操作 ファイル入出力 ファイル・ディレクトリ操作 時刻・時間 その他の重要な関数 関数とモジュールのドキュメントの調べ方 よく使用する特殊変数 よく使用する標準モジュール 数学関数 abs 絶対値を求めるにはabs関数を使用します。 $ret = abs $num; abs(-3)は3になります。 sqrt 正の平方根を求めるには、sqrt関数を
Catalyst + FastCGI + Apache (mod_fastcgi) の設定 - 日向夏特殊応援部隊
すっごい久しぶりにやった件。 FastCgiExternalServer /home/zigorou/myapp/MyApp/script/myapp_fastcgi.pl -socket /tmp/myapp.socket <VirtualHost *:80> ServerName myapp.local DocumentRoot /home/zigorou/myapp/MyApp/root Alias /static /home/zigorou/myapp/MyApp/root/static AliasMatch ^/([^./]+\.[^./]+)$ /home/zigorou/myapp/MyApp/root/$1 ScriptAlias / /home/zigorou/myapp/MyApp/script/myapp_fastcgi.pl ErrorLog /var/log/ht
FCGI - Fast CGI モジュール
名前 NAME FCGI - Fast CGI モジュール FCGI - Fast CGI module 書式 SYNOPSIS use FCGI; my $count = 0; my $request = FCGI::Request(); while($request->Accept() >= 0) { print("Content-type: text/html\r\n\r\n", ++$count); } 説明 DESCRIPTION 機能 Functions: FCGI::Request リクエストハンドルの生成. 次のパラメータを任意で指定できます. Creates a request handle. It has the following optional parameters: 入力ファイルハンドル (デフォルト: \*STDIN) input perl file hand
Premature end of script headers
まず、もっとも簡単なCGIを動かしてみてください（パーミッション変更忘れずに） 例 #! /usr/bin/perl #↑これは各自の環境に合わせてください print "Content-type:text/html\n\n"; print "test"; これで動かなかったら以下の項目を試してみてください（責任はもてません） A.あなたがサーバ管理者の場合（B.の借りてる場合も参照） 1、改行コードが誤認識される なんか、こういう事態が発生することがあるみたいです。（うちもそうです） perl script内の一行目に #! /usr/bin/perl -- を付けるとなぜか直る。 ※FTP転送で相手のOS自動認識がうまくいかないとなるとの報告もありますが、うちではなぜかLinux上で作成した物でもこれをつけないと動かないです＾＾ 2、perlのパス表記が間違ってる。 てきとーにシンボリ
Object::PerlDesignPatterns
The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending. NAME Object::PerlDesignPatterns - Perl architecture for structuring and refactoring large programs SYNOPSIS lynx perldesignpatterns.html perldoc Object::PerlDesignPatterns ABSTRACT Documentation: Ideas for keeping programs fun to hack on even after they grow
Mooseを使うか使わないか | taro-nishinoの日記 | スラド
私は、以下のような人には理屈もへったくれもなく、無条件にMoose（Mouseでも構いません）を使えと言います。PerlのOOに悩みたくない人、いわゆるモダーンPerlが何であるか理解出来ない人（すなわち、Perlのベストプラクティスやピットフォールを知らない人、もっと端的に言えば、Perlに精通していない、赤ちゃん言葉でしか喋れない人です）、Mooseを知らない人（皮肉で反対なことを言っているのではありません。Mooseを食わず嫌いな人です。そういう人は、どうせMooseやClass::MOPのソースも読みはしないのだから、Mooseの何たるかを理解させる時間が無駄です）。 しかし、Perlに精通している人には無理強いしません。いろいろな考えがあるでしょうし、オーバーヘッドが無視し得ない環境もあるのです。また顧客が望まない場合もあります。一般的に顧客というのはすごく保守的です。コードも納
Perlにおける定数宣言(constant or Readonly or Attribute::Constant) - Unknown::Programming
正直言いますと、個人的には定数って殆ど使わないんですよね。 昔はちょこちょこ使ってたんですが、最近は定数となりうる物は基本的にYAML等外部ファイルに持たせて変更可能にすることが多いのでまったく使ってません。 ですがそれでもPerlで定数を使いたい時にはどーすんの？っていう時のために軽くここにまとめておきます。 言わずもかなPerl5.8にはconstantという定数を定義できる標準モジュールがあります。 use strict; use constant PI => 3.14; # 表示 print PI; # 3.14 # 上書きしようとすると・・・ PI = 3; # Can't modify constant item in scalar assignment とこのように上書きしようとするとエラーを吐いて死にます。 しかも実行時ではなく、コンパイル時にエラーを吐きます。 実はこのc
POEで簡単なIRCのbotを作ってみた。 - (ﾟ∀ﾟ)o彡 sasata299's blog
2009年05月05日00:39 Perl POEで簡単なIRCのbotを作ってみた。 今頃！？って感じもしますが、POEを使ってみました。(*･ω･)ノ POEはイベント駆動アプリケーションフレームワークで、イベントに対するアクションを設定することで、設定したイベントに対してリアルタイムに処理できる、というものみたいです。今回はIRCで、「URLを投げられたらタイトルを返す」というbotを作ってみました。ソースを貼っときます。 irc.pl #!/usr/bin/perl use strict; use warnings; use POE qw(Component::IRC); use HTML::TagParser; my $url = qr{s?https?://[\-_\.~\*'\(\)a-zA-Z0-9;/\?:@&=\+,%#]+}; my $channel = '#hoge
livedoor Developers Blog:String::Trigram でテキストの類似度を測る - livedoor Blog（ブログ）
こんにちは。検索グループ解析チームの nabokov7 です。 今回は、livedoor キーワードでの事例より、テキストの類似度を測るのに便利な手法を紹介します。 livedoor キーワードは、livedoor ブログでその日その日で話題になった語をランキング表示するサービスです。 当初、はてなキーワードやWikipediaを足して2で割ったようなサービスを作れといった開き直った指示のもとで開発が開始されたともいう、分社化前の芸風の名残で、キーワードの検索結果にはユーザが自由に解説を書き込める Wikipedia 的スペースもついています。 で、この解説部分に、さまざまなサイトから文章をまる写ししちゃう人がとても多いのですね。 特に多いウィキペディア日本語版からの剽窃を防止するために、livedoor キーワードでは以下のような対策を講じることにしました。 ウィキペディア日本語版の解説
Catalyst::Manual::Intro
Catalyst Contributors, see Catalyst.pm Kieren Diment Kennedy Clark Tomas Doran Graham Knop Jonathan Rockway Jesse Sheidlower Brian Cassidy Caleb Cushing Dan Dascalescu Rafael Kitover Jason Felds Frederik Schwarzer Jonathan Yu Breno G. de Oliveira Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯 Matt S Trout Florian Ragwitz Jess Robinson Matthew Horsfall Andrew Rodland Artem Konev Eden Cardim Justin Hunter Ricardo Signes Robert '
Cache::Memcached::Fast - モダンなPerl入門 - モダンなPerl入門
memcached へのアクセスは Cache::Memcached::Fast がオススメです。高速かつ安定して動作します。 つかいかた use Cache::Memcached::Fast; my $memd = new Cache::Memcached::Fast({ servers => [ { address => 'localhost:11211', weight => 2.5 }, '192.168.254.2:11211', { address => '/path/to/unix.sock', noreply => 1 } ], namespace => 'my:', connect_timeout => 0.2, io_timeout => 0.5, close_on_error => 1, compress_threshold => 100_000, compress_
Big Sky :: 訳：Installing Perl modules without root access
by Jon Allen (JJ) - posted on Wednesday, 26 August 2009 ここ2、3年にわたって、Perlでの開発はCatalystやDBIx::Class、Moose等のエキサイティングな新技術により変わってました。 しかしながら、これらや他のツールに共通して言える事が1つあります - それらはこれらがPerl本体の配布物ではなくCPANの一部という事です。共有ホスティングサーバなど信頼されている環境においては、ユーザはルート権限なしでCPANモジュールをシステムにインストールする事が難しいでしょう。 ただ幸い、単純解があります - それが local::lib です。 local::lib の紹介 local::lib は CPAN ディストリビューションをホームディレクトリににインストールできる様にあらゆる設定を行うPerlモジュールです。これは
ログ解析用フレームワークApp::Hacheroを作っているんだけど
App::HacheroはClass::Component::Component::Plaggerizeで作っていて、というかApp::MadEyeからコピペして作りはじめて、じぶんでざくざくpluginを書いて自分の好きなようにlogを解析しましょう、みたいなツールです。いまでもある程度ごにょごにょできます。スピード面のことを考えてないので、id:higepon的な意味でダメな進行をしていますが、まま、まずは使えるところまで持っていこう、というところ。 ほんで、plaggerっぽくconfig.yamlに使うプラグインと設定を書いて「えいやー」、で動くんだけど、plaggerでいうplugin_pathみたいに自作のpluginをフレームワークの中に入れずに追加する方法をなんとかしてつけたいな、と思ったのですよ。IRCで相談したらid:yappoがさくっとModule::Collectと
memcachedの簡単な使い方 - (ﾟ∀ﾟ)o彡 sasata299's blog
2009年03月02日01:12 KVS Perl memcachedの簡単な使い方 YouTube Oricon Rankingでは、memcachedを利用しています。テーブルとか考えるのめんど（ｒｙ このwebアプリはperlで実装されているので、perl + Cache::Memcachedの組み合わせです。王道ですね。※repcachedを利用しているため、serversは2つ指定。 MyApp::Cache::Memcached.pm package MyApp::Cache::Memcached; use strict; use warnings; use Cache::Memcached; sub new { my $self = {}; my $memchached = new Cache::Memcached({ servers => ['127.0.0.1:11211
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
メモ-encodeとdecodeとfrom_toの違い- - ちひロぐ
Perlで作るモバイルサイトのコツ：目次
DBIx-Sharding-0.04