perl - LWP::UserAgentで進捗表示しつつダウンロード : 404 Blog Not Found
2008年11月21日00:15 カテゴリLightweight Languages perl - LWP::UserAgentで進捗表示しつつダウンロード 食後のデザートとして手頃なサイズの問題だったので。 Ruby Net::HTTP で進捗表示しつつダウンロードのメモ - 冬通りに消え行く制服ガールは、夢物語にリアルを求めない。 - subtech #!/usr/local/bin/perl # # $Id: lwp-callback-example.pl,v 0.1 2008/11/20 15:16:48 dankogai Exp dankogai $ # use strict; use warnings; use LWP::UserAgent; use File::Basename; my $uri = shift || die "$0 http://example.com/bi
Mojolicious 入門 - モダンなPerl入門
LL温泉2008用の資料です。 最近でたばかりのフレームワークである Mojolicious をつかってみましょう。 インストール すごいかんたんです。 # Mojo をダウンロード % wget http://mojolicious.org/Mojo-latest.tar.gz # 解凍 % tar xzvf Mojo-latest.tar.gz % cd Mojo # Makefile 生成 % perl Makefile.PL # make する % make # テストスィーツをうごかしてみる % make test # インストール % sudo make install # うまくいったか確認 % mojolicious daemon Server available at http://127.0.0.1:3000. アクセスしたら、こんな画面がでます http://gyaz
YAML - YAML Ain't Markup Language (tm) - perldoc.jp
名前¶ YAML - YAML Ain't Markup Language (tm) 概要¶ use YAML; # Load a YAML stream of 3 YAML documents into Perl data structures. my ($hashref, $arrayref, $string) = Load(<<'...'); --- name: ingy age: old weight: heavy # I should comment that I also like pink, but don't tell anybody. favorite colors: - red - white - blue --- - Clark Evans - Oren Ben-Kiki - Brian Ingerson --- > You probably think YAML s
研究に使うプログラムを Perl で書こう
プログラミング言語 Perl の基礎の解説ページです． 科学の研究を進めるなかで，自分でプログラムが書けると便利なことはたくさんあります． （＞参考： 自分の研究に使うプログラムを自分で書こう ）． でも，すべての研究分野でプログラミングがみんなの常識になっているわけではありません． Perl は，このごろはウェブのCGI プログラムに使われることで知名度が高くなりましたが， データの処理だの簡単なシミュレーションだのに便利に使える言語です． そんな道具を自分のものにしたい人の自習の手助けになることを目指して入門講座を作ってみました． もともと「生物系研究者のための Perl 基礎の基礎」と題してましたが， あえて「生物系」と限定するのをやめました(2004年 3月）． 生物系に限らず，自分でプログラムを書いたことがない学生・研究者が， データ処理やシミュレーション計算のためにPerl
Perl::Critic / UNIVERSAL::require - naoyaのはてなダイアリー
このところ社内の技術勉強会で取り上げているテーマの Perl::Critic。このモジュールは、Damian Conway の Perl Best Pracitice に書かれているスタンダードな Perl のコーディングスタイルをチェックするためのものです。Perl::Critic をインストールすると perlcritic というコマンドがインストールされ、それを使うことで自分が書いた Perl のソースをチェックしたりできるという。 いろんなコーディングスタイルのルールとかは、Perl::Critic::Policy のサブクラスに記述されていて、pod で全部読めます。 この Perl::Critic なポリシーの中に Perl::Critic::Policy::BuiltinFunctions::ProhibitStringyEval というのがあります。これは eval には文
[技術継承の現場] useとrequireの違い - NDiS Tech
物事には順番というものがあります。 連続テレビドラマでもアニメでもコミックでも小説でもなんでもいいですが、いきなり最終回やエピローグを見せられても大抵なにがなんだかわからない。ごく単純なレベルから少しずつ複雑度が増していく過程を見ていたからこそついていける話もあるものです。 プログラミングの世界も似たようなもので、たとえばWeb関連の技術も、table タグもない状態からフレームだ JavaScript だ CSS だ Flash だ…と進んできた過程を見ているからこそ大まかにでも全体像が把握できている面は否定できず、いま１から理解するのは大変かもしれないなあ、と社内の新人さんを見ていると思います。 先日周囲で話題になっていたのは Perl での「use と requireの違い」。 まあこれも、大変大雑把に返答させてもらえば、 「use使っとけ」 の一言で済む話ではあります。Perl4の
Perlでブックオフの店舗を検索し、結果をハッシュの配列に格納する - As a Futurist...
HTML を解析する練習です。Perl の配列とかハッシュの扱いも少し分かりました。 以下のブックオフの検索を Perl でやっただけです。 お店を探す | 本を売るなら BOOKOFF(ブックオフ) 今回の経験を経て、まぁ API が公開されてなくても、検索フォームとかがあればいくらでも いじれるということが分かりました。 動作は、引数の単語を「駅名」と「店名/地名」の両方にいれて検索しています。POST で投げているだけ。 続いて、返ってきた結果を HTML::TreeBuilder を使って木構造へと解析します。さすがに 正規表現は疲れました＾＾ 出来上がった木構造から、TD タグを探し、一段上って TR タグの中身を 1 行分として配列に 格納し、そこから TD タグをもう一回抽出してハッシュを作り、1 店舗分のデータを作り、 最後に配列につっこんでいます。口で説明しても分かりにく
HTML::Feature - 重要部分を抽出するモジュール - - ダウンロードたけし（寅年）の日記
以前からCPANで公開していたモジュールがあるんですが、日本語での解説ドキュメントがなかったのと、最近大幅にブラッシュアップしたので、せっかくなので紹介記事を書きます。 HTML::Feature - Extract Feature Sentences From HTML Documents 「えいちてぃえむえる::ふぃーちゃー」と読みます。 ブログやニュース記事など様々なHTML文書から「重要部分」を推測して抽出してくれる perl モジュールです。 「重要部分」とはいわゆる「本文」のことですね。本文抽出とか焦点抽出とか色々な言い方があるかと思いますが、まぁ要するに特徴的な部分を推測して抽出するわけです。 どういうものか。 例えばブログ記事からヘッダーやフッター、その他のナビゲーションブロックを除いた「記事らしき部分」だけを切り取りたい、とします。 ぱっと思いつくのは「特定のコメントタグ
Perlメモ/Tree::Naryモジュール - Walrus, Digit.
Windows + ActivePerl環境で、PPMコマンドでも、cpanモジュールででもインストールできました。 PPMを使う場合、以下の手順になります。 C:\> ppm ppm> install Tree-Nary ここからは、Tree-Naryを使用した作業例（作業記録）です。次のようなツリーを考えることにします。 WikiWiki (lang:english) +-- ModWiki (lang:english) | +-- Kwiki (lang:universal) +-- YukiWiki (lang:japanese) | +-- PukiWiki (lang:japanese) | +-- WalWiki (lang:japanese) +-- JSPWiki (lang:universal) 適宜、Data::Dumperモジュールを使用して、データの状況を見てみる
SEO対策 検索エンジン最適化とプログラムのお話 - perl 無名配列とデリファレンス
my $c = [1, 2]; foreach my $i(@{$c}){ print $i, "\n"; } #多次元配列 my @z = ( [1, 2, 3, 4, 5, 6, 7, 8, 9], [2, 4, 6, 8, 10, 12, 14, 16, 18], ); my $w = \@z; foreach my $i(@{$w->[0]}){ print $i, "\n"; } my $z = [ [1, 2, 3, 4, 5, 6, 7, 8, 9], [2, 4, 6, 8, 10, 12, 14, 16, 18], ]; foreach my $i(@{$z->[1]}){ print $i, "\n"; } 配列全体を参照したい時にいつもわけわかめになるのでメモ。もっと分かりやすい書き方ないのかなぁ。リファレンスを使用した複雑なデータ構造をData::Dumperする人
編集距離（レーベンシュタイン距離）の計算 - Ceekz Logs (Move to y.ceek.jp)
文字列間の類似度を求める方法の一つとして、編集距離が挙げられます。編集距離は、考案者にちなみレーベンシュタイン距離とも呼ばれますが、具体的には、挿入や削除、置換によって、一方の文字列から他方の文字列に変換するために必要な作業の最小回数です。 use List::Util; sub levenshtein_distance { my ($list_1, $list_2) = @_; my $len_1 = scalar(@{$list_1}); my $len_2 = scalar(@{$list_2}); my @d; foreach my $i (0 .. $len_1) { $d[$i][0] = $i; } foreach my $j (0 .. $len_2) { $d[0][$j] = $j; } foreach my $i (1 .. $len_1) { foreach my
「輝け！全日本最強 CPAN Author 決定選手権 2007」完全版 - Charsbar::Note
いささか遅くなりましたが予告通り完全版の一覧を掲載します。このデータは基本的にYAPC直前、2008年5月15日時点でのものですが、抜けが判明したworemacxさんの分については先ほど目視で抽出しました。ほかの方のYAPC後の更新については反映されていませんのであしからずご了承ください。 ちなみに過去の選手権の結果はnipotanさんのサイトに掲載されています。 2006年度 2005年度 というわけで、あらためてなんちゃらかんちゃら出てこいや〜、とな。 モジュール数5個以上の部 過去二回の選手権ではモジュール数による分類はなかったのですが、この一覧のもとになっているCPANTSの仕組み上、モジュール登録数の少ない新しいAuthorの方が有利になる側面があるので、今回は本家CPANTSの分類にしたがってランキングを分けました。YAPC当日に発表したのはこのグループのベスト10です。表は、
Perl-users.jp - 日本のPerlユーザのためのハブサイト
Perl Mongers Perl Mongers とは、日本各地に存在する、Perl ユーザーのコミュニティのことです。各種イベントが行われていますので、是非参加してみましょう。 Shibuya.pm Fukuoka.pm Kansai.pm (@kansaipm) Yokohama.pm (@yokohamapm) Hokkaido.pm (@hokkaidopm) Nagoya.pm (@nagoyapm) Kushiro.pm (@kushiropm) Kyoto.pm (@kyotopm) Kamakura.pm Niigata.pm (@niigatapm) Sendai.pm (@sendaipm) Tokyo.pm Hachioji.pm (@hachiojipm) Chiba.pm (@chibapm) Yomitan.pm (@yomitanpm) Machida.pm
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
移転しました
はてなブログ | 無料ブログを作成しよう
http://hexten.net/cpan-faces/
perl-mongers.org
Perlの公式ドキュメントを読むための英語の勉強方法 - Perl入門～サンプルコードによるPerl入門～
Image-ObjectDetect-0.12
jw_cad Ｐｅｒｌで外部変形