ハッシュの配列とかハッシュの配列とか

perl

そういうのはリファレンスを使って作る。 #!/usr/bin/perl $data = [ { title => "xxxxxxx", url => "http://xxxxxx", tags => ["x", "xx", "xxx"] }, { title => "yyyyyyy", url => "http://yyyyyy", tags => ["y", "yy", "yyy"] }, { title => "zzzzzzz", …

2008-06-28

リファレンス作り方・使い方

perl

変数名の前に\を付ける $str = "hoge"; @list = (1, 2, 3); %hash = (a => 1, b => 2, c => 3); sub add1 { (shift @_) + 1 }; $str_ref = \$str; $list_ref = \@list; $hash_ref = \%hash; $sub_ref = \%add1; print $str_ref; #=> SCALAR(0x100128d8) prin…

2008-06-27

リファレンスとはなんぞや

perl

データを入れる箱を変数とする。その箱のアドレスがリファレンス。リファレンスが指す箱の中にあるデータにアクセスすることがデリファレンス。ちなみに変数は箱に付けた名前。変数を使った代入 $a = 5; $b = $a; $b = 0; print $a; #=> 5 print $b; #=> …

2008-06-25

WebService::Simpleでキャッシュを使えない -解決-

perl

とりあえず解決したのでメモ。 #!/usr/bin/perl use strict; use warnings; use WebService::Simple; use Data::Dumper; { package MyCache; use Cache::File; use Safe; use base qw(Cache::File); my $safe = Safe->new; $safe->permit(qw(:default requir…

2008-06-25

顔が良いだけではモテない

think

自分も含めて、モテない人は顔さえ良ければと考える。けど、そんなことは決していない。顔さえよければモテるなんてことは絶対にない。しかしこれは、僕のような容姿に自信がないモテない人々の救いではない。むしろ逆だ。顔が良いだけではモテない＝不細工…

2008-06-25

WebService::Simpleでキャッシュを使えない

perl

#!/usr/bin/perl use strict; use warnings; use WebService::Simple; use Data::Dumper; use Cache::File; my $cache = Cache::File->new( cache_root => "$ENV{HOME}/tmp", lock_level => Cache::File::LOCK_LOCAL(), default_expires => '30 min', ); my …