GlitchIMEの Perl版 - Shohei Yoshida's Diary
勉強のために書いてみた。APIは同じにしてます。 実装もほとんど同じです。 元ネタ GoogleのAPIで仮名漢字変換するGem - ミニマリストhitode909の日記 デベロッパーガイド Google 日本語入力 - CGI API デベロッパーガイド リポジトリ syohex/p5-App-GlitchIME · GitHub サンプル p5-App-GlitchIME/sample.pl at master · syohex/p5-App-GlitchIME · GitHub #!/usr/bin/env perl use strict; use warnings; use lib "../lib"; use App::GlitchIME; binmode STDOUT, ":utf8"; my $text = shift or die "Usage: $0 japanse_sen
【Perl】Parallel::ForkManagerモジュールで並列処理が便利過ぎて生きているのが辛い - oranie's blog
とあるDBを利用したバッチ処理をやらせようとした時に #スクリプトの一部分 my @list1 = (適当なリストその1); my @list2 = (適当なリストその2); foreach my $value1 (@list1){ foreach my $value2(@list2){ #DBに接続して、あるテーブルのレコード件数countする→ #その結果を別テーブルにUPDATEするSQL実行処理; } }というまあ、foreachでグルグルグルグル回すスクリプトを書いたんですね。 で、まぁこれがクソ重かったんですね。テーブルのデータは全部メモリ上に載っているんですが、 10GB（1億レコードぐらい）ぐらいのテーブルで順番に$value1,$value2の変数を条件に使ってCOUNT()を使用した SELECT文を投げるので、一つのSQL投げたらDB側のCPUコアが100%になってし
livedoor Techブログ : decision tree (決定木) でユーザエージェント判定器を作ってみる
アクセスログのユーザエージェント(UA)からブラウザを判別するのって，みんな何使ってますか？ 自分が作ったアクセス解析システムでは HTTP::BrowserDetect と HTTP::MobileAgent にそれぞれ独自パッチをあてたものを使っています。これらはルールベースの判定器なので，新しいブラウザや新種の bot が登場するたびに手作業でルールを追加し，パッチを作って配布するという作業が必要になります。 この更新作業が大変面倒くさくて対応が遅れがちになるので，「このUA文字列はこのブラウザですよ、という例を大量に与えたら、自分で勝手に判定ルールを学習してくれるようになったら便利なのになぁ」と思い，decision tree (決定木)を使ってみることを思い立ちました。 目標は， "Mozilla/5.0 (Windows; U; Windows NT 6.1; ja; rv:1
namespace::autocleanについて調べた - Perl日記
読んでます。 Perl CPANモジュールガイド 作者: 冨田尚樹,タナカユカリ出版社/メーカー: ワークスコーポレーション発売日: 2011/04/08メディア: 単行本（ソフトカバー）購入: 20人 クリック: 2,028回この商品を含むブログ (20件) を見る その中でずっとなんとなく使っていたnamespace::autocleanについても言及されていたので、せっかくなのでちゃんと調べてみたメモ。 namespace::autoclean - search.cpan.org 主要機能 そもそもこのモジュールどこでよく見たかって、Catalystの5.8系統でスケルトンを作成するとアプリケーションクラスとコントロールクラスにデフォルトで書かれているからだった。 （どのバージョンからこうなったんだろ？） $ catalyst.pl Ctest Ctest/lib/Ctest.pm
正規表現のデバッグ方法 - こんにちはこんにちはmonmonです！
re=debugってやると詳細出してくれるの知らなかったのでコピペ。 Perlコーディング初心者質問スレ Part 62 502+1 ：nobodyさん [] ：2011/05/02(月) 02:42:13.10 ID: fV7VGj7j (1/2) 「文字列A 文字列B」 という 2 つの文字列の間に複数の空白がある行において /\s*/ でマッチさせると、変数 $` (=$PREMATCH) には何も入りませんでした なぜでしょうか？ 入門書は「パターンマッチが複数解釈出来る場合には一番長い解釈にマッチする」とあります。 よって自分は \s* という「0 回以上のホワイトスペースの繰り返し」は 最も長い解釈では複数の空白にマッチし $` には文字列A が代入されるはずだと考えたのですが 503+1 ：1/2 [↓] ：2011/05/02(月) 03:50:24.42 I
Catalyst in the Cloud
A lot of buzz was generated recently in the Perl community after DotCloud, a big PaaS player, introduced its brand new Perl stack, letting developers deploy modern Perl web applications into the "Cloud" without having to worry about the underlying system at all. DotCloud already provides a nice Dancer example, and sri was diligent enough to provide a Mojolicious example as soon as he got his hands
Perlのファイル入出力の基礎 - Perl入門ゼミ
Perl › here Perlのファイル入出力の基礎をマスターしましょう。 テキストファイルの読み込みと書き込みができるようになることを目標にします。 ファイルオープン ファイルを読み込むためには最初にファイルをオープンする必要があります。ファイルはOSによって管理されているので、最初にプログラムでファイルを扱いたいということをOSに伝える必要があります。OSは対象のファイルの識別子をプログラムに返却します。 ファイルをオープンするにはopen関数:title=open関数]を使用します。 my $file = 'data.txt'; open my $fh, '<', $file or die qq/Can't open file "$file" : $!/; ファイルのオープンの処理についてひとつづつ解説します。 open関数 open関数は3つの引数を受け取ります。第一引数にはレキ
zsh で perldoc の補完を速くする方法 - 理系学生日記
zsh で perldoc の後のモジュール名を補完しようとするとき、ヤケに応答が遅かったりします。これを改善しなければこのストレス社会を生きていくことはできません。 zsh は perldoc のデフォルトの補完を行うとき、@INC や PERL5LIB 環境変数などにセットされているディレクトリを走査して、その候補となる Perl モジュール名を取得する動作をしています。補完の度に逐一こういう動作をしてしまうため、応答が遅く、ストレスが溜まり、成人病等のリスクが上がります。 元々、zsh の補完システムにはキャッシュシステムが組込まれているので、これを有効化させることで補完を高速化させることができます。これでストレス社会を乗り越えられることができますし、みなさんとてもよかったですね。 |bash| zstyle ':completion:*' use-cache true ||<
mysqlの簡単なベンチマーク測定方法 MyBench を使ってみる | レンタルサーバー・自宅サーバー設定・構築のヒント
mysqlの簡単なベンチマーク測定方法 MyBench を使ってみる
eBook Deal of the Day | InformIT
By Michael Feathers Published Sep 22, 2004 by Pearson. Part of the Robert C. Martin Series series. Pages: 464eBook (Watermarked) Get more out of your legacy systems: more performance, functionality, reliability, and manageability Is your code easy to change? Can you get nearly instantaneous feedback when you do change it? Do you understand it? If the answer to any of these questions is no, you hav
PerlでOAuth 2.0を使ってみた - hide-k.net#blog
携帯の緊急地震速報の音が怖いので、「会いたかった」に変えるHackを募集しています。 こんばんは。 OAuth 2.0は仕組も特徴も理解していたのですが、実際に実装の必要が出てきたので今更ながら初めて使ってみました。 仕様は現在draft15というステータスで公開されています。(The OAuth 2.0 Authorization Protocol) OAuth 2.0の特徴としてはHTTPSを使って通信経路を暗号化することによりトークンを直接やりとりすることが可能となっています。そのため署名が必要なくなり、あの悪夢のような署名検証をしなくて済むようになったのが大きなメリットです。 とはいえ、読んでもよくわかんないのでコードにしてみます。Authorization ServerとResource Serverとして使ってみるのはFacebook。クライアントサイドフローとサーバーサイドフ
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
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
Coro で Worker-Thread パターン - l1o0の日記
増補改訂版 Java言語で学ぶデザインパターン入門 マルチスレッド編 を参考に Coro で Worker-Thread パターンを実装。 Worker-Thread パターンはワーカースレッドが依頼を待ち、依頼が来たら処理する。 #!/usr/bin/perl use strict; use warnings; package Client; use Coro; use Coro::Timer; sub new { my ( $class, %args ) = @_; bless \%args, $class; } sub run { my $self = shift; my $coro = async { do { for my $count ( 1 .. $self->{num_of_request} ) { print $self->{name}, " request $count
CuteというWebフレームワークを作った - Kentaro Kuribayashi's blog
俺々フレームワークを作ってみたかったので、先人の知恵をいろいろ拝借する感じでやってみた。 https://github.com/kentaro/cute いろいろ足りないものがあるけど、まあとりあえず動くところまで。自分の好み的に、わりといい感じになりつつあるので、今後は、個人用プロジェクトにはこれを使っていきたい。 いちファイルでこんなん書いたら適当に動く感じ。 package Example::Cute::Default; use strict; use warnings; use Cute; sub title { my ($self, $suffix) = @_; my $title = 'Hello, Cute!'; $title .= " ($suffix)" if $suffix; $title; } get '/' => sub { my ($self, $ctx) = @
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
DBD::mysqlと5.5.10の組み合わせは相性わるいっぽい?
Installing DBD::mysql for Perl5.10 on Mac OS X Snow Leopard
Perl Snippets
Mailing List Archive: Catalyst
GitHub - miyagawa/fastpass: Tiny, XS free, standalone and preforking FastCGI daemon for PSGI
