[B! perl][performance] issmã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

issm id:issm

perlã¨performanceã«é–¢ã™ã‚‹issmã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (22)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

Plack Performance Tips - mount() and query_parameters() : D-7 <altijd in beweging>
ã™ã”ã„ãƒ˜ãƒ“ãƒ¼ãªè² è·ã‚’å—ã‘ã¦ã„ã‚‹PSGIã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã§ã€Œãªã‚“ã§ã“ã‚Œã§è² è·ãŒã‚ãŒã‚‹ã®ï¼Ÿã€çš„ãªç¾è±¡ãŒã‚ã£ãŸã®ã§äºŒã¤ã»ã©Tipã‚’ã€‚ã¡ãªã¿ã«ã“ã‚Œã¯ 2013/03/06æ™‚ç‚¹ã§ã®è©±ãªã®ã§ã€ã‚‚ã—ã“ã‚Œã‚’ã‚ãªãŸãŒå¤§åˆ†å°†æ¥ã«èªã‚“ã§ã„ã‚‹ã®ãªã‚‰ã€çŠ¶æ³ã«å¤‰æ›´ãŒãªã„ã‹ã¡ã‚ƒã‚“ã¨ç¢ºèªã™ã‚‹ã“ã¨ï¼ ã¾ãšã“ã®ãŠè©±ã®å‰æï¼šmod_perlãªã‚¢ãƒ—ãƒªã‚’PSGIã«ç§»è¡Œã—ãŸã‹ã£ãŸã€‚ã‚¢ãƒ—ãƒªã¯mod_perlãƒãƒ³ãƒ‰ãƒ©ã§æ›¸ã‹ã‚Œã¦ã„ã‚‹ã®ã§ã€Apache::Requestã‚’Plack::Requestã«æ›¸ãæ›ãˆãŸã‚Šã€ãƒãƒ³ãƒ‰ãƒ©éƒ¨åˆ†ã‚’ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã«ã—ã¦ã‚ãƒ¬ã‚¤ã«ã™ã‚‹ãã‚‰ã„ã§ã€åŸºæœ¬çš„ãªæ§‹é€ ã¯ä½•ã‚‚å¤‰ãˆã¦ãªã„ï¼ˆâ†ã“ã“ãƒã‚¤ãƒ³ãƒˆï¼‰ã€‚ã‚ã¨ã¯Apacheå´ã¨ã‹è¨å®šã‚’ã‚‚ã‚Šã‚‚ã‚Šã„ã˜ã£ã¦ã€PSGIãƒ•ã‚¡ã‚¤ãƒ«ã‚’æ›¸ã„ã¦ã€Starletã§ãƒ‡ãƒ—ãƒã‚¤ã—ã¦ã€ãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹ãŒ30%ãã‚‰ã„æ‚ªããªã£ãŸã€‚ã•ã¦ã€çŠ¯äººã¯èª°ã§ã—ã‚‡ã†ï¼Ÿ ã¾ãšã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚’çµ„ã‚€å´ãŒã€Œã‚„ã£ã¡ã¾ã£ãŸãªãï¼Ÿã€ãªä»¶ï¼šP
issm 2013/03/07
mount() ã®å¤šç”¨ã¯ã‚ˆã‚ã—ããªã•ã’ï¼Ž

plack

perl

