Programming Perl, Fourth Edition - O'Reilly Media
Read it now on the O’Reilly learning platform with a 10-day free trial. O’Reilly members get unlimited access to books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers. Book description Adopted as the undisputed Perl bible soon after the first edition appeared in 1991, Programming Perl is still the go-to guide for this highly practical language. In th
each()は遅い上に微妙な問題も起きやすい - Islands in the byte stream (legacy)
特別な条件がないかぎり、each()は使うべきではありません。代わりにkeys()/values()を使うべきです。その理由は2つあります。 each()は遅い each()でハッシュ全体をループするのは遅いです。これは、keys()/values()がその内部の値をそのまま参照する*1のに対し、each()は代入しないとその値を使えないからです。 ベンチマーク： #!perl use strict; use warnings; use Benchmark qw(cmpthese); my %hash = map { $_ => $_ } ( 1 .. 10000 ); cmpthese -1, { each_k => sub { while(my $key = each %hash) { } }, each_kv => sub { while(my($key, $value) = eac
Perl を crash させる方法 - モダンなPerl入門
Perl を Crash させたい。そんな欲求を抑えきれないあなたのために、いくつかの方法を教えよう。 いろいろな crash unpack で不正アクセス perl -e 'unpack "p",0xdeadbeef' pack において 'p' は A pointer to a null-terminated string. を意味する。不正なメモリ領域にアクセスすれば死ぬのはあたりまえである。 overload の中で再帰する perl -e 'use overload q{""}=>sub{"$_[0]"};$a=bless{},main;"$a"' overload の stringify させる部分などで無限ループにおちいると、segv する。 このバグは昔から知られており、ticket が切られているが、なおっていない。 @INC の中の coderef で再帰する perl
ExtractUniqueBlock - コンテンツ抽出（本文抽出） Perl モジュール
コンテンツ抽出（本文抽出） Perl モジュール ExtractUniqueBlock の配布ページです。追加した方がよい機能、修正した方がよい機能などがありましたら、お気軽にご連絡ください。最終的には CPAN での配布を予定しております。 ダウンロード 最新版（0.01） ExtractUniqueBlock_beta_0.01.zip ExtractUniqueBlock_beta_0.01.zip に含まれるファイルは以下の通りです。 ExtractUniqueBlock.pm コンテンツ抽出（本文抽出） Perl モジュール ExtractUniqueBlock 本体 asahi_rss.pl asahi.com の RSS を取得してコンテンツ抽出（本文抽出）を行うサンプル local_directory.pl ローカルの HTML 群からコンテンツ抽出（本文抽出）を行うサンプ
Access-Control-Allow-Origin を追加するmiddlewareを書いてた - punitan (a.k.a. punytan) のメモ
一ヶ月くらい前に GitHub - punytan/Plack-Middleware-AccessControlAllowOrigin: Add Access-Control-Allow-Origin header を書きました 使い方 至って簡単ですね。ただ、AccessControlAllowOriginって名前が長すぎる builder { enable 'Plack::Middleware::AccessControlAllowOrigin', origin => '*'; $app; }; 補足 類似モジュールに Plack::Middleware::CrossOrigin なんてのがあるんですがこれはやってることが多すぎる。 Access-Control-Allow-Origin 付けたい時にはこれで需要の99.9%はカバーできるんじゃないかと思うので、こんな物を作ってみた次第
Ubuntu 11.04 (Natty) で perl がインストール出来ない場合の理由と対策 - punitan (a.k.a. punytan) のメモ
追記 perlbrew 最新版では修正済みです。 patchperl にパッチ投げておきました。 perlbrewも最新のpatchperl を使うようになったので、失敗する場合はもう一度perlbrew の最新版を再インストールしてください（perlbrew のバージョン番号は変わってないので注意） 追記終わり http://d.hatena.ne.jp/Itisango/20110504/1304487042 の原因。 原因 - Ubuntu の math ライブラリ諸々がディレクトリごと移動した Configure はデフォルトで /usr/local/lib /lib /usr/lib /usr/lib64を読みに行くところ、Ubuntu Natty からは libm などのライブラリが /lib/i386-linux-gnu /usr/lib/i386-linux-gnuなどに移
ラリー・ウォール氏インタビュー＠LL Future（前編） - O'Reilly Japan Community Blog
お待たせしました。2008年8月30日に開催された「LL Future」の会場で、Perlの開発者であり『プログラミングPerl』の共著者でもあるラリー・ウォール氏にインタビューする機会を得ました。今回はその前半部をお送りします。 日本の聴衆の印象から、パネルディスカッションの内容、またラリーさんの言語設計という行為に対する考えなどが垣間見える内容です。 Q. LL Futureの印象、特に日本の聴衆にはどんな印象をもちましたか？ A. それを表現するのはとても難しいね。エキサイティングでした。 テクニカルな話をする時はいつでも、話の内容が理解できているのかどうか、聴衆のフィードバックがとても大切なんです。 あるコードを例として挙げていて、聴衆がそれを見ていたとしても、「実は理解できていないんじゃないか」、「どんな言語が好きなんだろう」と考えてしまうんだよ。 パネルディスカッションはとても
Tatsumaki + AnyEvent::Twitter::Stream を一枚のスクリプトで完結させる方法 - punitan (a.k.a. punytan) のメモ
これができると嬉しいこと サーバとクライアントがひとつのプロセスにまとまってクローラー的なプロセスが必要なくなり、監視せずに済むので地味に嬉しい 概要 言われてみれば何だ、という程度ではあるけれども、app.psgiで Twiggy::Server を使い、コネクションを AE::timer で監視し、AE::cv->recv; するという方法をつかえば Tatsumaki::MessageQueue も使えて万々歳。これがなかなか思いつかなかった… 思いつかなかった言い訳 Twitter の userstream は時々切れるので再接続の処理をする必要があった。今までずっとクローラーで while ループ回したりしてたけれども、 while を使って接続が切れるごとに ->recv してるとサーバと一緒に動かすことができなくて悶々とした日々を過ごすこと数ヶ月。 サーバでは builder
Mojolicious in the cloud: Hello DotCloud! - Sebastian Riedel about Perl and the Web
Today is a great day for Perl web development, with DotCloud finally adding Perl support we now have two cloud hosting providers to choose from. Even though Phenona started their beta about two weeks ago, it seems very limited and there is not much known about it yet, maybe i get to write about them next time. My first impressions of DotCloud have been quite pleasant so far, it basically allows yo
SIGNALを考慮してないTheSchwartz Job workerをなるべく安全に停止する - 酒日記 はてな支店
TheSchwartz の worker はシグナルに対してデフォルトでは何もしないので、再起動させようと SIGHUP を送信したりすると job 処理の途中で割り込まれて死ぬ可能性があります。 自前でトラップして安全に再起動する方法は過去に TheSchwartz の worker を安全に停止する で書きました。3年前の記事ですが。 今回は、シグナルへの対処がなされていない古いスクリプトを修正したものの、既に動いている worker を安全に止めないと入れ替えられないのでどうするか、というお話。 安全な停止法を twitter で緩募したところ、以下のようなアドバイスを頂きました。しかし別の queue DB 使うのは確実そうだけどちょっと面倒ですよね…… 緩募: signal trapしてないTheSchwartzのjob workerを安全に止める方法 2011-04-25 11
Perlの中をgdbで覗く | BLOG - DeNA Engineering
こんにちは。DeNAの樋口です。 Perlで書かれたアプリを動かしているときに、Perlのプロセスが今コードの何処を実行中なのか知りたいことがよくあります。そのような場合には、gdbで実行中のプロセスにアタッチし、Perlインタプリタインスタンスの内部を覗くことによって調べることができます。また同様の方法で、プロセスのコアダンプを取り、後でじっくりデバッガで調べることも可能です。 デバッグシンボル付きのPerlを用意する まず前提として、Perlの実行形式にデバッグシンボルが付いている必要があります。無い場合でも不可能ではありませんが、現実的には難しいでしょう。デバッグシンボル付きのPerlを用意する方法はOSによりますが、例えばrpmを使っているGNU/Linuxディストリビューションであればperl-debuginfoのように分離されたパッケージにデバッグシンボルが入っていることが多い
はてなブログ | 無料ブログを作成しよう
来年も作りたい！ふきのとう料理を満喫した 2024年春の記録 春は自炊が楽しい季節 1年の中で最も自炊が楽しい季節は春だと思う。スーパーの棚にやわらかな色合いの野菜が並ぶと自然とこころが弾む。 中でもときめくのは山菜だ。早いと2月下旬ごろから並び始めるそれは、タラの芽、ふきのとうと続き、桜の頃にはうるい、ウド、こ…
第6回 UNIXプログラミングの勘所（3） | gihyo.jp
ネットワークプログラムとSIGPIPE 「私の書いたサーバが突然死するんです。どうしてでしょうか」という質問を受けることがあります。これは多くの場合、SIGPIPEの処理を忘れていることが原因です。SIGPIPEとは、切断されたネットワークソケットなどにデータを書き込もうとした際に送出されるUNIXシグナルです。特に設定しない限り、プロセスはSIGPIPEを受け取ると強制終了されます。そのため、通信が突然切断される可能性のあるTCPサーバにおいては、SIGPIPEを無視するよう設定する必要があります。 # デフォルトの動作（SIGPIPEの場合はプロセスの終了）に設定 $SIG{PIPE} = 'DEFAULT'; # SIGPIPEを無視するよう設定 $SIG{PIPE} = 'IGNORE'; # SIGPIPEを受信した際に実行するサブルーチンリファレンスを # 設定 $SIG{PI
第6回 UNIXプログラミングの勘所（2） | gihyo.jp
forkとファイルハンドル UNIX系のOSでは、複数のプログラムが、それぞれプロセスという単位で動作しています。forkというシステムコール[1]が呼び出されると呼び出したプロセスの複製がOSによって作成され、複製されたプロセス（子プロセス）がexecveというシステムコールを使って別のプログラムにすり替わる、というしくみでさまざまな処理を実行するようになっています。 「複製」と言っても、全部の情報が複製されるわけではありません。プロセスのメモリイメージが複製される[2]一方で、プロセスが開いている「オープンファイル記述」（open file description）（注3）は複製されません。forkのあとは、親プロセスと子プロセスの両者が、単一のオープンファイル記述を指す「ファイル記述子」（file descriptor）（注4）を持つことになります（図2）。 図2 for
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl 5.14
はてなブログ | 無料ブログを作成しよう
ラリー・ウォール氏インタビュー＠LL Future（後編） - O'Reilly Japan Community Blog
Docker
http://blog.dotcloud.com/dotcloud-introduces-camel-as-a-service-with-i
Perl 5.14.0 Release Candidate 1 now available for testing » Perl News