2010年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」カテゴリの最新記事

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

配列を配列に 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のリファレンスとかを理解していないということが、改めて解りました。 #!/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

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

Tools Download (147.57KB) MetaCPAN Explorer Permissions Subscribe to distribution Install Instructions Dependencies Heap List::Util Safe Scalar::Util Set::Object Storable and possibly others Reverse dependencies CPAN Testers List Dependency graph Permalinks This version Latest version NAME Graph - graph data structures and algorithms SYNOPSIS use Graph; my $g0 = Graph->new; # A directed graph. use