CoroはCoroutineのCoro - PerlでFiber - はこべにっき#
Ruby勉強会@関西でFiberについて勉強してきた - はこべブログ ♨でPerlでもGeneratorをうまく書けるモジュールがないかなーとこぼしていたところ． perlではCoroでほぼ同じ事ができるが、どちらにしろCoroを使う利点は1個1個をresumeすることじゃなくて 非同期に実装することだと思うのでgenerator云々はちょっと用途が違う気もするです http://b.hatena.ne.jp/lestrrat/20090202#bookmark-11922880 というブコメをいただきました．id:lestrratさんありがとうございます． Coroについて調べてみたところ，Coro::Introによると The natural application for these is to include a scheduler, resulting in cooperati
Perlで生でrand関数をごちゃごちゃ使うコードはもう嫌だ | hirobanex.net
Hachioji.pm#12で発表したネタです。Data::WeightedRoundRobin使ったら、rand使うようなコードが、いい感じにすっきり見やすくかけましたよーという話です。 嫌なコードの概要 要件 「以下のような感じで、実行する処理をランダムで変更してよ!」って要件がたまにありますね。 3割の確率でhogeを実行 3割の確率でmogeを実行 2割の確率でfooを実行 1割の確率でbarを実行 1割の確率でjarを実行 ファクトリーメソッドパターン的な実装ですね。 ごにょごにょするとこんな感じの実装に my $rand = rand(); my $method; if($rand < 0.3){ $method = 'hoge';#3割 }elsif($rand >= 0.3 && $rand < 0.6){ $method = 'moge';#3割 }elsif($rand
Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
Perl スクリプトでのコマンドラインオプション処理 Getopt::Long
公開 2006年8月25日、 更新 2009年1月17日 Perl でコマンドラインオプションを処理するときの覚え書き。基本的ないし実用的な事項のみで、中級以上のトピックはばっさり省いています。Perl ドキュメントをもとに作成しました。 1. 基礎知識 オプション名の大文字小文字は区別されない。 短いオプション名（例: -a）は長いオプション名（例: --all）から自動的に作られる。 オプションとして処理されなかったコマンドライン引数（ファイル名など）は @ARGV に残る。 2. GetOptions 関数 コマンドラインオプションを処理するには Getopt::Long モジュールの GetOptions 関数を使う。 use Getopt::Long; 以下のコード例では use Getopt::Long; は省略している。 2.1. 単独で指定するオプション my $opt_a
いやなブログ - 文字列操作の比較表: Ruby, Python, JavaScript, P...
文字列操作の比較表: Ruby, Python, JavaScript, Perl, C++ Ruby, Python, JavaScript, Perl, C++ の文字列操作の比較表を作りました。配列操作の比較表の続編です。間違いなどがあったらご指摘いただけると助かります。 Ruby (String) Python (str) JavaScript (String) Perl C++ (std::string)
プラグマを import すると use したクラスにもプラグマが効くようになる - 僕ト云フ事＠はてな出張版
知らなかった！ id:dann に教えてもらった。 package Hoge::Base; use strict; use warnings; use utf8; sub import { strict->import; warnings->import; utf8->import; } このクラスを use すると strict, warnings, utf8 が効く package Hoge; use Hoge::Base; # ここは strict, warnings, utf8 Moose, Mouse はこういう仕組みらしい。
Don't use base.pm, use parent.pm instead! - Islands in the byte stream (legacy)
「使っちゃいけない標準モジュール」*1の反響を見ていると、baseが非奨励ということに驚かれた方が少なくありませんでした。そこで、baseについて補足します。 まずbase.pmのドキュメントの最初の文は以下のようになっています。 Unless you are using the fields pragma, consider this module discouraged in favor of the lighter-weight parent. (拙訳： fieldsプラグマを使用しているのでないかぎり、このモジュールは勧められない。かわりに軽量なparent.pmを使う方がよい。) fieldsプラグマは、ハッシュリファレンスのキーを固定したオブジェクトを作成するための機能ですが、あまり一般的ではないためここでは解説しません。特に理由がない限り、ここは素直に忠告に従った方がいいでし
CatalystのChainedアクションの連鎖を止める方法 - (ﾟ∀ﾟ)o彡 sasata299's blog
2009年05月17日00:14 Perl CatalystのChainedアクションの連鎖を止める方法 最近Chainedアクションを使っていて困ったことがありました。それは、、、 レインボーブリッジが封鎖ｄ Chainedアクションの連鎖が止められませんっっ(ﾉ｀□´)ﾉ〜┻━┻ どういうことかというと、ログインしているかどうかのログインチェックをChainedアクションを使って実装していて、未ログイン状態だったらログインページにリダイレクトさせたかったんです。 sub auto : Private { my ($self, $c) = @_; $c->res->redirect( 'http://www.zozom.net' ); $c->log->debug("in auto"); } sub hoge : Local { my ($self, $c) = @_; $c->log-
PerlでSwitch文（Case文） - 小池啓仁 ヒロヒト応援ブログ By はてな
Perlでは、言語仕様的にはSwitch文はありませんが、Switchモジュールを使用することで実現が可能です。 use Switch; switch ($val) { case 1 { print "number 1" } case "a" { print "string a" } case [1..10,42] { print "number in list" } case (@array) { print "number in list" } case /\w+/ { print "pattern" } case qr/\w+/ { print "pattern" } case (%hash) { print "entry in hash" } case (\%hash) { print "entry in hash" } case (\&sub) { print "arg to s
use Memoize; - FloralCompany.log
perl(v5.7.3以降) の標準モジュールに Memoize というのがある。何をするやつかというと、perldoc 曰く Make functions faster by trading space for time 「（計算）時間と（メモリ等の）領域とを取引して、関数を早くします」ということで、メモ化を行ってくれるモジュールです。 百聞は一見に如かず。というわけで、(Benchmark使うんでcodepadは自重 use strict; use Memoize; use Benchmark 'timethese'; sub collatz { my $n = shift; $n == 1 ? 0 : 1+collatz( $n%2 ? $n*3+1 : $n/2 ); } sub fibonacci { my $n = shift; $n <= 2 ? 1 : fibonacci(
perl - use strict; # and be happy : 404 Blog Not Found
2006年05月21日05:20 カテゴリLightweight Languages perl - use strict; # and be happy どうやら私の本では、啓蒙が全然足りなかったらしい。 Perl/CGI辞典 - 土井 毅さん 著 - にて use strict が推奨されていない件について - iandeth. p.104 strict プラグマは、Perlスクリプトでの記法を厳密にするためのプラグマです。 (中略) これにより、宣言の曖昧な変数への参照を発見できます。 [参考] strict プラグマは厳密すぎるため、通常のプログラミングではあまり使用しません。 ... orz この本が20世紀に出たというのであれば驚かないけど、今年に出たというのは、Perl5 Porterとしてもショックである。 しかし、確かにuse strict; # or dieという姿勢だけ
Wide character in print at ...
[Perl] Wide character in print atというエラーはUTF-8フラグが付いた文字列をprintしようとしているからである。なのでUTF-8フラグを取り外してからprintすればエラーがでなくなります。UTF-8フラグが付いているかどうかはutf8::is_utf8を使用すればよい。 #UTF8フラグが付いているかの確認 utf8::is_utf8では実際の文字列がUTF-8かどうかではなく、あくまでフラグがついているかどうかを確認します。そのため、UTF-8の文字列もフラグが付いていなければ上記の出力はno flagとなります。またutf8::is_utf8はuseしなくても使用できる。useすると全然違う意味あいになるので注意。 UTF-8フラグが付いていたら、encodeを使用してフラグをはずします。以下の例では$stringをutf-8に変換して出力します
にひりずむ::しんぷる - DBIC::InflateColumnでハマる
insertやupdate時に小文字にするComponentを書いてみる。 package DBIx::Class::LowerCaseColmuns; use strict; use warnings; use base qw/DBIx::Class/; our $VERSION = '0.01'; __PACKAGE__->mk_classdata( '_lower_case_columns' ); sub lower_case_colmuns { my $self = shift; if (@_) { map { $self->throw_exception("column $_ doesn't exist") unless $self->has_column($_) } @_; return $self->_lower_case_columns({ map { $_ => 1 }
Catalystでnamed_scope風実装 - Aerialarts
泣きながらPerl/Catalystを書いている今日この頃です。慣れない言語は辛い。 PerlのORマッパーであるDBIx::Classを使ってるんですが、とりあえずDBIx::Class beginnersを見ると、使い方の指針やFat Modelっぽい書き方が載っていて大変良いです。ActiveRecord大好きです。 で、CatalystにはRailsのnamed_scopeのような便利な記法は標準では提供されていません。多分。でもDBIx::Class::ResultSetのサブクラスを使うようにすれば、それっぽいことはできるようになります。 まず アプリ名をMyAppとします。 my $rs = $c->("DBIC::Foo")が返すのはDBIx::Class::ResultSetのインスタンスで、これはクエリを投げて返ってきた集合に対して処理をするために用います。 一方、例え
DateTime - モダンなPerl入門 - モダンなPerl入門
日付の取り扱い 何かと面倒な日付処理には DateTime.pmをつかいます。 生成 use strict; use warnings; use DateTime; #日付を指定して生成 $dt = DateTime->new( time_zone => 'Asia/Tokyo', year => 2008, month => 8, day => 4, hour => 15, minute => 0, second => 0 ); #epochから生成 $dt = DateTime->from_epoch( time_zone => 'Asia/Tokyo', epoch => 1217829600 ); #現在の日付(時間ふくむ) $dt = DateTime->now( time_zone => 'Asia/Tokyo' ); #現在の日付(時間含まない) $dt = DateTime
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
print "Happy 25th Birthday, Perl"; | TechCrunch
Devel::StackTrace
初めてのCatalyst入門（3） 処理の入り口はアクション
Perlゼミ(サンプルコードPerl入門)
はてなブログ | 無料ブログを作成しよう
