[B! perl] comet53pgのブックマーク

comet53pg id:comet53pg

perlに関するcomet53pgのブックマーク (4)

Perl: 多次元連想配列 - ループの仕方
Perl で多次元のハッシュ（連想配列）を使うときのメモ。多次元のハッシュは my %foo; $foo{$id1}{$id2} = $val; で作れることはすぐに分かりましたが、全てのキーを列挙するやり方が分からなくて、大晦日の夜ずっと試行錯誤しながら悩んでいました。 while (my ($key1,$val1)=each(%foo)){ } で1次元目のキーと、対応するハッシュのリファレンスを得ることが分かったのですが、ハッシュのリファレンスからどうやって2次元目のキーを生成すればいいのかが分かりませんでした。keys $$val1 とやってもエラーになります。リファレンスは、それ自身が参照先の型を知っているから $$val1 でハッシュにならないの？年が明けて、Effective Perl を持っていたのを思い出して、リファレンスの項をみてようやく理解できました。まず、リファ
comet53pg 2011/01/25
perl

!!研究

hash
リンク
ぺるりめも / gzipファイルの入出力 (module)Compress-Zlib
gzipファイルの入出力 (module)Compress-Zlib back gzip で圧縮されたファイルに対する読込/書込みを行う (read) sample.txt を gzip で圧縮した sample.txt.gz を open/read する ---- use Compress::Zlib; $gz = gzopen("sample.txt.gz", "rb"); while ($gz->gzreadline($line)) { print $line, "\n"; } $gz->gzclose; ---- まぁ、open(F, "/usr/bin/gzip -dc sample.txt.gz | ") で <F> を読んでもいいけど :p (write) sample.txt.gz へ、gzip 圧縮されたデータを書き込む ---- use Compress::Zlib;
comet53pg 2011/01/08
perl

!!研究

gzip
リンク
anney's room - ぷめも - ベイズの定理
2010-05-22 perl 2010-05-08 svn 2010-05-03 ベイズの定理トップ trac 2010-04-19 UNIXコマンドとか 2010-03-20 CCNA 2009-06-28 DNS 2009-04-15 User-Agent 2009-01-13 UTF-16BE Malformed perl XS 2008-08-22 PHP 2008-08-08 GIF 2008-08-07 ユークリッド距離 2008-07-23 用語 2008-07-22 c 2008-07-21 InterWikiName RecentDeleted 2008-07-19 Ruby へなちょこコーディング規約ベイズの定理 † P(A|B) = P(B|A) P(A) / P(B) P(A|B) = P(A∧B) / P(B) Bが起きる条件での、Aが起きる確率は… Aが起
comet53pg 2010/12/04
perl

ベイズ

!!研究
リンク
Algorithm::NaiveBayes
NAME Algorithm::NaiveBayes - Bayesian prediction of categories SYNOPSIS use Algorithm::NaiveBayes; my $nb = Algorithm::NaiveBayes->new; $nb->add_instance (attributes => {foo => 1, bar => 1, baz => 3}, label => 'sports'); $nb->add_instance (attributes => {foo => 2, blurp => 1}, label => ['sports', 'finance']); ... repeat for several more instances, then: $nb->train; # Find results for unseen instan
comet53pg 2010/12/04
ベイズ

perl

!!研究
リンク
1