looks_like_number()の返り値とエクスクラメーションによるBoolean反転 - Perl日記
昨日のlooks_like_number()の返り値がよくわからなかったので、cpanからinstallするときのtestを落として見てみた。 $ cpan cpan[1]> get Scalar::Util $ cd ~/.cpan/build/Scalar-List-Utils-1.23-npHgm2/t/ $ grep looks_like_number ./* ./lln.t:use Scalar::Util qw(looks_like_number); ./lln.t: ok(looks_like_number($num), "'$num'"); ./lln.t:is(!!looks_like_number("Inf"), $] >= 5.006001, 'Inf'); ./lln.t:is(!!looks_like_number("Infinity"), $] >= 5.008
Parallel::ForkManagerを使ってみた - Perl日記
またまた「モダンPerl入門」より。 まったくもって勉強になる。 「はてなブックマーク - 人気エントリー - テクノロジー」から人気エントリのRSSを取得して、最大5個の子プロセスで、タイトルとプックマーク件数をmemcachedに格納するスクリプト書いた。 #!/usr/local/bin/perl # b_hatena_it.pl use strict; use warnings; use 5.010; use Parallel::ForkManager; use LWP::Simple qw(get); use XML::Simple; use Encode qw(encode); use Memcached; # 前作ったやつ #use Data::Dumper qw(Dumper); # はてブ コンピュータ・IT RSS my $xml_uri = 'http://b.hat
memcachedやってみた2 - Perl日記
memcachedやってみた1 - Perl日記の続き。 じゃあPerlで接続してみる。 CPANからCache::Memcached::Fastをインストールして使う。 #!/usr/bin/perl # test.pl use strict; use warnings; package Memcached; use base qw/Cache::Memcached::Fast/; my $cache; sub new { my $class = shift; $cache ||= $class->SUPER::new( {servers => ['127.0.0.1:11211']} # memcached接続情報 ); return $cache; } package main; my $mem = Memcached->new(); my $key = 'myid'; my $va
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
