The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
FedoraCoreやCentOS系の遅いPerlのパッチの件 3月くらいにkazeburoさんがメモしてた遅くなる話。 極端に遅くなる処理のベンチ例みたいなのがほしいかな何やったら遅くなるかわかりました。 すごく正確に検証してるわけでも無いのですが、use overloadしたパッケージをblessするとき。 例えばURIやDateTime等のnew時。 この時にかかるCPUコストが激しく高いため、全体的にアプリケーションがもっさりと動く事になってました。 しかもFC4系列のディストリビューション全体で注意した方が良いかもです。 家はCentOS 4.4の perl 5.8.8-4.el4e1 のRPMで該当のパッチが混入していました。 書いたアプリが見込みよりもパフォーマンスが悪くて、最後の最後にまさかと思ってoverloadしてるモジュールを疑っていたらkazeburoさんにナイス指
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
すみません、今までずっと知りませんでした。orz... 前々から人のソースに良く出て来るのでなんでかなーと思ったんですけども、ふと気になって調べてみました。 carp, croakの違い 論より証拠 #!/usr/bin/perl use strict; use warnings; package Pack::C; use Carp; sub foo { carp("test"); } package Class::B; sub foo { Pack::C::foo; } package Pack::A; sub foo { Class::B::foo(); } package main; Pack::A::foo(); と、このソースのuse Carpをuse Carp::Clanに変更した物で実行結果が異なります。 use Carp test at carp.pl line 17use
« 負荷に応じてキャッシュを自動調節する Perl モジュール | メイン | FizzBuzz - Perl 使って50バイト » 2007年05月10日 Cache::Adaptive の使い方 昨日のエントリが好評のようだったので、いろいろ問題を修正したバージョンを CPAN にアップロードしました (Cache-Adaptive-0.02 - search.cpan.org) 。ついでに、開発中のウェブサービスに仕込んで、トップページでベンチマークを取ってみました。こんな感じです。 キャッシュが効いていない状態で、0.1 秒強かかっているページについて、同時アクセスを増やしていっても問題ないのがおわかりいただけると思います。同時接続数が増えるにつれキャッシュヒットする率が上がり、平均レスポンスタイムが小さくなるのはご愛嬌。ちなみに、使った設定は以下のようなものでした。ログ出力のコー
書き忘れたけどさっきの update_schema.pl は ./script/myapp_update_schema.pl dbi:mysql:tablename username password 見たいな感じで DSN を渡す必要がある。めんどう。 ここら辺があれでまだヘルパーにはなってない。 mizzy.org : Re: DBICとDBIx::Class::Schema::Loader 僕のいろいろな勘違い 僕の中で流行ってる使い方があるのでかぶせて書いておいてみる。mizzy さんの二個目の例を自分ルール化させた感じ? 作業は一般的なCatalystアプリのディレクトリ構造上であるとして、そこに新しく schema というディレクトリを作成。 そんで、 schema/lib/Schema/{TableName}.pm に各テーブルのリレーション定義とかメソッドとかを自分で書く。
DBIx::Class::Schemaの使い方 亀レスだけどSchema::Loaderネタが流行ってたみたいなので、最近の自分の使い方を。 まぁSoozyつかってるのでmake_schema_atで作られた静的なSchema使ってるんだけども。 自分的にはSchmeaクラスは一切手をつけたく無いので、大部変わった事をしているかも。 若干mfacインスパイアぎみではあるけど。 package Soozy::Plugin::DBIC::AutoSetup; (略) sub setup_components {#Catalyst::setup_componentsとほぼ同じ my $class = shift; my $schema_bases = Soozy::Component::Loader->find_components( '', search => [ $class->base_c
Today I've been thinking about what to talk in YAPC::EU (and OSCON if they're short of Perl talks, I'm not sure), and came up with a few hours of hacking with web-content scraping module using Domain Specific Languages. 使ってみたよ! #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use URI; use Web::Scraper; use Encode; use List::MoreUtils qw/uniq/; my $links = scraper { process 'a.key
はじめに 携帯らしいかわいいサイトを構築するのにかかせない絵文字ですが、最近は携帯向けメールマガジンなどのメールにも絵文字が含まれるようになってきています。 本稿では、絵文字を含んだメールを送信する場合のキャリアごとの仕様の違いと、送信方法を紹介します。対象読者絵文字を含んだメールの送信を検討している方CPANモジュールを使用したことのある方 必要な環境 Perl 5.8以上が動作する環境。キャリアの仕様の違いと絵文字を埋め込む方法 絵文字を含むメールの送信は、基本的に絵文字のバイナリデータを本文に挿入することで可能となります。しかし、キャリアごとに絵文字の仕様が異なるため、その違いを吸収する必要があったり、そもそも絵文字に対応していない端末があるため、配信する端末を制限するなどの方法を検討しなければなりません。 そこで、絵文字を送信する上で各キャリアごとにどのようにすればよいのかをまとめ
acme (email not shown publicly) http://www.astray.com/ Leon Brocard (aka acme) is an orange-loving Perl eurohacker with many varied contributions to the Perl community, including the GraphViz module on the CPAN. YAPC::Europe was all his fault. He is still looking for a Perl Monger group he can start which begins with the letter 'D'.
2007年04月15日07:30 カテゴリLightweight Languages perl - 勝手に添削断念 - NNIPF 「はてなブックマーク - タグ perl」で以下を発見して、SPAMとの戦いに日々うんざりしている私は期待に胸を踊らせたのですが、代わりに心臓が踊ってしまいました。 http://vrl.sys.wakayama-u.ac.jp/~twada/NNIPF.html NNIPFでは,我々が長年蓄積した100万通以上の大量のSPAMデータを詳細に解析した結果,最も有効であると思われる「送信者の情報」を特徴として利用しております.下記の二つを,指定されたURLからダウンロードして,下記の指定された名前でNNIPFのディレクトリに保存してください. -rw-r--r-- jcode.pl-2.13 http://www.srekcah.org/jcode/jcode.
NAME Log::Dispatch::Config - Log4j for Perl SYNOPSIS use Log::Dispatch::Config; Log::Dispatch::Config->configure('/path/to/log.conf'); my $dispatcher = Log::Dispatch::Config->instance; $dispatcher->debug('this is debug message'); $dispatcher->emergency('something *bad* happened!'); # automatic reloading conf file, when modified Log::Dispatch::Config->configure_and_watch('/path/to/log.conf'); # or
Now, next, and beyond: Tracking need-to-know trends at the intersection of business and technology AI/ML Few technologies have the potential to change the nature of work and how we live as artificial intelligence (AI) and machine learning (ML). Future of the Firm Everything from new organizational structures and payment schemes to new expectations, skills, and tools will shape the future of the fi
Thoughts on keeping your perl code lean as your code base gets bigger. Ideas on API structure for plugins and modules which can help. Some recommended option settings and module suggestions for handling configuration. A passing reference to logging. A variety of pop culture, tech and start up culture references to keep things interesting. All feedback welcome Presented 18/08/2015 at Sydney PM
NAME XML::Amazon - Perl extension for getting information from Amazon VERSION version 0.14 SYNOPSIS use XML::Amazon; my $amazon = XML::Amazon->new(token => AMAZON-ID, sak => Secret Access Key, locale => 'uk'); my $item = $amazon->asin('0596101058');## ASIN access if ($amazon->is_success){ print $item->title; } my $items = $amazon->search(keywords => 'Perl');## Search by 'Perl' foreach my $item ($i
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く