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ページを開ã
{{#tags}}- {{label}}
{{/tags}}