perl - JPEG判定をPure Perlで : 404 Blog Not Found
2009年08月18日13:45 カテゴリLightweight Languages perl - JPEG判定をPure Perlで やってみてもいいと思ったので。 JPEG かどうかを判断する C のコード - TokuLog 改めB日記 こんな感じで。 #!/usr/bin/perl use strict; use warnings; use LWP::Simple; my $url = 'http://ec2.images-amazon.com/images/P/4757215339.01.MZZZZZZZ.jpg'; my $content = get($url) or die "Couldn't get $url"; print "$url : ", isjpeg(\$content); if (0){ # test my $fn = shift; my $content; p
第13回 AnyEvent：イベント駆動モジュールの方言を吸収する | gihyo.jp
イベントループを持つモジュールが抱える問題点 イベントループを持つモジュールの一例として、前回はPOEを取り上げましたが、もちろん同じようなループを持つモジュールはほかにもあります。 たとえば1995年に故ニック・イング・シモンズ（Nick Ing-Simmons）氏が始めたPerl/Tkや、POE誕生前夜の1997年から開発が行われているGtk（のちのGtk-Perl）、その後継にあたるGtk2/GlibのPerlバインディング（2003年）など、GUIアプリケーション関連のツールがそうですし、IO::Poll（1997年）やIO::Async（2007年）のようなモジュールにもイベントを監視するためのループが使われています。また、Event（1997年）やlibeventのラッパであるEvent::Lib（2004年）、EV（2007年）のように、イベントループそのものを実装す
[を] 転置インデックスによる検索システムを作ってみよう！
転置インデックスによる検索システムを作ってみよう！ 2007-11-26-5 [Algorithm][Programming] 転置インデックス[2007-06-17-6]による検索システムの実装は パフォーマンスを無視すれば意外と簡単です。 それを示すために Perl で簡単な検索システムを作ってみました。 検索方式は転置インデックス(Inverted Index)、 ランキングには TF-IDF[2005-10-12-1] を用いました。 検索対象ファイルは一行一記事で以下のフォーマットとします。 [記事ID][SPC][記事内容]\n 記事IDは数字、記事内容は UTF-8 の文字で構成されるものとします。 以下のようなサンプル test.txt を用意しました。 1 これはペンです 2 最近はどうですか？ 3 ペンギン大好き 4 こんにちは。いかがおすごしですか？ 5 ここ最近疲れ
![[を] 転置インデックスによる検索システムを作ってみよう！](https://cdn-ak-scissors.b.st-hatena.com/image/square/af37977ee866988286b95e74fff98500a190545c/height=288;version=1;width=512/https%3A%2F%2Fchalow.net%2Fimages%2Ftcl-logo-25.png){kind=logo}
第12回 POE：「Perl萌え～」の略ではなく | gihyo.jp
あだ名の多さは人気の証明？ POEという名前にはあきれるほど多くの寓意がこじつけられています。もともとはPerl Object Environment「Perlのオブジェクト環境」の頭文字を並べたものですが、POEの公式サイトを見てみると、Edgar Allan POE「エドガー・アラン・ポー」に始まり（そう、POEは「ポエ」ではなく「ポー」（ないし「ポゥ」）と読みます）、Parallel Object Executor「オブジェクトの並列処理機」、Pathetically Over-Engineered「涙がちょちょ切れるほど作り込みすぎた」、Perl Obfuscation Engine「Perl難読化エンジン」、Perl Objects for Events「イベント用Perlオブジェクト」、Persistent Object Environment「永続オ
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
「○x言語はもう終わり」というプログラマは終わり : 404 Blog Not Found
2009年02月19日22:30 カテゴリLightweight Languages 「○x言語はもう終わり」というプログラマは終わり これ、 Perlはもう終り？ | | プログラマ2.0日報 | あすなろBLOG すでにJPAの中の人が完璧に論破しちゃっている FUDを広げるのは誰の得にもならないと思うんだ。 - D-6 [相変わらず根無し] のだけど、お呼びがかかったので蛇足しておくことにする。 まずは各論から。 Perlはもう終り？ | | プログラマ2.0日報 | あすなろBLOG 言語仕様が汚い。厳格にはサブルーチンの「引数」という概念がないし、変数はすべてグローバルで特に宣言した場合だけローカルになる...というあたりの仕様は、そりゃインタプリタの実装は楽チンだろうけども、美意識（とミスしにくさ）には欠けるよね。 汚いったって英語や日本語ほどじゃない。そして英語や日本語が汚い
$job->done('well'); # 書評 - モダンPerl入門 : 404 Blog Not Found
2009年02月09日00:00 カテゴリ書評/画評/品評Lightweight Languages $job->done('well'); # 書評 - モダンPerl入門 翔泳社再帰、じゃなかった斎木様より献本御礼。 モダンPerl入門 牧大輔 初出2009.02.03; 発売開始まで更新 モダンPerl入門とどいた - D-6 [相変わらず根無し]「モダンPerl入門」が届きました。翔泳社様、ありがとうございます＞＜ うちにも届いたので早速拝見。 これほどの出来だとは! DMAKI++ あ…ありのまま 今 読んだ事を話すぜ！ 本書「モダンPerl入門」を一言で言うと、「Perl Cookbook」と「Perl Best Practice」と「Advanced Perl Programming」と「ミニマルPerl」のエッセンスを取り出し、そしてそれを最新の「モード」へと昇華した一冊。
『モダンPerl入門』感想 - Kentaro Kuribayashi's blog
id:lestrratさん期待の新刊『モダンPerl入門』をさっそく読みました。結論からいうととてもいい本で、他の言語はよく知っててイケてるコード書きまくりだけどPerlはよくわからないというひと、もっとPerlのことを知りたいひと、昔やったけど最近の事情はどうも知らないというひと、様々な方にとってマストバイな一品に仕上がっていると思いました。もちろん、僕自身にとってもいろいろ知ることが多くて、とてもためになりました。 以下、自分が実践できてるかどうかをまったく度外視して、あれこれと書いてみました(たまには書評の真似事をしてみたいブーム)。 モダンPerl入門 (CodeZine BOOKS) 作者: 牧大輔出版社/メーカー: 翔泳社発売日: 2009/02/10メディア: 大型本購入: 25人 クリック: 506回この商品を含むブログ (113件) を見る よいコードとは よいコードとひ
Programming note
言うほど、テキトーでは、ありませんが、そう大した物ではありません。 自分の知識の確認用メモを、少々体裁を整えたものくらいにお考え下さい。 突っ込み歓迎。 なお、コードの再利用、転載は、ご自由に。 --- 更新履歴 --- 2004/11/07 弾さんの指摘を受け、Perl5.8.x Unicode関連に手を入れました。 2004/01/27 Perl5.8.x Unicode関連をだいぶ前に書いたけど、リンク追加。 2003/05/24 Perl Tipsのコード修正。ご指摘に感謝。 2003/02/04 Perl-oo のコード修正。ご指摘に感謝。本に追加。 2002/11/04 翻訳削除。perldoc.jpにあるので。 2002/08/04 Perl Tipsのcallerに、追加。 --- メモ --- Perl Variable ... 変数について。 Perl Tips ...
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
サンプルコードによるPerl入門
文字列 数値をASCII(アスキー)コードに対応する文字に変換するには、chr関数を使用します。 #!/usr/bin/perl use strict; use warnings; # ASCII文字コードでは65,66,67はそれぞれ 'A','B','C'に対応する。 my $a_num = 65; my $b_num = 66; my $c_num = 67; print chr( $a_num ), "\n"; print chr( $b_num ), "\n"; print chr( $c_num ), "\n"; __END__ 続きを読む
Perl のリスト操作を Ruby 風に - naoyaのはてなダイアリー
Perl の言語組み込みのリスト操作は関数形式で、push(@array, 1, 2) のような記述になります。一つのリストに対して複数の操作をしたい場合などは、関数呼び出しを複数行にわたって書いていくことになり、少々面倒です。しかし Perl は、Perl のリスト実装である配列のリファレンスに bless してメソッドを定義したクラスを作ることができます。この独自に定義したクラスにプリミティブな操作を加えていって、Ruby のように連続したメソッドの呼び出しによるリスト操作を実現することが可能です。 ここでは List::RubyLike という配列クラスを作成します。まずは手始めに配列に bless して、size() メソッドが呼び出せるようにします。以下のようになります。 package List::RubyLike; use strict; use warnings; sub
Perlの小技
Perlでは世界中の達人が開発したモジュールによってさまざまな機能が簡単に使うことができます。 OracleやAccessから情報を集計した結果をLHA形式で圧縮してメールに添付して送ったり、メールを受信してその内容をデータベースに登録するなんてなことまで簡単に（？）できます。最近話題のXMLまで扱えます。 ただドキュメントが英語なんですよね（まぁ当たり前）。そこで私がつたない英語能力を使ってなんとかかんとか、日本語にしてみたシリーズが「日本語チョウ訳」なのです。原著者の方々にはメールで了解をいただいております。みなさん快く応じてくれました。（本当にありがとうございます） あいにくと何かを保証するということもないのですが、モジュールの作者の方々のためにも、わかりやすく正確な内容にしたいと思っています。 間違っている点やご意見などありましたらメールをください。m(__)m また小技ではAct
Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
Perl で 8ビット CPU を作る - naoyaのはてなダイアリー
CPU を作る、と言ってもハードではなくソフト、仮想機械です。 2001 年から UNIX USER で連載されていた西田亙さんの「gccプログラミング工房」。いまさらながら、バックナンバーを取り寄せて初回から順番に読んでいます。とてもためになる連載です。 この連載中で第10回から数回に分けて開発されていた octopus という 8 ビット CPU の仮想機械があります。オリジナルは C 言語で書かれていたのですが、その設計を見て、これは他の言語でも作れるのではないか、と思い Perl に移植してみたところなんとか動作させることができました。以下の URL にコードを公開します。(西田さんに確認を取ったところ、オリジナルのソースは Public Domain とのことでした。オリジナルは http://www.skyfree.org/jpn/unixuser/ からダウンロード可能です。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
木本 裕紀 ～ Official ～ Webサービス、Perlモジュールなどを公開しています。
Amazon.co.jp: マスタリングPerl: brian d foy (著), 菅野良二 (翻訳): 本
モダンPerl入門 (CodeZine BOOKS) | 牧 大輔 |本 | 通販 | Amazon
http://labs.cybozu.co.jp/blog/kazuho/archives/2008/06/friends_timeline.php
移転しました