完全にランダムなエリアから重心を選ぶと計算がうまくいかなかったので、ランダムにサンプルを抽出した。 TODO：任意のkを与えられるようにする kmeans.pl use strict; use warnings; use Moo; use feature qw(say); use Switch; use Data::Dumper; use List…

http://www.kent-web.com/perl/chap3.html#chap3_7 #多次元配列 @array = ([1,2],[3,4]); #アクセス print $array[0][1];

そういうことだったのか # 配列の初期化 @array = (1,2,3); # ハッシュの初期化 %hash = (a=>1,b=>2,c=>3); # 配列のリファレンス $array_reference = [1,2,3]; # デリファレンス print $array_reference->[0] # ハッシュのリファレンス $hash_reference = {…

C言語みたいな言語だな->Perl http://gihyo.jp/dev/serial/01/perl-hackers-hub/000703

できない。 # sudo perl -MCPAN -e shell # install GD::Graphすると、FTPが失敗する。 Can't use an undefined value as a symbol reference at /System/Library/Perl/5.12/Net/FTP/dataconn.pm line 54. フォーラム読んでソースを修正してみたけど動かず。…

http://blog.kiftwi.net/2011/08/02/os-x-lion%E3%81%ABperlbrew%E3%81%A8cpanm%E3%82%92%E3%82%A4%E3%83%B3%E3%82%B9%E3%83%88%E3%83%BC%E3%83%AB%E3%81%97%E3%81%A6perl%E7%92%B0%E5%A2%83%E3%82%92%E6%95%B4%E3%81%88%E3%82%8B/CPANが使えない件、バグか…