performance
ãƒªãƒ³ã‚¯
ã«ã²ã‚Šãšã‚€::ã—ã‚“ã·ã‚‹ - Data::Dumper ã¨ Data::Dump ã®å®Ÿè¡Œé€Ÿåº¦ã®é•ã„
Data::Dump ã¯ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã§ãã‚Œãªã‚Šã«æ•´å½¢ã—ã¦è¡¨ç¤ºã—ã¦ãã‚Œã‚‹ã®ã¨ã€ã‚³ãƒ³ãƒ†ã‚ã‚¹ãƒˆã‚’è¦‹ã¦ã‚ˆã—ãªã«å‡¦ç†ã‚’å¤‰ãˆã¦ãã‚Œã‚‹ã®ã§ã€ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®ãƒ‡ãƒãƒƒã‚°ãªã©ã«ä½¿ã†ã®ã¯ã¾ãã¾ãä¾¿åˆ©ã ã£ãŸã‚Šã—ã¾ã™ã€‚ ãŒã€ã“ã®åã¯ PurePerl ã§å®Ÿè£…ã•ã‚Œã¦ã„ã‚‹ã®ã§å®Ÿè¡Œé€Ÿåº¦ãŒçµæ§‹é…ã„ã§ã™ã€‚ ã©ã®ãã‚‰ã„é…ã„ã‹ã¨ã„ã†ã¨ use strict; use warnings; use Benchmark qw(cmpthese :hireswallclock); use Data::Dump (); use Data::Dumper (); my $data = { foo => [qw/bar/], bar => { hoge => 'piyo', }, heavy => So::Heavy::Object->new(10), }; cmpthese -1, { 'Data::Dump' => sub { my $res
issm 2012/02/11
perl

data-dumper

data-dump

log-minimal

performance
ãƒªãƒ³ã‚¯
Devel::KYTProfãŒã ã„ã¶ã„ã„ï¼
ä»•äº‹ã§ã‚¢ãƒ—ãƒªã®ãƒœãƒˆãƒ«ãƒãƒƒã‚¯ã‚’æŽ¢ã—ã¦ã„ã‚‹ã¨ã„ã†è©±ã‚’ã—ãŸã‚‰ã€hideokiã•ã‚“ãŒ ã€Œï¼¹ï¼¡ï¼°ï¼£::ï¼¡ï½“ï½‰ï½ã€€ï¼’ï¼ï¼‘ï¼ ã§ ï½ƒï½ˆï½ï¼”ï¼• ãŒç´¹ä»‹ã—ã¦ãŸ Devel::KYTProf ãŒã„ã„ã‚ˆãƒ¼ã€ ã£ã¦è¨€ã£ã¦ãŸã®ã§ã€ä½¿ã£ã¦ã¿ãŸã‚‰ã ã„ã¶ã‚ˆã‹ã£ãŸã®ã§ã”ç´¹ä»‹ã€‚ Devel::KYTProfã®ä½œè€…ã¯id:onishiã•ã‚“ã§ã€ãƒªãƒã‚¸ãƒˆãƒªã¯http://github.com/onishi/perl5-devel-kytprofã«ã‚ã‚Šã¾ã™ã€‚ ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã€ä½•ãŒã§ãã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‹ã£ã¦ã„ã†ã¨(ã¾ãcho45ã•ã‚“ã®ç™ºè¡¨å‹•ç”»è¦‹ã‚Œã°ã‚ã‹ã‚‹ã®ã§ã™ãŒ)ã€ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«åã¨ãƒ¡ã‚½ãƒƒãƒ‰åã‚’æŒ‡å®šã—ã¦ã‚„ã‚‹ã¨ã€ãã®ãƒ¡ã‚½ãƒƒãƒ‰ã®å‡¦ç†ã«ã‹ã‹ã£ãŸæ™‚é–“ã‚’ã•ãã£ã¨èª¿ã¹ã‚‰ã‚Œã‚‹ã¨ã„ã†ã‚‚ã®ã§ã™ã€‚ ãŸã¨ãˆã° Foo::Controller::Bar ã® baz() ã£ã¦é–¢æ•°ã®å‡¦ç†æ™‚é–“ãŒçŸ¥ã‚ŠãŸã‹ã£ãŸã‚‰ã€ãã®ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã®ãƒ¡ã‚¤ãƒ³ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã« use Devel:
issm 2011/06/15
dev

perl

delvel-kytprof

performance

tool
ãƒªãƒ³ã‚¯
oinume journal
å¤§è¦æ¨¡ãªã‚³ãƒ¼ãƒ‰ãƒ™ãƒ¼ã‚¹ã§ãƒªãƒ•ã‚¡ã‚¯ã‚¿ãƒªãƒ³ã‚°ã‚’çœã‚¨ãƒåŒ–ã™ã‚‹ãŸã‚ã«codemodã‚’æœ€è¿‘èª¿ã¹ã¦ã„ã¦ã€è»½ãè©¦è¡ŒéŒ¯èª¤ã—ãŸã®ã§ãã®ãƒ¡ãƒ¢ã€‚ ã‚„ã‚ŠãŸã„ã“ã¨ ä¾‹ãˆã°ä»¥ä¸‹ã®ã‚ˆã†ãªTable Driven Testãªã‚³ãƒ¼ãƒ‰ã‚’BEFOREã‹ã‚‰AFTERã«æ›¸ãæ›ãˆãŸã„ã€‚ã‚³ãƒ¼ãƒ‰é‡ãŒå¤šã„ãŸã‚äººé–“ãŒã‚„ã‚‹ã®ã¯ç¾å®Ÿçš„ã§ã¯ãªãã€codemodã§æ©Ÿæ¢°çš„ã«æ›¸ãæ›ãˆãŸã„ã€‚ BEFORE package main import ( "slices" "testing" ) func TestContains(t *testing.T) { type args struct { ss []string s string } tests := []struct { name string args args want bool }{ { name: "empty: false", args: args{[]string{}, ""}, wan
issm 2011/01/13
perl

cpan

time-piece

time

performance

comparison
ãƒªãƒ³ã‚¯
XML::Parserã®æ¯”è¼ƒ - Perlæ—¥èªŒ
Youtubeã¨ã‹LastFMã¨ã‹WebAPIç³»ã®ã‚µãƒ¼ãƒ“ã‚¹ã‚’ã‚ˆãåˆ©ç”¨ã—ã¦ã„ã‚‹ã®ã§ã™ãŒè§£æžã¯ã„ã¤ã‚‚XML::Simpleä½¿ã£ã¦ã„ã¾ã™ã€‚ ç†ç”±ã¯å˜ç´”ã«ä»–ã®ãƒ‘ãƒ¼ã‚µãƒ¼ã«ä¹—ã‚Šæ›ãˆãŸçµæžœæ—¢å˜ã‚³ãƒ¼ãƒ‰ã‚’å¤‰æ›´ã™ã‚‹ã®ãŒã„ã‚„ã ã—ã‚ãƒ£ãƒƒã‚·ãƒ¥ã¨ã£ã¦ã‚‹ã‹ã‚‰ã„ã„ã‚„ã€ãã‚‰ã„ã®æ°—æŒã¡ã§ã—ãŸã€‚ ãªã‚“ã§ã™ãŒã€æ˜”ä½œã£ãŸãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã‚’ç™ºè¦‹ã—ã¾ã—ãŸã€‚ã§ã€ã›ã£ã‹ããªã®ã§å®Ÿè¡Œã—ã¦ã¿ã¾ã—ãŸã€‚ ã¡ãªã¿ã«ã‚µãƒ³ãƒ—ãƒ«ã®XMLã¯XML::Feedã®ãƒ†ã‚¹ãƒˆã‚³ãƒ¼ãƒ‰ã«å…¥ã£ã¦ã„ã‚‹ã‚‚ã®ã‚’ãã®ã¾ã¾åˆ©ç”¨ã—ã¾ã—ãŸã€‚ ã‚µãƒ³ãƒ—ãƒ« #!/usr/bin/env perl use strict; use warnings; use FindBin qw($Bin); use Path::Class qw/dir file/; use URI::file; use XML::Feed; use XML::Hash::LX; use XML::Hash; use XML::S
issm 2010/10/04
perl

xml

cpan

parser

performance

comparison
ãƒªãƒ³ã‚¯
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ - ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’ç›®å‡¦ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã‚’çµ‚äº†äºˆå®šã§ã‚ã‚‹æ—¨ã‚’ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019å¹´æœ«ã‚’ç›®å‡¦ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æä¾›ã‚’çµ‚äº†ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã“ã®ãŸã³ã€æ£å¼ã«çµ‚äº†æ—¥ã‚’æ±ºå®šã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”ç¢ºèªãã ã•ã„ã€‚ çµ‚äº†æ—¥: 2020å¹´1æœˆ31æ—¥(é‡‘) ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1æœˆ31æ—¥(é‡‘) çµ‚äº†æ—¥ä»¥é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“ã€‚æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„ã€‚ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„ã¦ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã”åˆ©ç”¨ã®ã¿ãªã•ã¾ã«ã¯ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 è¿½è¨˜ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2æœˆ28
issm 2010/07/16
perl

plack

server

starman

starlet

mod_perl

apache

performance

hatena
ãƒªãƒ³ã‚¯
mod_perlã§è¦ªãƒ—ãƒã‚»ã‚¹ã¨ã®Copy on Writeãªå…±æœ‰ãƒ¡ãƒ¢ãƒªã‚’å¢—ã‚„ã™æ–¹æ³•ã€‚ - hideden.hatenablog.com
å¤§é‡ã«ã‚¢ã‚¯ã‚»ã‚¹ãŒã‚ã£ã¦MaxClientã‚’å¤§ããè¨å®šã—ãŸã„å ´åˆã€Apacheã®1ãƒ—ãƒã‚»ã‚¹ã‚ãŸã‚Šã®ãƒ¡ãƒ¢ãƒªã‚’å°‘ãªãã™ã‚‹ã®ãŒé‡è¦ã€‚å½“ç„¶ã‚¢ãƒ—ãƒªå´ã§å¤§ããªãƒ©ã‚¤ãƒ–ãƒ©ãƒªã‚’èªã¿è¾¼ã¾ãšã«ç”»åƒã®å¤‰æ›ã¯Gearmandã«ã‚¿ã‚¹ã‚¯ã¨ã—ã¦æŠ•ã’ãŸã‚Šã¨ã‹ã®å·¥å¤«ã™ã‚‹ã®ã‚‚æœ‰åŠ¹ã ãŒã€forkå…ƒã«ãªã‚‹Apacheã®è¦ªãƒ—ãƒã‚»ã‚¹ã¨åãƒ—ãƒã‚»ã‚¹é–“ã§ã§ãã‚‹é™ã‚ŠCopy on Writeãªå…±æœ‰ãƒ¡ãƒ¢ãƒªã‚’å¢—ã‚„ã™ã®ã‚‚æœ‰åŠ¹ã€‚ ãã®è¾ºã®è©³ã—ã„ä»•çµ„ã¿ç‰ã®è©±ã¯naoyaã•ã‚“ãŒd:id:naoya:20080212:1202830671ã§ã—ã¦ã‚‹ã®ã§ãã“ã‚’å‚è€ƒã«ã€‚linuxã‚«ãƒ¼ãƒãƒ«ã¾ã‚ã‚Šã®ä»•çµ„ã¿ã£ã¦æ¥½ã—ã„ã‚ˆãã€‚ä¼šç¤¾ã®æ¡ˆä»¶ã§ã¯FreeBSDã‚µãƒ¼ãƒãƒ¼ã‚‚çµæ§‹ã‚ã‚‹ã‚“ã ã‘ã©FreeBSDã§ã¯ã©ã†ãªã‚‹ã®ã‹ã¯çŸ¥ã‚‰ãªã„ã€‚ ã§ã€ç¤¾å†…ã«Xenãªãƒ†ã‚¹ãƒˆã‚µãƒ¼ãƒãƒ¼ãŒã‚ã‚‹ã®ã§ã¾ã£ã•ã‚‰ãªç’°å¢ƒã§è‰²ã€…å®Ÿé¨“ã—ã¦ã¿ãŸã€‚ãƒ»ãƒ»ãƒ»éŽç¨‹ã‚’å…¨éƒ¨æ›¸ã“ã†ã¨ã—ãŸã‚‰é•·ããªã£ãŸã®ã§çœç•¥ã€‚åœ°å‘³ã«psã—ãŸã‚Š/proc/
issm 2010/06/22
perl

mod_perl

apache

performance
ãƒªãƒ³ã‚¯
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
issm 2010/02/20
perl

server

performance
ãƒªãƒ³ã‚¯
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
issm 2010/02/18
perl

cpan

params-validate

performance

benchmark
ãƒªãƒ³ã‚¯
ç©ºæ–‡å—åˆ—æ¯”è¼ƒã¯ eq/ne ã¨ length ã®ã©ã£ã¡ãŒé€Ÿã„ã‹ - Craftworks Tech Blog - Branch
æœ€è¿‘ã€ç©ºæ–‡å—åˆ—ã®ãƒã‚§ãƒƒã‚¯ã®éš›ã«ã€é¢å€’è‡ãã¦ $_ eq '' ã®ä»£ã‚ã‚Šã«ã€ç©ºæ–‡å—åˆ—ã ã¨ length ãŒå½ã‚’è¿”ã™ã“ã¨ã‚’åˆ©ç”¨ã—ã¦ã€è‡ªåˆ†ã—ã‹è¦‹ãªã„ã‚ˆã†ãªã‚½ãƒ¼ã‚¹ã§ã¯ä»¥ä¸‹ã®ã‚ˆã†ã«æ›¸ãã“ã¨ãŒå¤šã„ã®ã§ã™ãŒã€ return unless defined and length; ãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹çš„ã«ã¯ã€$_ ne '' ã¨æ¯”ã¹ã¦ã©ã†ãªã‚“ã ã‚ã†ã¨æ€ã£ã¦èª¿ã¹ã¦ã¿ã¾ã—ãŸã€‚ #!/usr/bin/perl use strict; use warnings; use Benchmark ':all'; my $empty = ''; my $not_empty = 'blah'; cmpthese(timethese(100000000, { emp_cmp_eq => sub { $empty eq '' }, emp_cmp_ne => sub { $empty ne '' }, emp_len => sub {
issm 2010/02/14
perl

performance

benchmark
ãƒªãƒ³ã‚¯
ã«ã²ã‚Šãšã‚€::ã—ã‚“ã·ã‚‹ - Perlã§ç„¡åé–¢æ•°å†å¸°ã®ãƒ™ãƒ³ãƒ
ç„¡åé–¢æ•°å†å¸°ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã‚’ã¨ã£ã¦ã¿ãŸ 404 Blog Not Found:perl - ã§ç„¡åå†å¸°é–¢æ•°å†ã³ Devel::Caller::caller_cvãŒæœ€é€Ÿã ã¨æ€ã£ãŸã‘ã©ä¸€ç•ªé…ã‹ã£ãŸã€‚ æ¯Žå›žè‡ªåˆ†è‡ªèº«ã‚’è¿”ã—ã¦ã„ã‚‹ã‹ã‚‰ã‹ã‚‚ï¼Ÿã‚ˆãã‚ã‹ã‚‰ã‚“ã‘ã© å¼¾ã•ã‚“ã®CALLEEã¨Sub::Recuersiveã¯ã»ã¨ã‚“ã©ä¸€ç·’ã ã£ãŸã®ã§ã€CPANã•ã‚Œã¦ã‚‹Sub::Recuersiveã‚’ãƒãƒ§ã‚¤ã‚¹ã—ãŸã€‚ å˜ç´”ãªå†å¸°ã¯Sub::RecursiveãŒã„ã„ã£ã½ã„ã€‚ ç’°å¢ƒ WindowsXP Active Perl 5.10.0 build 1004 CPU Intel Core2 Duo E6600 (OC) Memory 3GB Module VERSION Devel::Caller 2.03 Sub::Recursive 0.03 Benchmark: running Caller, Recallable,
issm 2010/02/12
perl

cpan

sub-recursive

performance
ãƒªãƒ³ã‚¯
Text::MicroTemplate ã¨ Template-Toolkit ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ - makogã®æ—¥è¨˜
Perlã®è»½é‡ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ï¼ˆMENTA ã‚„ NanoAï¼‰ã‹ã‚‰ç”Ÿã¾ã‚ŒãŸ Text::MicroTemplateã¨ã€ã”å˜ã˜ Template-Toolkit ã®æ¯”è¼ƒã®ãŸã‚ã€ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã—ã¦ã¿ã¾ã—ãŸã€‚å‚è€ƒã¾ã§ã«ã€ã“ã¡ã‚‰ã‚‚æœ‰åã©ã“ã‚ã® HTML::Template ã‚‚å…¥ã‚Œã¦ã¿ã¾ã—ãŸã€‚ çµæžœ Benchmark: timing 5000 iterations of HTML::Template, Template-Toolkit, Text::MicroTemplate... HTML::Template: 2 wallclock secs ( 1.68 usr + 0.04 sys = 1.72 CPU) @ 2906.98/s (n=5000) Template-Toolkit: 9 wallclock secs ( 8.73 usr + 0.36 sys = 9.09 CPU) @ 550.
issm 2009/10/20
perl

cpan

tt

text-microtemplate

comparison

performance
ãƒªãƒ³ã‚¯
ã‚†ãƒ¼ã™ã‘ã¹ãƒ¼æ—¥è¨˜
ã‚µã‚ã¨ã¯å½¼å¥³ã®è‡ªå®…è¿‘ãã€æ¹˜å—å°é§…å‰ã®ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã§å¾…ã¡åˆã‚ã›ã‚’ã—ãŸã€‚å½¼å¥³ã¯è‡ªè»¢è»Šã§å¾Œã‹ã‚‰è¿½ã„ã¤ãã¨è¨€ã„ã€åƒ•ã¯å¤§ããªã‚³ã‚¤ãƒ³ãƒ‘ãƒ¼ã‚ãƒ³ã‚°ã¸è»Šã‚’åœã‚ãŸã€‚ç…™è‰ã‚’ä¸€æœ¬å¸ã£ã¦ã‹ã‚‰ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã¸å‘ã‹ã†ã¨ã€ã²ã£ãã‚Šãªã—ã«ä¸»å©¦çš„ãªå¥³æ€§ã‹ãŠã°ã‚ã¡ã‚ƒã‚“ãŒå…¥ã‚Šå£ã‚’å‡ºãŸã‚Šå…¥ã£ãŸã‚Šã—ã¦ã„ãŸã€‚æ™‚åˆ»ã¯åˆå¾Œ5æ™‚ã«ãªã‚‹ã€‚æ™‚è¨ˆã‹ã‚‰ç›®ã‚’ä¸Šã’ã‚‹ã¨ã€å¾…ãŸã›ã¡ã‚ƒã£ãŸã‚ãã¨å¤§ã—ã¦æ‚ªã³ã‚Œã¦ãªã„æ§˜åã§ã‚µã‚ãŒæ‰‹ã¶ã‚‰ã§ã‚„ã£ã¦ããŸã€‚ ãŠç¤¼ã«æ–™ç†ã‚’ä½œã‚‹ã¨ã¯ã„ãˆã€ã‚µã‚ã®å®¶ã«ã¯é£ŸæãŒååˆ†è¶³ã‚Šã¦ã„ãªã„ã‚‰ã—ãã€ã“ã†ã—ã¦ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã«å¯„ã‚‹ã“ã¨ã«ãªã£ãŸã€‚ã‚µã‚ã¯é‡Žèœã‚³ãƒ¼ãƒŠãƒ¼ã‹ã‚‰ç²¾è‚‰ã‚³ãƒ¼ãƒŠãƒ¼ã¾ã§ã€ã¾ã‚‹ã§å„ªç§€ãªã‚«ãƒ¼ãƒŠãƒ“ã«å°Žã‹ã‚Œã‚‹ã‚ˆã†ã«ç„¡é§„ãªãç‚¹æ¤œã—ã¦ã„ã£ãŸã€‚æ¬²ã—ã„é£ŸæãŒã‚ã‚‹ã¨ã€2ç§’é–“ç¨‹åº¦ãã‚Œã‚‰ã‚’å‡è¦–ã—ã€ä¸€åº¦æ‰‹ã«å–ã£ãŸã˜ã‚ƒãŒã„ã‚‚ã‚„ã‚‰è±šè‚‰ã‚„ã‚‰ã‚’è¿·ã†ã“ã¨ãªãåƒ•ãŒæŒã£ã¦ã„ã‚‹ã‚«ã‚´ã«æ”¾ã‚Šè¾¼ã‚“ã ã€‚æœ€å¾Œã«ã‚¢ãƒ«ã‚³ãƒ¼ãƒ«é£²æ–™ãŒå†·ã‚„ã•ã‚Œã¦ã„ã‚‹æ£šã®å‰ã¸è¡Œãã¨ã€ç§ãŒé£²ã‚€ã‹ã‚‰ã¨ãƒ
issm 2009/07/07
sever

performance

perl

senna

mysql
ãƒªãƒ³ã‚¯
ã‚†ãƒ¼ã™ã‘ã¹ãƒ¼æ—¥è¨˜
ã‚µã‚ã¨ã¯å½¼å¥³ã®è‡ªå®…è¿‘ãã€æ¹˜å—å°é§…å‰ã®ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã§å¾…ã¡åˆã‚ã›ã‚’ã—ãŸã€‚å½¼å¥³ã¯è‡ªè»¢è»Šã§å¾Œã‹ã‚‰è¿½ã„ã¤ãã¨è¨€ã„ã€åƒ•ã¯å¤§ããªã‚³ã‚¤ãƒ³ãƒ‘ãƒ¼ã‚ãƒ³ã‚°ã¸è»Šã‚’åœã‚ãŸã€‚ç…™è‰ã‚’ä¸€æœ¬å¸ã£ã¦ã‹ã‚‰ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã¸å‘ã‹ã†ã¨ã€ã²ã£ãã‚Šãªã—ã«ä¸»å©¦çš„ãªå¥³æ€§ã‹ãŠã°ã‚ã¡ã‚ƒã‚“ãŒå…¥ã‚Šå£ã‚’å‡ºãŸã‚Šå…¥ã£ãŸã‚Šã—ã¦ã„ãŸã€‚æ™‚åˆ»ã¯åˆå¾Œ5æ™‚ã«ãªã‚‹ã€‚æ™‚è¨ˆã‹ã‚‰ç›®ã‚’ä¸Šã’ã‚‹ã¨ã€å¾…ãŸã›ã¡ã‚ƒã£ãŸã‚ãã¨å¤§ã—ã¦æ‚ªã³ã‚Œã¦ãªã„æ§˜åã§ã‚µã‚ãŒæ‰‹ã¶ã‚‰ã§ã‚„ã£ã¦ããŸã€‚ ãŠç¤¼ã«æ–™ç†ã‚’ä½œã‚‹ã¨ã¯ã„ãˆã€ã‚µã‚ã®å®¶ã«ã¯é£ŸæãŒååˆ†è¶³ã‚Šã¦ã„ãªã„ã‚‰ã—ãã€ã“ã†ã—ã¦ã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒžãƒ¼ã‚±ãƒƒãƒˆã«å¯„ã‚‹ã“ã¨ã«ãªã£ãŸã€‚ã‚µã‚ã¯é‡Žèœã‚³ãƒ¼ãƒŠãƒ¼ã‹ã‚‰ç²¾è‚‰ã‚³ãƒ¼ãƒŠãƒ¼ã¾ã§ã€ã¾ã‚‹ã§å„ªç§€ãªã‚«ãƒ¼ãƒŠãƒ“ã«å°Žã‹ã‚Œã‚‹ã‚ˆã†ã«ç„¡é§„ãªãç‚¹æ¤œã—ã¦ã„ã£ãŸã€‚æ¬²ã—ã„é£ŸæãŒã‚ã‚‹ã¨ã€2ç§’é–“ç¨‹åº¦ãã‚Œã‚‰ã‚’å‡è¦–ã—ã€ä¸€åº¦æ‰‹ã«å–ã£ãŸã˜ã‚ƒãŒã„ã‚‚ã‚„ã‚‰è±šè‚‰ã‚„ã‚‰ã‚’è¿·ã†ã“ã¨ãªãåƒ•ãŒæŒã£ã¦ã„ã‚‹ã‚«ã‚´ã«æ”¾ã‚Šè¾¼ã‚“ã ã€‚æœ€å¾Œã«ã‚¢ãƒ«ã‚³ãƒ¼ãƒ«é£²æ–™ãŒå†·ã‚„ã•ã‚Œã¦ã„ã‚‹æ£šã®å‰ã¸è¡Œãã¨ã€ç§ãŒé£²ã‚€ã‹ã‚‰ã¨ãƒ
issm 2009/05/02
webã‚µãƒ¼ãƒ“ã‚¹

perl

dev

performance

server
ãƒªãƒ³ã‚¯
perl - no accessor; # ã ã£ã¦é…ã„ã‚“ã ã‚‚ã‚“ : 404 Blog Not Found
2008å¹´07æœˆ08æ—¥15:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - no accessor; # ã ã£ã¦é…ã„ã‚“ã ã‚‚ã‚“ ã¾ãšã¯DCONWAYå…ˆç”Ÿã®ãŠè¨€è‘‰ã‹ã‚‰ã€‚ Perl Best Practices Damian Conway [é‚¦è¨³:Perlãƒ™ã‚¹ãƒˆãƒ—ãƒ©ã‚¯ãƒ†ã‚£ã‚¹] Always use fully encapsulated objects. ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã¯å¸¸ã«ã‚«ãƒ—ã‚»ãƒ«åŒ–ã—ã¦ç”¨ã„ã‚ˆ ã“ã‚Œã¯perlã®å¸¸è˜ã¨ã„ã†ã‚ˆã‚Šã€OOã®å¸¸è˜ã§ã‚ã‚‹ã®ã ã‘ã©ã€ã“ã‚ŒãŒperlã®å®Ÿè£…ã¨é‡ãªã‚‹ã“ã¨ã«ã‚ˆã‚Šã€perlã«ãŠã„ã¦ã¯ä»–ã®è¨€èªžã‚ˆã‚Šã‚‚ä½œæ³•ã‚’ç ´ã‚ŠãŸããªã‚‹ã‚¤ãƒ³ã‚»ãƒ³ãƒ†ã‚£ãƒ´ãŒå¤§ãã„ã®ã¯å¦ã‚ãªã„ã€‚ ã‚«ãƒ—ã‚»ãƒ«åŒ–ã®ã‚³ã‚¹ãƒˆãŒã€ã‚ã¾ã‚Šã«å¤§ãã„ã®ã ã€‚ ä»¥ä¸‹ã¯ã€ãƒãƒƒã‚·ãƒ¥ã€ãƒãƒƒã‚·ãƒ¥ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã€ãã—ã¦ãƒãƒƒã‚·ãƒ¥ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã«ã‚ˆã‚‹ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®æ€§èƒ½ã‚’ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã—ãŸã‚‚ã®ã ã€‚æœ€åˆãŒåˆæœŸåŒ–ã€æ¬¡ãŒ accessor ã¨
issm 2009/02/14
dankogai

perl

performance
ãƒªãƒ³ã‚¯
Perl ã§ YAML ã¨ JSON ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯æ¯”è¼ƒ - Daio Today
Perl ã§ YAML ã¨ JSON ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯æ¯”è¼ƒ YAML ã‚„ JSON ãŒè»½ã„ï¼é€Ÿã„ï¼ã¨è¨€ã‚ã‚Œã¦ã„ã‚‹ãŒã€ã©ã‚Œãã‚‰ã„é€Ÿã„ã®ã‹ Perl ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ãƒ™ãƒ³ãƒã—ã¦ã¿ãŸã€‚ â€»å€‹äººçš„ã«èˆˆå‘³ãŒã‚ã£ãŸã®ãŒãƒ‡ãƒ¼ã‚¿ã®èªã¿è¾¼ã¿ (Load) ã ã‘ã ã£ãŸã®ã§ã€ãƒ‡ãƒ¼ã‚¿ã®æ›¸ãå‡ºã— (Dump) ã¯ãƒ†ã‚¹ãƒˆã—ã¦ã„ãªã„ã€‚ çµæžœçš„ã«ã¯ã€YAML ã¨ æ¯”ã¹ã¦ JSON ã®æ–¹ãŒ 6å€ã€œ8å€é«˜é€Ÿã€‚ãŸã ã—ã€ã“ã‚Œã¯ãƒ‡ãƒ¼ã‚¿é‡ãŒå°‘ãªã„å ´åˆã§ã€ãƒ‡ãƒ¼ã‚¿é‡ãŒå¤§ãããªã‚‹ã¨ 0.5å€ã€œ0.8å€ ã¨å·®ãŒç¸®ã¾ã£ã¦ã—ã¾ã†ã€‚ ã¾ãŸã€YAML::Syck ã¨ JSON::Syck ã§æ¯”ã¹ã‚‹ã¨ã€ãƒ‡ãƒ¼ã‚¿é‡ã«ã‹ã‹ã‚ã‚‰ãšãã®å·®ã¯æ•°ãƒ‘ãƒ¼ã‚»ãƒ³ãƒˆç¨‹åº¦ã«ãªã£ã¦ã—ã¾ã†ã€‚ ã¡ãªã¿ã«ã€Data::Dumper ã§ãƒ€ãƒ³ãƒ—ã—ãŸãƒ‡ãƒ¼ã‚¿ã‚’ eval ã—ãŸã‚‚ã®ã¨ã‚‚æ¯”ã¹ã¦ã¿ãŸãŒã€YAML ã‚’åŸºæº–ã«ã™ã‚‹ã¨ eval ã¯ç´„50å€é€Ÿãã€YAML::Syck (ã¨ JSON::Syck)
issm 2009/02/07
perl

yaml

json

yaml-syck

json-syck

performance

benchmark
ãƒªãƒ³ã‚¯
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
issm 2008/11/30
perl

http-engine

cpan

performance

moose

shika
ãƒªãƒ³ã‚¯
MENTA ã¨ã„ã†ã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã‚’ã‹ã„ã¦ã¿ãŸ - TokuLog æ”¹ã‚Bæ—¥è¨˜
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
issm 2008/11/12
perl

framework

menta

cgi

performance
ãƒªãƒ³ã‚¯
YappoLogs: HTTP::Engine VS Mojo Benchmarking
HTTP::Engine And Mojo Benchmarking Update: Mojoä½œè€…ã®Sebastianã‚‚ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã¨ã£ã¦ãã‚ŒãŸã‚ˆï¼ (new benchmark by Sebastian) Mojo vs. HTTP::Engine - Sebastian Riedel - Perl and the Web sri++ And if there is time, i make benchmark of FCGI. æœ¬æ°—baråŠ¹æžœã§MojoãŒæ³¨ç›®ã•ã‚Œã¦ã‚‹ã®ã§HTTP::Engineã¨ã®é€Ÿåº¦å·®ã‚’ç°¡å˜ã«ã¨ã£ãŸã€‚ ãã‚‚ãã‚‚Mojoå˜ä½“ã®Web Serverã®ä½¿ã„æ–¹ãŒè‰¯ãã‚ã‹ã‚‰ãªã„ã®ã§ Mojolicious ã® CLI ã‚’è¦‹ã¦ãã‚Œã£ã½ã„ Mojo::Server::Daemon ã‚’ä½¿ã£ãŸã€‚ on New MacBook 2.4G Mojo's source codeuse str
issm 2008/11/07
perl

http-engine

mojo

performance
ãƒªãƒ³ã‚¯
ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’useã—ãŸéš›ã®ãƒ¡ãƒ¢ãƒªä½¿ç”¨é‡(å¢—åŠ é‡)ã‚’èª¿ã¹ã¦ã¿ã‚‹ (iandeth.)
iandeth. Perl, Flash ActionScript, MySQL, Movable Type, ã‚·ã‚¹ãƒ†ãƒ é–‹ç™º - ãã‚“ãªãƒ†ãƒ¼ãƒžã®ã‚µã‚¤ãƒˆdeth. gtop.plx #!/usr/bin/perl use strict; use warnings; use GTop; my $gtop = GTop->new; my $before = $gtop->proc_mem($$)->size; eval $ARGV[0]; die $@ if $@; my $after = $gtop->proc_mem($$)->size; my $diff = GTop::size_string($after - $before); print "$diff : $ARGV[0]\n"; ä¾‹ï¼‰ CGIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ãƒ¡ãƒ¢ãƒªå¢—åŠ é‡ã¯... $ ./gtop.plx 'use CGI' 704k :
issm 2008/05/27
perl

cpan

apache

mod_perl

memory

performance

tuning
ãƒªãƒ³ã‚¯
1 2 æ¬¡ã®ãƒšãƒ¼ã‚¸