perl - YAPC::Asia::2010 - 弾のスライド : 404 Blog Not Found2010年10月16日15:45 カテゴリYAPC::AsiaLightweight Languages perl - YAPC::Asia::2010 - 弾のスライド 発表も無事(?)終わったので。 …そんなスライドで大丈夫か? http://www.dan.co.jp/~dankogai/yapcasia2010/lleval.html Dan the Perl Monger 「YAPC::Asia」カテゴリの最新記事
Imlib2でImageMagickより3倍高速かつ美しいサムネイル画像の生成 - 昼メシ物語
この記事の概要 Imlib2を使って画像のサムネイルを生成してみたところ、ImageMagickより3倍速かった。 また一般的には、Imlib2の方が画質が悪いとされているが、パラメータを調整することで、十分に美しいサムネイル画像を得ることができた。 はじめに Imlib2は画像処理ライブラリ。mixiの発表資料大規模画像配信とPerl によれば、mixiは高速に高品質なサムネイルを生成するために、ImageMagickでなくImlib2を選んでいる。 上記資料の中では、以下のように説明されている。 速度 Epeg > Imlib2 > Imager >>> ImageMagick 画質 ImageMagick > Imlib2 >>> EpegImlibの画質は多少ImageMagickに劣るが、速度は十分に速い、とのこと。 一方で、404 Not Foundという記事では、ImageM
perlの多次元配列 - rayfillのプログラムネタ帳
perlの二次元配列の作り方がさっぱり - 誰か助けて orz - ir9Ex’s diaryの話題について反応。 ぶっちゃけperlなんてもう5, 6年まともに触ってないのでぜんぜん覚えてないのでもっときれいなやり方とかあったら誰か教えてください。 今回の件がcsvっぽいデータから2次元配列への格納ってことだったのでそれを踏襲して書いてみた。 まずはテストデータ、test.csv 1, 2, 3, 4, 5, 6, 7 21, 22, 23 31, 32, 33, 34, 35で、コード本体、test.pl #!/usr/bin/perl open FILE, "<./test.csv" or die; @result = (); while (<FILE>) { @columns = split /,/, $_; push (result, \@columns); } print $r
perlの二次元配列の作り方がさっぱり - 誰か助けて orz - ir9Ex’s diary
配列を配列に push していきたいのです。 擬似コード的には以下の通り @parent; @tmp = (1, 2, 3); push(@parent, @tmp); @tmp = (4, 5, 6); push(@parent, @tmp); // parent は 以下の構造になって欲しい // // 1 2 3 // 4 5 6 しかしこれでは、全ての要素が１次元でつながってしまうわ、以下のように力業やってもどうも動かないわ… @parent[$#parent] = (); for($i = 0; $i < 3; ++$i) { $parent[$#parent][$i] = $tmp[$i]; } // @record = @parent[0]; foreach $t (@record) { print $t, "\n"; # 配列のアドレスらしきモノが出力される。ARRAY(0
Perlの配列に悩む - プログラマでありたい
久々にPerlで簡単なバッチを書いていた。珍しく配列をごちゃごちゃ操作するような物です。で、配列数も多いので、サブルーチンに渡すごとにコピーを作っていたらパフォーマンスにも影響すると思って、参照渡しを使うようにしました。何故か凄い混乱。Perlのリファレンスとかを理解していないということが、改めて解りました。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my @x=(1,2,3,4,5); my @y=(6,7,8,9,10); print '@x'," is \n"; print Dumper(@x),"\n"; func(\@x,\@y); sub func { my ($x,$y) = @_; print '$x'." is \n"; print Dumper($x),"\n"; print '@x'." i
Perl モジュールの書き方
モジュールの作り方 2000/11 に京都国際会館で行われた Perl Conference Japan 2000 での講演スライドです。当時同じ会社で勤務していた小飼弾さんと2人で講演しました。内容的には、モジュールの作り方と言うより、書き方がメインになっています。 Name Last modified Size Description Parent Directory 21-Apr-2004 05:51 - 00Title.html 03-Dec-2000 19:44 1k 00index.html 09-Mar-2001 16:25 1k 01.html 03-Dec-2000 19:44 1k 02.html 03-Dec-2000 19:44 1k 03.html 03-Dec-2000 19:44 1k 04.html 03-Dec-2000 19:44 1k 05.html
Python から Graphviz を使う（ pydot を日本語で出力）(7) - サブグラフの中のサブグラフ - 傀儡師の館.Python：楽天ブログ
2007.11.17 Python から Graphviz を使う（ pydot を日本語で出力）(7) - サブグラフの中のサブグラフ テーマ：プログラミング言語 Python を使う(336) カテゴリ：Python Python から Graphviz を使う（ pydot を日本語で出力）(6) でサブグラフを描いてみたが、subgraph の中にサブグラフがあるときはうまく描けるだろうかと試してみる。Graphviz のサイトにある Undirected Graph Clusters のようなものを。グラフの中にサブグラフが3つ。そのうち1つは他のサブグラフの中にある。骨組みとしては次のようなものになる。 graph G { subgraph clusterA { // subgraph cluster C { // } } subgraph clusterB { // } cl
Graph - graph data structures and algorithms - metacpan.org
NAME Graph - graph data structures and algorithms SYNOPSIS use Graph; my $g0 = Graph->new; # A directed graph. use Graph::Directed; my $g1 = Graph::Directed->new; # A directed graph. use Graph::Undirected; my $g2 = Graph::Undirected->new; # An undirected graph. $g->add_edge(...); $g->has_edge(...) $g->any_edge(...) $g->delete_edge(...); $g->add_vertex(...); $g->has_vertex(...); $g->delete_vertex(.
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
cache:hVkC5p9ZWKAJ:www.opensource.apple.com/darwinsource/10.5.4/CPANInternal-32/Graph/lib/Graph/TransitiveClosure.pm path_vertices - Google 検索
nasm/perllib/Graph/TransitiveClosure Matrix.pm, NO: msg#00055
サービス終了のお知らせ