おさかなラボ - Coroの並列をあっさり理解するための3つのサンプルスクリプト
Coroが非同期にルーチンを扱う（コルーチンを扱う）モジュールだということはご存知だと思うが、いまいちピンと来ていない人も多いのではないだろうか。これは、１つにCoroやCoro::Introの例題が悪すぎると思う。例えば、Coro::Introのサンプルスクリプトはこうだ。 use Coro; async { print "async 1\n"; cede; print "async 2\n"; }; print "main 1\n"; cede; print "main 2\n"; cede; このスクリプトは確かに面白い挙動をするが、スレッドを実現してるんだよと言われるとちょっと「？」である。こんなのgoto文でできるじゃんみたいな。そしていきなりセマフォやチャネルの話に飛んでしまい、肝心の「Coroはスレッドが実現できるんだよ」というところが分かりにくい。そこ
livedoor Techブログ : 変な CAPTCHA だっていいじゃないか にほんじんだもの
こんにちは。開発のシニアスペシャリストをやっております、通称「にぽたん」こと谷口公一です。 私たちが日頃使っているネット上のサービスで、web 上のフォームの最後等に「ここに書かれている文字を入力してください」のように、絵に描かれた文字を目で読み取って入力するよう求められる場合があります。 言うまでもありませんが、これは通称「キャプチャ (CAPTCHA)」と呼ばれているもので、画像データは、人間ならそれを肉眼で認識して入力が行なえますが、機械には少し難しくなるため、フォームに文字を入力しているのが、機械ではないことを判定するためにこういう仕組みが存在します。 世の中にある CAPTCHA は、やたらと字がグチャグチャで読み取るのが非常に困難なケースもあります。 これは当然、安易に、白地に黒い文字を書いたような単純な画像を CAPTCHA に用いれば、それを解読するシステムは簡単に開発出来
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
ウェブリブログ：サービスは終了しました。
「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧
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
今年の祝日を表示するワンライナー - inamode13
今年の祝日を表示するワンライナー perl -MCalendar::Japanese::Holiday=getHolidays -E 'binmode STDOUT, ":utf8"; $y = shift or die; for $m (1..12) { $r = getHolidays($y, $m); for $d (sort keys %$r) { printf "%d-%02d-%02d - %s\n", $y, $m, $d, $r->{$d} }}' 2010 Result. 2010-01-01 - 元日 2010-01-11 - 成人の日 2010-02-11 - 建国記念の日 2010-03-21 - 春分の日 2010-04-29 - 昭和の日 2010-05-03 - 憲法記念日 2010-05-04 - みどりの日 2010-05-05 - こどもの日 201
2010年のArk | gihyo.jp
あけましておめでとうございます。面白法人カヤックの村瀬です。 はやいもので、Arkの開発をはじめてもうすぐ1年になります。2年目の今年はよりいっそう使いやすいフレームワークにしていきたいと考えています。 ●Arkとはカヤックが開発しているPerlによるWebアプリケーションフレームワーク。Catalystライクなディスパッチャー、軽快な動作、HTTP::Engine対応という特徴を持つ。主に社内用フレームワークとして開発していたものだが、最近では、Ark Jobeetチュートリアルなど、対外的なドキュメントにも力を入れはじめている。 リリース年であった2009年は基本的な機能を提供してきました。2010年前半は、今後のWebアプリケーションに必要とされるであろう機能を追加し、より汎用的なアプリケーションを目指す予定です。 モバイル対応 社内ではArkを使って位置情報を使ったモバイルサービス
国民の祝日の名称を取得するモジュール - Unknown::Programming
昨日の続き。 Calendar::Japanese::Holidayなるものを触ってみた - Unknown::Programming いや、続きというか昨日も言ったように僕も前に作ったやつがあるので折角だし公開しよーかなと。 DateTime::Holiday::Japaneseという名前で作ってあるんだけど、名前空間的にDateTime使ってるということもありその辺良くわかんないので、CPANにはあげてません。 →DateTime-Holiday-Japanese-0.01.tar.gz ソースは以下 package DateTime::Holiday::Japanese; use strict; use warnings; use DateTime; use UNIVERSAL::require; use Class::Inspector; use utf8; use base qw
Calendar::Japanese::Holidayなるものを触ってみた - Unknown::Programming
日本の祝日の名前を取得するモジュールのようです。 僕も前に自分用に同じようなヤツを作りました。 でCalendar::Japanese::Holidayなんですが、実装はさておき、実行結果に少し不満が。 というのも昔の休日が軒並みコケる。 まぁどこまで対応するかは用途によって変わるとは思うけど少なくとも、昭和23年(1948年)7月に制定された「国民の祝日に関する法律」を一番古いケースとして対応したほうがいいかと。 まずそれによると元旦は1949年〜現在の1月1日。 成人の日は1949年〜1999年の1月15日。2000年以降は1月の第二月曜日(ハッピーマンデー) 建国記念の日は1967年〜現在の2月11日。 天皇誕生日、というか4月29日の扱いが少しややこしい。 4月29日は1949年〜1988年の間が天皇誕生日、1989年〜2006年の間がみどりの日、2007年〜現在が昭和の日となる。
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
最後の日は最後の一桁を埋めるAlgorithm::CheckDigits - JPerl Advent Calendar 2009
最後の日は最後の一桁を埋めるAlgorithm::CheckDigits - JPerl Advent Calendar 2009 Perl に関するちょっとした Tips をのっけてみるよ。ちゃんと続くかな？ メリクリ！メリクリ！piarraです。 Advent Calendar最後の日は、最後の一桁を埋めるCPANモジュール「Algorithm::CheckDigits」をご紹介します。 このモジュールについて、日本語で紹介されているブログ等を見つけられなかったので、敢えて選んでみました。 こんな経験はありませんか？ 7桁しかないidを8桁にしたいのだけれど、8桁目を0やランダム値にするのはどうよと思ったとき なんらかの理由で連番ではないidの生成をしたいとき JANコードを発行したいのに、何故か12桁しか作れなくって、最後の一桁は自分で作れっていわれても…？なとき クレジットカードの
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
正規表現愛
弊社には、アンチ正規表現の人がいますが、私は熱烈な正規表現 Lover である。 大崎氏の「Perl 正規表現雑技」とかは、正規表現 Lover 垂涎のコンテンツとして、ブラウザのリンクバーに入れている程である (嘘)。 正規表現は覚えてモノにすれば、シアワセになれる素晴らしい仕組みなのです。 昨日、Shibuya.pm のテクニカルトークに行った際「はてなでは XML 系の CPAN モジュールはあまり使っておらず、XML の parse には殆んど正規表現を使用している」という話が出てきて、嬉しさのあまり身震いした。 parser を書くのが面倒臭くて「XML::Simple 最強」とかホザいた自分に対しての自戒と、弊社の Chief Regular Expressioner という肩書を持つ (自称) 立場の人間として、たまには、正規表現ゴリゴリなネタでも書いてみようかなと思いますた
perl - When \p{} gets evaluated : 404 Blog Not Found
2006年03月07日02:15 カテゴリ perl - When \p{} gets evaluated 理由が判明したのでentry。追記にしようと思いましたが注意喚起のため。 404 Blog Not Found:perl - how 2 cope w/ \p{IsBogus} これに関してはちょっとバグっぽげなのですがその理由とは、「\p{}は本当に利用されるまで評価されない」というものです。 わかりやすくするために、以下に例を示します。 'ok' =~ /no\p{IsBogus}/; # すでに's'でmatchが失敗するので no error 'nok' =~ /no\p{IsBogus}/; # noまではmatchに成功。\p{}でexception その\p{}を展開しているのが、lib/utf8_heavy.plなのですが、 Heavyというだけあって結構大きなscr
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
初めてのCatalyst入門（6） Perlのオブジェクト指向とモデル
JSTAPd-0.03 - testing framework to test Ajax/Javascript libraries - metacpan.org
JPerl Advent Calendar 2009
CodeRepos::Share – Trac
perlunicode - PerlにおけるUnicodeサポート
Separate Model from Catalyst
