タグ

perlに関するogawastのブックマーク (18)

  • Higher-Order Perl

    by Mark Jason Dominus Order Higher-Order Perl online from Powell's Books Download full text here There are three versions available. You have your choice of structure or presentation, but not both. License reminder Higher-Order Perl is copyright ©2005 by Elsevier Inc. Unauthorized reproduction or distribution is absolutely forbidden. You may download the book for your personal use, but you may not

    ogawast
    ogawast 2008/12/11
    これは読みたい
  • 第1回 Perlにおけるテストの概要/TAPとは? | gihyo.jp

    モバイルファクトリーの松野です。 今回から数回にわたって、Perl におけるテスト手法についてリレー形式で詳細に解説していきたいとおもいます。 今回は初回ですので、ざっくりと概論になります。 Perlの世界におけるテストの重要性 Perlの世界においてはテスト(test)は大変重要視されています。 その特徴がよく表れているのがCPAN Testersではないでしょうか。 CPAN Testers Perlといえば何はなくともCPANなわけですが、CPANでモジュールを探していると、図1のように、「⁠CPAN Testers」という項目があることに気付きます。 図1 CPAN Testers 世界中のPerl Mongersが、自分のマシンでテストを動かして、その結果をCPANに送っているのです。これにより、様々なOS/CPU/versionのPerlでテストがされています。貴方も気軽にCP

    第1回 Perlにおけるテストの概要/TAPとは? | gihyo.jp
  • スタンドアロンWebサーバ書くのにPOEはいいかも - はこべにっき ♨

    スタンドアロンWebサーバ書くのにPOE::Component::Server::HTTPはかなりお手軽ですね。エラー処理とかいろいろはしょると以下のコードで、Webサーバが走ります。 use strict; use warnings; use POE qw( Component::Server::HTTP Sugar::Args ); my $httpd_aliases = POE::Component::Server::HTTP->new( Port => 8080, ContentHandler => { '/' => \&httpd_index, } ); sub httpd_index { my ($request, $response) = @_; $response->code(RC_OK); $response->content('Hello, POE!'); return

    スタンドアロンWebサーバ書くのにPOEはいいかも - はこべにっき ♨
    ogawast
    ogawast 2007/04/23
  • 勝手に添削 - 日経ソフトウェア2007.03 : 404 Blog Not Found

    2007年01月27日16:30 カテゴリLightweight Languages書評/画評/品評 勝手に添削 - 日経ソフトウェア2007.03 以下につられて買ってみた。 日経ソフトウエア 2007年 03月号 TAKESAKO @ Yet another Cybozu Labs: KENTさんとの対談写真が見れるのは日経ソフトウエアだけそして、去年の11月に:: KENT WEB - CGIスクリプト :: で有名な KENT さんと対談させていただいたときの記事が写真つきで載っています。 KENTさんの写真が見れるのは日経ソフトウエア2007.03(1月24日発売)だけです。 404 Blog Not Found:日経ソフトウェア2007年1月号 - perlはどこだ!? - おおもりさんのコメント申し訳ないです。とりあえず3月号をお楽しみに、という感じです。詳しくは竹迫さんに聞

    勝手に添削 - 日経ソフトウェア2007.03 : 404 Blog Not Found
    ogawast
    ogawast 2007/01/27
  • [を] Dynamic Programming による類似文字列マッチの実装例

    Dynamic Programming による類似文字列マッチの実装例 2007-01-22-4 [Programming][Algorithm] 「Modern Information Retrieval」(8.6.1 p.216) での Dynamic Programming (DP) の解説のところのアルゴリズムを 素直に Perl で実装したみた。 さらにマッチ箇所取り出しロジックも実装してみた。 DP はいわゆる「類似文字列検索(あいまい検索)」に使うと 便利なアルゴリズム。 実は、大学院でも前の会社でも、PerlやらC++やらで実装して使ってた。 単純ながら使い勝手もよく、まさに現場向きかと。 grep 式に頭から見ていくので計算量的にはイマイチなのだが、 転置インデックス検索などで範囲を絞ってから適用すれば実用上問題ない。 ■定義みたいなの Q1. 二

  • perl - comm(1)またはuniq -(d|u) : 404 Blog Not Found

    2007年01月24日17:00 カテゴリ一日一行野郎Lightweight Languages perl - comm(1)またはuniq -(d|u) それってPerlの一行野郎で -- それP1(ry メモ帳 - uniq の -d と -u 存在意義がわからなかったオプションの使い道を見つけたときは妙に感動する。a, b に共通な行を抜き出す perl -nle '$l{$_}++;END{$l{$_}>1 and print for keys %l}' a b ENDブロックはこう使うという例にもなっています。 a にだけ含まれる行を抜き出す -- 引数の順序に注意 perl -nle 'if(@ARGV){$l{$_}++}else{print unless $l{$_}}' b a Perlで<>を使うときには、まだ読まれていないファイル名が@ARGVに入っています。これが空

    perl - comm(1)またはuniq -(d|u) : 404 Blog Not Found
  • perl - 勝手に添削 - isbn2asin : 404 Blog Not Found

    2007年01月24日12:30 カテゴリLightweight Languages perl - 勝手に添削 - isbn2asin 久々の勝手に添削コーナ。今回は、hyukiさんのこちら。 結城浩のはてな日記 Amazon Web Servicesを使って、ISBN-13からASINを取得するPerlプログラムを作ってみました。まずは添削結果。 #!/usr/local/bin/perl use strict; use warnings; use CGI; use LWP::Simple; use XML::Simple; use URI; my $aws_access_key_id = 'YOUR AWS ACCESS KEY'; # For debug. my $OUTPUT_ENCODING = 'UTF8'; # Set up ISBN. my $isbn = shift or

    perl - 勝手に添削 - isbn2asin : 404 Blog Not Found
  • 仙石浩明の日記: Perl の非同期I/Oモジュール POE を使って VPN-Warp relayagent を書いてみました

    多数の TCP/IP セッションを同時に維持する必要性などから、 非同期I/O が最近流行りのようです。 何をいまさら、という気もするのですが、 いわゆる「最新技術」の多くが 30年前の技術の焼き直しに過ぎない今日このごろなので、 非同期I/O 技術が「再発見」されるのも、 「歴史は繰り返す」の一環なのでしょう。 スレッドが当たり前の時代になってからコンピュータ技術を学んだ人にとっては、 (古めかしい) 非同期I/O が新鮮に映るのかも知れず、 なんだか「ファッションのリバイバル」に似ていますね。 Perl で非同期I/O 処理を手軽に行なうための枠組みとして、 POE: Perl Object Environment というものが あるようです。 POE を使うと、 あたかもスレッドを使っているような手軽さでプログラミングできます。 試しに VPN-Warp の relayagent を

    ogawast
    ogawast 2007/01/22
  • perl - Yet Another 10のUNIX小技 : 404 Blog Not Found

    2007年01月14日05:30 カテゴリLightweight Languages一日一行野郎 perl - Yet Another 10のUNIX小技 Geekなぺーじ:10のUNIX小技にperlを加えるとさらに幸せになれるというお話。 1.ディレクトリの作成 今時-pをサポートしていないmkdir(1)はないと思いますが、ない場合は perl -MFile::Path -e 'mkpath $_ for @ARGV' path/to/dir more/path/to/dir ... で代用が出来ます。 alias mkpath perl -MFile::Path -e \'mkpath \$_ for @ARGV\' と.bashrcや.cshrcとしておけば、 mkpath path/to/dir more/path/to/dir ... と出来ます。 2. tarの解凍先を指定

    perl - Yet Another 10のUNIX小技 : 404 Blog Not Found
  • perl - HTTP::Daemonできみにも書けるWebサーバ : 404 Blog Not Found

    2006年11月13日17:45 カテゴリLightweight Languages perl - HTTP::Daemonできみにも書けるWebサーバ これにインスパイヤされて。 PythonTwisted できみにも書ける Web サーバ 誰でも比較的簡単に Web サーバを書くことを可能にするのが PythonTwisted というフレームワークの組合せです。Pure Perlで書かれたWeb Serverはそれこそ山ほどあるのですが、実はLWPにもサーバーを簡単に実装するModuleが用意されていて、それがHTTP::Daemonです。 例えば、ブラウザのリクエストをおうむ返しにするサーバーは、以下のとおりとなります。 #!/usr/local/bin/perl -T use strict; use warnings; use HTTP::Daemon; use HTT

    perl - HTTP::Daemonできみにも書けるWebサーバ : 404 Blog Not Found
    ogawast
    ogawast 2006/11/13
  • Perlメモ-モジュールのインストール(CPAN) - Walrus, Digit.

    いくつか、分かっていることとわかっていないことがあります。 以下に分かっている範囲でのポイントを挙げます。 Timeout for inactivity during Makefile.PL? [0]では0(デフォルト)にする ここでTimeoutを指定してしまうと、完了またはタイムアウトの通知にalarm関数を使います。 alarm関数はActivePerlでは実装されていないため、エラーになります。 makeは、perl -V:makeが返すものを使う makefile.plはperl -V:makeが返すmakeプログラムにあったmakefileを作るようです。 perl -V:makeがnmakeを返す場合、dmakeを使うとエラーが発生します。 これ以外の設定は、実施者の任意で構いません。 私が意識して行った設定は以下のものです。 Select as many URLs as y

    ogawast
    ogawast 2006/10/27
  • Shibuya Perl Mongers : Shibuya Perl Mongers テクニカルトーク #7

    We are a group of people dedicated to the encouragement of all things Perl-like in Shibuya. Shibuya Perl Mongers テクニカルトーク #7 Shibuya Perl Mongersテクニカルトーク#7 を2006年10月20日に開催します。 日時 - 2006年10月20日 (金) 18:30-21:00 (18:00 開場) 会場 - 神保町三井ビル 17F 株式会社インターネットイニシアティブ (IIJ) 大会議室 料金 - 無料 事前登録 - 定員に達したので締め切りました。 ストリーミング プログラム 内容・順番・時間などは予告なく変更する場合があります。 Amazon Web Services, S3 and EC2 (Emerson Mills) PMConnect:

    ogawast
    ogawast 2006/10/24
  • メモリー効率は所詮実装次第 : 404 Blog Not Found

    2006年10月20日10:55 カテゴリLightweight Languages メモリー効率は所詮実装次第 そう。まさにこれを言いたかった訳です。 Kazuho@Cybozu Labs: re: javascript vs perl - オブジェクトのメモリー効率 言語仕様のメモリ効率性を考えるのにあたって、(メモリの潤沢な環境向けの) 特定の実装間の比較をしても意味がないと思います。実はこの場合でも(2)だけではなく(2)-(1)の結果を見ると、私の手元では defval js 3348 pl 2680 [FreeBSD] とperlの方がよいという結果が出ちゃいましたが、それはさておき、この場合でもPerlは以下の工夫を施すことによりさらにメモリー効率を上げることができます。 defval.pl2 #! /usr/bin/perl use strict; use warnings

    メモリー効率は所詮実装次第 : 404 Blog Not Found
  • Perlモジュール/WWW::Mixi - Walrus, Digit.

    Mixiに簡単にアクセスするためのLWP::UserAgentライクなモジュール。 更新情報、不具合情報などはmixiのWWW::Mixiコミュニティにも挙げていきます。 WWW::Mixiコミュニティ WWW::MixiモジュールはCPANにも登録済みです。 Mixiに特化したLWP::RobotUAモジュールのサブクラスです。 WWW::MixiはふつうのLWP::UserAgentのように使うことができます。 例えば、次のような手順でCookieを有効にし、ログインし、トップページ(home.pl)を取得することができます。 この書き方であれば、use WWW::Mixiの代わりにuse LWP::UserAgentとかuse LWP::RobotUAとして、WWW::Mixi->newの行を適当に書き換えてやると、それでもトップページの取得ができます。 use WWW::Mixi;

  • 404 Blog Not Found:javascript perl - yubin2jsonp

    2006年09月24日16:00 カテゴリLightweight Languages javascript + perl - yubin2jsonp どうせなら、JSONPを使ってどこにでも設置できたらいいじゃんと思ったのでこんなのこさえました。 [Ajax] CGI不要の郵便番号→住所変換フォーム  Kawa.net Blog /ウェブリブログ JavaScript のみで稼動するため、サーバサイドで稼動するCGIプログラムは不要です。こんな感じです。 〒(7けた) 都道府県 市区町村 町域以降 HTMLまで含めたsourceはこんな感じです。 <script> function Yubin2JSONP(root){ this.root = root; this.parse = function(yubin){ if (! yubin.match(/[0-9]{7}/) ) return

    404 Blog Not Found:javascript perl - yubin2jsonp
  • [を] Software Design 2006年10月号のPlagger特集のメモ

    Software Design 2006年10月号のPlagger特集のメモ 2006-09-24-1 [] Software Design (ソフトウエア デザイン) 2006年 10月号 [雑誌] posted with Yasazon (2006.09) 定価 : ¥ 970発売日 : 2006/09/16出版社/メーカー : 技術評論社 Plagger 特集より、インストールコマンドメモ (pp.78-81): wget http://www.perl.com/CPAN/src/perl-5.8.8.tar.bz2 bzip2 -dc perl-5.8.8.tar.bz2|tar xvf - cd perl-5.8.8 sh Configure -des -Dprefix=$HOME/perl make make install export PATH=$HOME/perl/

    ogawast
    ogawast 2006/09/24
  • Perlクックブックソースコードリンク集

    Perlクックブックソースコードリンク集 このページは「Perlクックブック―Perlの鉄人が贈るレシピ集(第1版)」に記述されているソースコードを簡単に参照できるようにするために作成したリンク集です。ネットワーク上に存在するPerl Cookbook(英語)のリソースに対してリンクを設定しています。 Perlクックブックの解説やソースコードの引用は私のウェブページ上には用意していません。必要であればPerlクックブックを購入するか、あるいはリンク先の英文の解説を読んでください。 1章 文字列 1.0 概要 レシピ1.1 部分文字列を取り出す レシピ1.2 デフォルト値を設定する レシピ1.3 一時変数を使わずに値を交換する レシピ1.4 ASCII文字をコード値に(コード値をASCII文字に)変換する レシピ1.5 文字列を1文字ずつ処理する レシピ1.6 文字列を単語または文字単位で逆

    ogawast
    ogawast 2006/09/04
  • コメント!=ドキュメント : 404 Blog Not Found

    2006年09月04日15:15 カテゴリLightweight Languages書評/画評/品評 コメント!=ドキュメント なぜコメントの付け方の昔と今が違うかと言えば、原因は二つある。 Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] 小野和俊のブログ:ソースコードのコメント率は20%を切ることが望ましい 昔はソースコードのコメント率が50%を切るものはドキュメント不足で品質が低いものとされた、という内容のものがあった。 [中略] 今、改めて考えて、どのような言語であってもどのようなコーディング規約であっても、私はソースコードのコメント率は原則20%を切ることが望ましいと思う。 まずは言語仕様そのもの。昔は変数名の長さに限りが合ったり、loop controlにifとgotoしか使えなかったりで、「プログラムそのものに語らせる」

    コメント!=ドキュメント : 404 Blog Not Found
    ogawast
    ogawast 2006/09/04
  • 1