[B! Perl] katryoã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

katryo id:katryo

Perlã«é–¢ã™ã‚‹katryoã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (37)

${{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}}

2017å¹´ Perl5 ã¨ã®æˆ¦ã„ã«ç”Ÿãæ®‹ã‚‹ãŸã‚ã®æœ€é«˜ã®é–‹ç™ºç’°å¢ƒã‚’æ‰‹ã«å…¥ã‚Œã‚‹ - Qiita
Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article? ã¯ã˜ã‚ã«ï¼šã“ã‚Œã¯èª°ã®ãŸã‚ã®è¨˜äº‹ã‹ï¼Ÿ Perl ã§æ›¸ã‹ã‚ŒãŸæ¯”è¼ƒçš„å¤§ããªã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚„ãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆã‚’ä¿å®ˆã™ã‚‹å¿…è¦ã®ã‚ã‚‹äºº. Perl 5 ã¨ã®æˆ¦ã„ Perl5 (ä»¥ä¸‹ Perl) ã¨ã„ãˆã°ä¸€æ™‚æœŸ CGI ã‚’ä½œã‚‹ãŸã‚ã®æ¨™æº–çš„ãªæŠ€è¡“ã¨ã—ã¦ Web ã®é–‹ç™ºã§åˆ©ç”¨ã•ã‚ŒãŸã‚Šã€ãƒ†ã‚ã‚¹ãƒˆå‡¦ç†ç”¨ã®è¨€èªžã¨ã—ã¦æ˜”ã‹ã‚‰åºƒãä½¿ç”¨ã•ã‚Œã¦ã„ã‚‹è¨€èªžã§ã™ã€‚ ã‹ã¤ã¦ã¯ã‚µãƒ¼ãƒãƒ¼ä¸Šã§ CGI ã‚’å‹•ä½œã•ã›ã‚‹ãŸã‚ã« Perl ã§ãªã‘ã‚Œã°ãªã‚‰ãªã„ ã¨ã„ã†ã‚ˆã†ãªçŠ¶æ…‹ãŒã‚ã‚Šã¾ã—ãŸãŒã€è¿‘å¹´ã§ã¯ Ruby on Rails ã‚„ PHP è£½ã®ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ãªã©ãŒã‚µãƒ¼ãƒãƒ¼ä¸Šã§æ™®é€šã«åˆ©ç”¨ã§ãã‚‹ã‚ˆã†ã«
katryo 2017/01/24
2017å¹´ã¯ Perl5 ã®æ™‚ä»£

perl

intellij

JetBrains
ãƒªãƒ³ã‚¯
Rendering React Components Using Perl - Tilt Engineering Blog
The Tilt.com website was originally built using Perl. Over the years, we added jQuery UI to build widgets that had dynamic page behavior. Perl on the backend and jQuery UI on the frontend helped us get to where we are today, but about a year ago it was clear to us that we needed to start introducing a more modern techno logy stack. We chose React for our view layer and Node.js for the application l
katryo 2015/06/02
Perlã§Reactã

Perl

React.js
ãƒªãƒ³ã‚¯
Perlã®é£Ÿãˆãªã„äº‹æƒ… - æ¼”ç®—åç·¨ - ã‚¢ãƒª
Perlã®é£Ÿãˆãªã„äº‹æƒ… ã‚ˆã‚Š ãŠã£ã¨ã€ãã†ã§ã™ã€Perlã«ã¯æ¼”ç®—åãŒå¤šã™ãŽã‚‹ã®ã§ã—ãŸã€‚ã›ã£ã‹ãã®æ©Ÿä¼šãªã®ã§ã€Perlã®æ¼”ç®—åã‚’ç´¹ä»‹ã—ã¾ã™ã€‚ ãƒ“ãƒ¼ãƒŠã‚¹æ¼”ç®—å: 0+, +0 æ•°å€¤ã¨ã—ã¦è©•ä¾¡ã—ã¦ãã‚Œã¾ã™ã€‚æ„å¤–ã¨ã‚ˆãè¦‹ã‹ã‘ã¾ã™ãã€‚ ãªãœã“ã®æ¼”ç®—åã‚’ä½¿ã†å¿…è¦ãŒã‚ã‚‹ã®ã‹ã¨ã„ã†ã¨ã€Perlã¯æ–‡å—åˆ—ã¨æ•°å€¤ã‚’æ˜Žç¢ºã«åŒºåˆ¥ã§ããªã„ã‹ã‚‰ã§ã™ã€‚scalarã‚’æ–‡å—åˆ—ã¨ã—ã¦è§£é‡ˆã™ã‚‹ãªã‚‰ã°æ–‡å—åˆ—ã¨ã—ã¦ã€ print 0+ '10'; #=> 10 print 0+ '123b'; #=> 123 print '1.2e3' +0; #=> 1200 print [] +0; #=> 4303367864 ã¡ãªã¿ã«ã€æ–‡å—åˆ—ã¨ã—ã¦è©•ä¾¡ã™ã‚‹ã¨ãã«ã¯ã“ã®ã‚ˆã†ã«ã™ã‚‹ã¨ã‹ã£ã“ã„ã„ã¨è¨€ã‚ã‚Œã¦ã„ã¾ã™ã€‚ $obj.q(); ä¸€è¦‹ãƒ¡ã‚½ãƒƒãƒ‰å‘¼ã³å‡ºã—ã®ã‚ˆã†ã«è¦‹ãˆã¾ã™ãŒ $obj . ''; ã¨ç‰ä¾¡ã§ã™ã€‚ ãƒ™ãƒ“ãƒ¼ã‚«ãƒ¼æ¼”ç®—å: @{[ ]} æ–‡å—
katryo 2015/02/12
Perlã‚„ã ã‚ã‚ã‚ã‚

perl

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
ãƒªãƒ³ã‚¯
Perlã§ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã®è§£æžã« Getopt::Long ã‚’ä½¿ã†æ™‚ã€çµ¶å¯¾ã«å¿˜ã‚Œã¦ã¯ã„ã‘ãªã„å¼•æ•° - ãŸã”ã‚‚ã‚Šã™ãƒ¡ãƒ¢
Perlã§ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚’parseã—ã‚ˆã†ã¨æ€ã†ã¨çµ„è¾¼ã¿ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨ã—ã¦ã¯ Getopt::Std ã¨ Getopt::Long ãŒã‚ã‚‹ã€‚ãŒã€long style option *1 ã¤ã¾ã‚Š --option-name ã®ã‚ˆã†ãªã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚’è§£é‡ˆã—ã¦ãã‚Œã‚‹ã®ã¯ Getopt::Long ã ã‘ã ã€‚ãªã®ã§æ™®é€šã¯ã“ã¡ã‚‰ã‚’ä½¿ãŠã†ã€‚ ãŸã ã— çµ¶å¯¾ã«ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã€ã¤ã¾ã‚Šä»¥ä¸‹ã®ã‚ˆã†ã«ã—ã¦ä½¿ã£ã¦ã¯ã„ã‘ãªã„ã€‚ use Getopt::Long; my (@primary, @secondary, $silent); GetOptions( "server-primary|p=s" => \@primary, "server-secondary|s=s" => \@secondary, "silent|S" => \$silent ); ã“ã‚Œãƒ€ãƒ¡ï¼ çµ¶å¯¾ãƒ€ãƒ¡ï¼ æ»ã¬ï¼ æœ€åˆã«çµè«–ã‚’æ›¸ã å¿…ãšä»¥ä¸‹ã®ã‚ˆã†ã«
katryo 2015/01/29
Perlæƒ…å ±ã â€¦â€¦

perl

Server

Perl
ãƒªãƒ³ã‚¯
Server::Starterã‹ã‚‰å¦ã¶hot deployã®ä»•çµ„ã¿ - $shibayu36->blog;
ä»¥å‰http://tech.naver.jp/blog/?p=1369ã®è¨˜äº‹ã‚’èªã‚“ã ã®ã ã‘ã‚Œã©ã€ãã‚Œã¾ã§ã«processã®çŸ¥è˜ãŒç„¡ã‹ã£ãŸã‚Šã—ã¦ã€ã¾ã£ãŸãç†è§£ã§ãã¾ã›ã‚“ã§ã—ãŸã€‚ãã“ã§Working with UNIX Processesã‚„Server::Starterã®ä¸èº«ã‚’å‘¼ã‚“ã§ã‚ˆã†ã‚„ãhot deployã®ä»•çµ„ã¿ã‚’ç†è§£ã§ããŸ(æ°—ã«ãªã£ã¦ã„ã‚‹)ã®ã§ã€Server::Starterã®å®Ÿè£…ã‚’è¿½ã„ãªãŒã‚‰ã€ãã‚Œã‚’ã¾ã¨ã‚ã¦ã¿ã¾ã™ã€‚ hot deployã¨ã¯ hot deployã¨ã¯ã€Œå†èµ·å‹•ã®æ™‚ã«ãƒªã‚¯ã‚¨ã‚¹ãƒˆã®å‡¦ç†ã‚’ç¶šã‘ãªãŒã‚‰ã€å¤‰æ›´ã®å†…å®¹ã‚’åæ˜ ã™ã‚‹ãŸã‚ã®æ‰‹æ®µã€ã§ã™ã€‚ é€šå¸¸serverã‚’restartã•ã›ã‚‹ã¨ãã¯ã€stop -> startã®æµã‚Œã«ãªã‚‹ã¨æ€ã„ã¾ã™ãŒã€ã“ã®å ´åˆstopã—ã¦ã‹ã‚‰ã€startå‡ºæ¥ã‚‹ã¾ã§ã®æœŸé–“ã«ãƒªã‚¯ã‚¨ã‚¹ãƒˆã‚’å‡¦ç†ã§ããªã„æœŸé–“ãŒç™ºç”Ÿã—ã¾ã™ã€‚ãã®æœŸé–“ãªã—ã«deployã™ã‚‹ä»•çµ„ã¿ãŒhot
katryo 2014/11/27
ã‚ˆã„

Perl

Server

server-starter
ãƒªãƒ³ã‚¯
Devel::NYTProf ã§ Starlet/Starman (Plack) ã§ã†ã”ãã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã®ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒªãƒ³ã‚°ã‚’ãŠã“ãªã†æ–¹æ³•ã¾ã¨ã‚ - tokuhirom's blog
Devel::NYTProf ã¯ Perl5 ã®ä¸–ç•Œã§ã‚‚ã£ã¨ã‚‚äººæ°—ãŒã‚ã‚‹ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒ©ã§ã‚ã‚‹ã€‚è¡¨ç¤ºãŒç¾Žéº—ã§ã‚ã‚‹ã—ã€ã‚¹ãƒ†ãƒƒãƒ—ã”ã¨ã®å‡¦ç†é€Ÿåº¦ãŒç°¡å˜ã«ã‚ã‹ã‚‹ã®ã§ã¨ã¦ã‚‚ä¾¿åˆ©ã ã€‚ ãã‚“ãª Devel::NYTProf ã§ã‚ã‚‹ãŒã€Starlet/Starman ã®ã‚ˆã†ãªãƒ—ãƒªãƒ•ã‚©ãƒ¼ã‚¯å¼ã®ã‚µãƒ¼ãƒãƒ¼ã§ã†ã”ãã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã¨ãã¿ã‚ã‚ã›ã‚‹å ´åˆã®æ–¹æ³•è«–ã¨ã—ã¦ã€ã‚ã‹ã‚Šã‚„ã™ã„è³‡æ–™ãŒã¿ã‚ãŸã‚‰ãªã‹ã£ãŸã®ã§ã“ã“ã«è¨˜ã™ã‚‚ã®ã§ã‚ã‚‹ã€‚ ç’°å¢ƒå¤‰æ•° NYTPROF ã‚’è¨å®šã™ã‚‹ Devel::NYTProf ã¯ç’°å¢ƒå¤‰æ•°ã§æŒ™å‹•ã‚’å¤‰ãˆã‚‰ã‚Œã‚‹ã€‚ plack ã¨ãã¿ã‚ã‚ã›ã‚‹å ´åˆã«ã¯ã€ä»¥ä¸‹ã®ã‚ˆã†ã«ã™ã‚‹ã¨ã‚ˆã„ã€‚ NYTPROF=sigexit=int:savesrc=0:start=no sigexit=int é€šå¸¸ã€Devel::NYTProf ã¯ END { } ãƒ–ãƒãƒƒã‚¯ã§ãƒ‡ãƒ¼ã‚¿ã®ãƒ•ã‚¡ã‚¤ãƒŠãƒ©ã‚¤ã‚ºå‡¦ç†ã‚’ãŠã“ãªã†ã®ã ãŒã€SIGNAL ã«ã‚ˆã£
katryo 2014/09/16
perl

plack

Starman

profiler

nytprof
ãƒªãƒ³ã‚¯
Perl åˆå¿ƒè€…ãŒã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚’æ›¸ãæ™‚ã«æ°—ã‚’ã¤ã‘ã‚‹ã¹ãã“ã¨ - tokuhirom's blog
$c->req->param('id') ã¿ãŸã„ãªãƒ¡ã‚½ãƒƒãƒ‰ã¯ä½¿ã£ã¦ã¯ã„ã‘ãªã„ã€‚ã“ã‚Œã¯æ´å²çš„çµŒç·¯ã‹ã‚‰æ®‹ã£ã¦ã„ã‚‹ã‚‚ã®ãªã®ã§ã€åŸºæœ¬çš„ã«ä½¿ã‚ãªã„æ–¹ãŒã„ã„ã€‚ $c->req->parameters->{id} ã‚’ã‹ã‚ã‚Šã«ä½¿ã£ã¦ãã ã•ã„ã€‚ Perl ã®ä¸–ç•Œã«ã¯ List ã‚³ãƒ³ãƒ†ã‚ã‚¹ãƒˆã¨ã„ã†ã‚‚ã®ãŒã‚ã£ã¦ã€ã“ã‚ŒãŒã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚’é–‹ç™ºã™ã‚‹ã¨ãã«ã¯é¬¼é–€ã¨ãªã‚Šã¾ã™ã€‚ +{ id => $c->req->param('id') } ã®ã‚ˆã†ãªã‚³ãƒ¼ãƒ‰ã¯ã€param ãƒ¡ã‚½ãƒƒãƒ‰ã¯ãƒªã‚¹ãƒˆã‚³ãƒ³ãƒ†ã‚ã‚¹ãƒˆã§ã¯ã™ã¹ã¦ã® id ã‚’è¿”ã™ã®ã§ã€ ?id=3&id=hasegawa&id=yosuke ã¨ã„ã†ã‚ˆã†ãªã‚¯ã‚¨ãƒªãŒæ¥ã¦ã„ã‚‹å ´åˆã€ +{ id => 3, hasegawa => 'yosuke' } ã®ã‚ˆã†ãªãƒ‡ãƒ¼ã‚¿æ§‹é€ ãŒä½œæˆã•ã‚Œã‚‹ã€‚ã“ã‚Œã¯æ˜Žã‚‰ã‹ã«æ„å›³ã—ã¦ã„ãªã„æŒ™å‹•ã§ã‚ã‚‹ã€‚ ä»¥ä¸‹ã®æ§˜ã«ã‹ãã®ãŒãŠã™ã™ã‚ã§ã™ã€‚ my $id =
katryo 2014/09/12
perl

plack

psgi
ãƒªãƒ³ã‚¯
Test::Class ã¨ subtest ã‚’çµ„ã¿åˆã‚ã›ãŸå ´åˆã«ã€ã¨ã‚ã‚‹ãƒ†ã‚¹ãƒˆãƒ¡ã‚½ãƒƒãƒ‰ã® subtest å†…ã§ä¾‹å¤–ãŒç™ºç”Ÿã—ã¦ã—ã¾ã†ã¨ã€ãã‚Œä»¥é™ã®åˆ¥ã®ãƒ†ã‚¹ãƒˆãƒ¡ã‚½ãƒƒãƒ‰ã® subtest ã‚‚å…¨éƒ¨å¤±æ•—ã—ã¦ã—ã¾ã†ã£ã½ã„? - ä¸€è§’ç£ã¯å¤œã«å•¼ã
subtest ã‚’ Test::Class ã¨çµ„ã¿åˆã‚ã›ã‚‹ã¨ã€ã¨ã‚ã‚‹ãƒ†ã‚¹ãƒˆãƒ¡ã‚½ãƒƒãƒ‰ä¸ã® subtest å†…ã§ä¾‹å¤–ãŒç™ºç”Ÿã—ãŸå ´åˆã«ä»–ã®ãƒ†ã‚¹ãƒˆãƒ¡ã‚½ãƒƒãƒ‰å†…ã® subtest ãŒå•ç”ç„¡ç”¨ã§å¤±æ•—ã«ãªã‚‹ã£ã½ãã¦æœ€æ‚ªã ã€‚â€” nobuoka (@nobuoka) 2013, 7æœˆ 13 @nobuoka æ°—ã«ãªã‚‹â€” æŸ´å´Žå„ªå£ (@shiba_yu36) 2013, 7æœˆ 13 Perl ã®ãƒ†ã‚¹ãƒˆã§ã€Test::Class ã¨ subtest ã‚’çµ„ã¿åˆã‚ã›ãŸå ´åˆã«ã€ã¨ã‚ã‚‹ãƒ†ã‚¹ãƒˆãƒ¡ã‚½ãƒƒãƒ‰ã® subtest å†…ã§ä¾‹å¤–ãŒç™ºç”Ÿã—ã¦ã—ã¾ã†ã¨ã€ãã‚Œä»¥é™ã®åˆ¥ã®ãƒ†ã‚¹ãƒˆãƒ¡ã‚½ãƒƒãƒ‰ã® subtest ã‚‚å…¨éƒ¨å¤±æ•—ã—ã¦ã—ã¾ã†ã£ã½ã„? package MyTest; use strict; use warnings; use parent qw( Test::Class ); use Test::More; sub t1 : Test
katryo 2014/09/09
ã¸ãƒ¼

perl
ãƒªãƒ³ã‚¯
Plack::Middlewareã®æ›¸ãæ–¹ - ã‚†ã†ã†ããƒ–ãƒã‚°
å‰å›žï¼ŒPlack::Middlewareæ›¸ã„ãŸã®ã§ï¼ŒPlack::Middlewareã®æ›¸ãæ–¹ã‚’ãƒ¡ãƒ¢ã—ã¦ãŠãï¼Ž Plack::Middlewareãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«æœ€ä½Žé™å¿…è¦ãªã®ã¯åŸºæœ¬çš„ã«2ã¤ã—ã‹ãªã„ï¼Ž Plack::Middlewareã‚’ç¶™æ‰¿ã™ã‚‹ã“ã¨callãƒ¡ã‚½ãƒƒãƒ‰ã‚’å®Ÿè£…ã—ã¦ãŠãã ã‘ï¼Ž callãƒ¡ã‚½ãƒƒãƒ‰ã®è¿”ã‚Šå€¤ã¯PSGIå½¢å¼ã®ãƒ¬ã‚¹ãƒãƒ³ã‚¹ã§ã‚ã‚‹ï¼Ž ãƒªã‚¯ã‚¨ã‚¹ãƒˆãŒã¨ã‚“ã§ãã‚‹ã¨ï¼Œbuilderãƒ–ãƒãƒƒã‚¯å†…ã§enableã—ãŸé †ç•ªã«ãã‚Œãžã‚Œã®callãŒç™ºè¡Œã•ã‚Œã‚‹ï¼Ž package Plack::Middleware::MyMy; use strict; use warnings; use parent 'Plack::Middleware'; sub call { my ($self, $env) = @_; return $self->app->($env); # æ¬¡ã«enableã—ãŸMiddleware
katryo 2014/09/04
ãƒ¦ã‚¦ã‚¦ã‚ãƒƒ

plack

Perl

plack-middleware

plack_middleware
ãƒªãƒ³ã‚¯
ã½ã‚ããƒã®blog : Plack::Middleware::Debug Panel ä½œæˆã«å…¥é–€ã—ã¦ã¿ã¾ã—ãŸ
2010å¹´01æœˆ14æ—¥10:45 ã‚«ãƒ†ã‚´ãƒªperlPlack Plack::Middleware::Debug Panel ä½œæˆã«å…¥é–€ã—ã¦ã¿ã¾ã—ãŸ ãƒãƒ ã‚¤æ—¥ã€…ãŒç¶šã„ã¦ã„ã¾ã™ãƒãƒã‚ã‚£ã§ã™ã€‚ã„ã‹ãŒãŠéŽã”ã—ã§ã—ã‚‡ã†ã‹ã€‚æ˜¨æ—¥ç¾å®Ÿé€ƒé¿ãŒã¦ã‚‰ã€Plack::Middleware::Debugã€€ã®ãƒ‘ãƒãƒ«ä½œæˆã«å…¥é–€ã—ã¦ã¿ã¾ã—ãŸã®ã§ Open & Share ã—ãŸã„ã¨æ€ã„ã¾ã™ã€‚ TemplateToolkitå†…ã§ã®å¤‰æ•°ã‚’è¡¨ç¤ºã™ã‚‹ TTãƒ‘ãƒãƒ« å¼Šç¤¾ã§ã¯ã€ãƒ—ãƒã‚°ãƒ©ãƒžãƒ¼ã¨HTMLã®ãƒžãƒ¼ã‚¯ã‚¢ãƒƒãƒ—ã¯åˆ†æ¥ã•ã‚Œã¦ã„ã¾ã™ã€‚ãã“ã§ã€ãƒžãƒ¼ã‚¯ã‚¢ãƒƒãƒ—ã®æ–¹ãŒã€ã©ã†ã„ã†å¤‰æ•°ãŒåˆ©ç”¨ã§ãã‚‹ã‹ä¸€ç›®ã§åˆ†ã‹ã‚Œã°ä¾¿åˆ©ã«é•ã„ãªã„ã¨ã„ã†å¦„æƒ³ãŒæµ®ã‹ã³ã¾ã—ãŸã®ã§å®Ÿè£…ã—ã¦ã¿ã¾ã—ãŸã€‚ã€€ä¸‹ã¿ãŸã„ãªæ„Ÿã˜ã§ã™ã€‚ WikiR::WAF::Middleware::Debug::TT TTãƒ‘ãƒãƒ«ã§ã™ã€‚polocky.stash_keys ã¨ã„ã†ç’°å¢ƒå¤‰æ•°ã‹ã‚‰ã‚ãƒ¼åã‚’å–å¾—ã—
katryo 2014/09/04
ã»ã»ã†

debug

plack

perl
ãƒªãƒ³ã‚¯
Perl::Lintã®violationsã‚’è¦‹ã‚„ã™ãæ•´å½¢ã—ã¦è¡¨ç¤ºã™ã‚‹ãƒ„ãƒ¼ãƒ«ç‰ã‚’ã‹ã„ã¦ã¿ãŸ | All Your Bugs Are Belong To Ass
ã“ã“æœ€è¿‘ã€moznionã®ã¤ãã£ã¦ã„ã‚‹Perl::Lintã‚’è§¦ã£ã¦ã„ã‚‹ã€‚ Perl::Lintã¨ã„ã†ç‰©ã«ã¤ã„ã¦ç«¯çš„ã«è¨€ã£ã¦ã—ã¾ã†ã¨ã€Perlã§ã‹ã‹ã‚ŒãŸã‚³ãƒ¼ãƒ‰ã®ä¸ã‹ã‚‰ãƒ€ãƒ¡ãªéƒ¨åˆ†(=violationsã¨ã„ã†)ã‚’æŒ‡æ‘˜ã—ã¦ãã‚Œã‚‹æ©Ÿèƒ½ã‚’æä¾›ã™ã‚‹ã€ŒãŠç¯€ä»‹ç„¼ããƒ©ã‚¤ãƒ–ãƒ©ãƒªã€ãªã‚“ã ã‘ã©ã€ã“ã®ãƒ„ãƒ¼ãƒ«ã®è§£æžçµæžœã‚’ã„ã„æ„Ÿã˜ã«è¡¨ç¤ºã—ã¦ãã‚Œã‚‹ã€Œãƒ¬ãƒãƒ¼ã‚¿ãƒ¼ã€ã¨å‘¼ã¹ã‚‹ã‚ˆã†ãªã‚‚ã®ãŒå˜åœ¨ã—ãªã‹ã£ãŸã®ã§ã€ã¤ãã£ã¦ã¿ãŸã€‚-> Perl::Lint::Reporter Perl::Lint::Reporter ä½¿ã„æ–¹ç‰ ä½¿ã„æ–¹ã¯è‡³ã£ã¦ç°¡å˜ã€‚Perl::Lintã§è§£æžã—ãŸçµæžœã‚’report_violations()ã¨ã„ã†é–¢æ•°ã«é£Ÿã‚ã›ã‚‹ã ã‘ã€‚ use Perl::Lint qw/lint/; use Perl::Lint::Reporter; my $violations = lint(['/path/to/yourcode.pl'
katryo 2014/09/02
ä¾¿åˆ©ãã†

perl
ãƒªãƒ³ã‚¯
Test::Perl::Criticã§ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°è¦ç´„ã‚’ãƒ†ã‚¹ãƒˆã™ã‚‹ - $shibayu36->blog;
ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°è¦ç´„ã¯ã‚ã‚‹ã‘ã‚Œã©ã€ãƒ¬ãƒ“ãƒ¥ãƒ¼ã®æ™‚ã«ãƒã‚§ãƒƒã‚¯ã™ã‚‹ã®ã¯å¤§å¤‰ã¨ã„ã†ã“ã¨ã§ã€ã¨ã‚Šã‚ãˆãšTest::Perl::Criticã‚’ä½¿ã£ã¦è»½ããƒ†ã‚¹ãƒˆã‚’æ›¸ã„ã¦ã¿ã¾ã—ãŸã€‚ åƒ•ã¯ã‚ã‚‹ç¨‹åº¦ã®ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã®ãƒ–ãƒ¬ã¯è¨±å®¹ã—ã¦ã€ãƒãƒ¼ãƒ å…¨å“¡ã§åˆæ„ãŒã¨ã‚Œã‚‹ã‚‚ã®ã ã‘ã‚’è‡ªå‹•ã§ãƒã‚§ãƒƒã‚¯ã™ã‚‹ã‚ˆã†ã«ã—ãŸã»ã†ãŒè‰¯ã„ã¨æ€ã£ã¦ã„ã‚‹ã®ã§ã€rcãƒ•ã‚¡ã‚¤ãƒ«ã‚’ä½¿ã£ã¦ã€å¿…è¦ãªç‰©ã ã‘è¿½åŠ ã—ã¦ã„ãå½¢å¼ã‚’è©¦ã—ã¦ã¿ã¾ã—ãŸã€‚ ãƒ†ã‚¹ãƒˆã®è¿½åŠ ã¾ãšãƒ†ã‚¹ãƒˆã¯ä»¥ä¸‹ã®ã‚ˆã†ã«t/perlcriticrcã‚’èªã¿è¾¼ã‚€ã¨ã„ã†è¨å®šã‚’ã—ã¦ã‚ã’ãŸä¸Šã§ã€libã¨tå…¨éƒ¨ã‚’ãƒ†ã‚¹ãƒˆã™ã‚‹ã‚ˆã†ã«æ›¸ãã¾ã™ã€‚ require Test::Perl::Critic; my $rcfile = File::Spec->catfile( 't', 'perlcriticrc' ); Test::Perl::Critic->import( -profile => $rcfile ); all_cri
katryo 2014/09/02
[Perl::Critic]ã‚·ãƒãƒƒ

ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°è¦ç´„

perl
ãƒªãƒ³ã‚¯
ãƒ‘ãƒ¼ãƒ«ã€ã‚¢ãƒŠãƒ«ã‚’ä½¿ãˆï¼ã¾ãŸã¯ç§ã¯å¦‚ä½•ã«ã—ã¦ Perl ã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’æ›¸ã‘ã‚‹ã‚ˆã†ã«ãªã£ãŸã‹ - è©©ã¨å‰µä½œãƒ»æ€ç´¢ã®ã²ã‚ã°
ç°¡å˜ã«è¨€ã†ã¨ã“ã†ã„ã†ã“ã¨ã§ã™ã€‚ä»Šæ—¥ã¯ã“ã‚Œã ã‘è¦šãˆã¦å¸°ã£ã¦ãã ã•ã„ã€‚ perl -anal -e "â€¦" åŒæ§˜ã®ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã¯ Ruby ã§ã‚‚ä½¿ãˆã¾ã™ã€‚ è§£èª¬ -a ã„ããªã‚Šè¦‹ã‹ã‘ãªã„ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã§ã™ãŒã€å…¥åŠ›ã‚’ç©ºç™½æ–‡å—ã§åŒºåˆ‡ã‚Šã€@F ã¨ã„ã†é…åˆ—ã«å…¥ã‚Œã¦ãã‚Œã¾ã™ã€‚ãã‚Œä»¥å¤–ã®å½±éŸ¿ã¯ãªã„ã®ã§ä½¿ã‚ãªã„ã¨ãã§ã‚‚æŒ‡å®šã—ã¦å•é¡Œãªã—ã€‚2 å›žæŒ‡å®šã—ã¦ã‚‹ã®ã‚‚æ„å‘³ãªã„ã§ã™ã€‚èªžå‘‚åˆã‚ã›ã§ã™ã€‚Ruby ã®å ´åˆã¯ $F ã§ã™ãã€‚ -n -e ã§æŒ‡å®šã•ã‚ŒãŸã‚³ãƒ¼ãƒ‰ã‚’ LINE: while (<>) { â€¦ } ã§å›²ã¿ã¾ã™ã€‚æ¨™æº–å…¥åŠ›ã‚„ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ä¸€è¡Œãšã¤å‡¦ç†ã™ã‚‹ã¨ãã«ä¾¿åˆ©ã€‚sed ã‚„ grep ãŒç°¡å˜ã«æ›¸ã‘ã¾ã™ãã€‚ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã§ã¯å¤šæ§˜ã™ã‚‹ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã§ã—ã‚‡ã†ã€‚ä»£ã‚ã‚Šã« -p ã‚’æŒ‡å®šã™ã‚‹ã“ã¨ã§æœ€å¾Œã« print; ã™ã‚‹ã“ã¨ã‚‚ã§ãã¾ã™ã€‚ -l -n ã‚„ -p ãŒæŒ‡å®šã•ã‚Œã¦ã„ã‚‹ã¨ãã«å„å…¥åŠ›ã‚’ chomp ã—ã¾ã™ã€‚ã¾ãŸã€å„å‡ºåŠ›ã«æ”¹è¡Œã‚’è¿½åŠ
katryo 2014/08/30
ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼

perl
ãƒªãƒ³ã‚¯
Magnolia K, Author at Garten Blog - Your Tech Companion
MangaBuddy Alternatives 34 Best Sites Free Read Manga Online Immerse yourself in the captivating world of manga with MangaBuddy, the premier online platform for manga series. Whether youâ€™re aâ€¦
katryo 2014/08/26
ãªã‚“ã‚„ã¦ï¼ˆä»Šã¾ã§ã§ããªã‹ã£ãŸã®ã‹ï¼‰

perl

test
ãƒªãƒ³ã‚¯
ã¯ã¦ãªã‹ã‚‰5äººãŒYAPC::Asia 2014ã«ç™»å£‡ã—ã¾ã™&ä»Šå¹´ã‚‚ã‚¹ãƒãƒ³ã‚µãƒ¼ã¨ã—ã¦å‚åŠ ã—ã¾ã™ - Hatena Developer Blog
ã“ã‚“ã«ã¡ã¯ã€id:motemen ã§ã™ã€‚ã“ã®ãŸã³é–‹å‚¬ã•ã‚Œã‚‹YAPC::Asia 2014ã«ã€ã¯ã¦ãªã®ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢5äººã®ãƒˆãƒ¼ã‚¯ãŒæŽ¡ç”¨ã•ã‚Œã¾ã—ãŸã€‚ã“ã“ã§ãã®å†…å®¹ã‚’ç°¡å˜ã«ã”ç´¹ä»‹ã—ã¾ã™ã€‚ ç”»åƒã¯åŽ»å¹´ã®æ§˜åã§ã™ id:yanbe æœ€è¿‘ã®ã‚¦ã‚§ãƒ–ã‚µãƒ¼ãƒ“ã‚¹ã®æ¤œç´¢æ©Ÿèƒ½ã‚„ãã®å…ˆã®è©±ï¼ˆ8/29 11:40ã€œ è—¤åŽŸæ´‹è¨˜å¿µãƒ›ãƒ¼ãƒ«ï¼‰ æœ¬ãƒˆãƒ¼ã‚¯ã§ã¯ã€Elasticsearchã«åŠ ãˆã¦ã€ã¯ã¦ãªã®ã‚µãƒ¼ãƒ“ã‚¹ã§éŽåŽ»ã«åˆ©ç”¨ã—ã¦ããŸæ¤œç´¢ãƒŸãƒ‰ãƒ«ã‚¦ã‚§ã‚¢ã‚‚ãµã¾ãˆã¤ã¤ã€å¤§é‡ã®ãƒ‡ãƒ¼ã‚¿ã‚’ã‚‚ã¤ã‚¦ã‚§ãƒ–ã‚µãƒ¼ãƒ“ã‚¹ã«ãŠã„ã¦ã€æ¤œç´¢ãƒ»é›†ç´„ã‚’æ‹…å½“ã™ã‚‹å°‚ç”¨ã®ãƒŸãƒ‰ãƒ«ã‚¦ã‚§ã‚¢ã‚’æ—¢å˜ã®ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã¨çµ„ã¿åˆã‚ã›ã¦åˆ©ç”¨ã™ã‚‹ã“ã¨ã§ã€ãƒ¦ãƒ¼ã‚¶ãƒ¼ã‹ã‚‰é ã‹ã£ãŸãƒ‡ãƒ¼ã‚¿ã®è¨˜éŒ²ãƒ»ç®¡ç†ãƒ»æ¤œç´¢ãƒ»é›†ç´„ã¨ã„ã£ãŸæ©Ÿèƒ½æ€§ã‚’ã©ã®ã‚ˆã†ã«é€²åŒ–ã•ã›ã‚‹ã“ã¨ãŒå‡ºæ¥ã‚‹ã‹ã‚’ã”ç´¹ä»‹ã—ã¾ã™ã€‚ã¾ãŸã€ã“ã®ã‚ˆã†ãªæ¤œç´¢ãƒŸãƒ‰ãƒ«ã‚¦ã‚§ã‚¢ã®Perlã‹ã‚‰ã®åˆ©ç”¨ã‚’æ”¯ãˆã‚‹CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚„ã€ãã®è¨è¨ˆã«ã¤ã„ã¦ã‚‚è§¦ã‚Œã¾ã™ã€‚ æœ€è¿‘ã®ã‚¦ã‚§ãƒ–ã‚µãƒ¼ãƒ“ã‚¹
katryo 2014/07/24
perl

hatena

yapcasia

yapcasia2014
ãƒªãƒ³ã‚¯
Perlãƒ™ã‚¹ãƒˆãƒ—ãƒ©ã‚¯ãƒ†ã‚£ã‚¹ã®ãƒ™ã‚¹ãƒˆãƒ—ãƒ©ã‚¯ãƒ†ã‚£ã‚¹ã˜ã‚ƒãªã„ã‚„ã¤ã‚’ã¾ã¨ã‚ã¦ã¿ãŸ | ãŠãã‚‰ãã¯ãã‚Œã•ãˆã‚‚å¹³å‡¡ãªæ—¥ã€…
Perlãƒ™ã‚¹ãƒˆãƒ—ãƒ©ã‚¯ãƒ†ã‚£ã‚¹ Perlãƒ™ã‚¹ãƒˆãƒ—ãƒ©ã‚¯ãƒ†ã‚£ã‚¹(ç•¥ã—ã¦PBP)ã¨ã„ã†è‰¯ã„æœ¬ãŒã‚ã‚Šã¾ã™ã€‚åƒ•è‡ªèº«ã‚‚Perlã‚’å¦ã¶éŽç¨‹ã§éžå¸¸ã«ãŠä¸–è©±ã«ãªã£ãŸæœ¬ãªã®ã§ã™ãŒã€ä»¥ä¸‹ã®æ§˜ãªã“ã¨ãŒåº¦ã€…æŒ‡æ‘˜ã•ã‚Œã¦ã„ã¾ã™ã€‚ bestã£ã¦æ›¸ã„ã¦ã‚ã‚‹ã‘ã©ã€Œè‘—è€…ã®ã€bestãƒ—ãƒ©ã‚¯ãƒ†ã‚£ã‚¹ãªã®ã§åã‚ŠãŒã‚ã‚‹ã“ã¨ã‚‚ ã€Œæ±ºã—ã¦ã€ã¨ã‹ã€Œå¿…ãšã€ã¨ã‹ãŒå¤šã„ã‘ã©ã‚ã‚“ã¾çœŸã«å—ã‘ã¦ã¯ã„ã‘ãªã„ ã“ã®æœ¬ã‚’æ›¸ããŸã‚ã«æ›¸ã‹ã‚ŒãŸã§ã‚ã‚ã†CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨ã‹ãŒã‚ã£ã¦ã€ã—ã‹ã‚‚å…¬é–‹ã•ã‚Œã¦ãªã„ã‚‚ã®ã¾ã§ã‚ã‚‹ è‡´ã—æ–¹ãªã„ã‘ã©ç¾åœ¨ã®çŠ¶æ³ã«ãƒžãƒƒãƒã—ãªã„å¤ã„æƒ…å ±ã‚‚ã‚ã‚‹ ãªã®ã§ã€PBPã®ä½•ãŒãƒ™ã‚¹ãƒˆã˜ã‚ƒãªã„ã®ã‹ã«ã¤ã„ã¦ã¾ã¨ã‚ã¦ã¿ã‚‹ã“ã¨ã«ã—ãŸã€‚å‰ã‹ã‚‰ã‚„ã‚ŠãŸã‹ã£ãŸã‚“ã ã‘ã©ã€æ€ã„ç«‹ã£ã¦ã‚„ã£ãŸã€‚ ã¾ã¨ã‚ã¦ã¿ãŸã‚‰ã€æ€ã£ã¦ã„ãŸã»ã©ã«ã¯é …ç›®ãŒä¸ŠãŒã£ã¦ã“ãªã‹ã£ãŸã®ã§ã€ã‚„ã£ã±PBPã¯è‰¯ã„æœ¬ã ãªã¨æ”¹ã‚ã¦æ€ã„ã¾ã—ãŸã€‚ãªã®ã§ã€ã“ã®ã‚¨ãƒ³ãƒˆãƒªãƒ¼ãŒã“ã‚Œã‹ã‚‰PBPã‚’èªã‚€äººã®åŠ©ã‘ã«ãªã‚Œã°è‰¯ã„ãªã¨æ€ã„ã¾ã™ã€‚
katryo 2014/07/24
â€œ@moznion ã«æœŸå¾…â€

perl

pbp
ãƒªãƒ³ã‚¯
Harrietã‚’ä½¿ã£ã¦proveå˜ä½ã§mysqldã‚’ä½œã£ã¦ã¿ãŸè©± - $shibayu36->blog;
tokuhirom blog ã‚’è¦‹ã¦ã€ã“ã‚Œä¾¿åˆ©ã ãªãƒ¼ã¨æ€ã£ãŸã®ã§ã€è©¦ã—ã«ã“ã‚Œã‚’ä½¿ã£ã¦proveå˜ä½ã§Test::mysqldã‚’èµ·å‹•ã™ã‚‹ã‚„ã¤ã‚’ä½œã£ã¦ã¿ãŸã€‚ harrietç”¨è¨å®šã‚’ä½œã‚‹ ã¾ãšt/harriet/mysqld.plã¿ãŸã„ãªã®ã‚’ä½œã‚‹ã€‚ã“ã®ä¸ã§mysqldã®èµ·å‹•ã¨schemaæµã—è¾¼ã¿ã¾ã§ã—ã¦ã—ã¾ã†ã€‚è¤‡æ•°ã®dsnã‚’ä¿å˜ã—ã¦ãŠããŸã‘ã‚Œã°ã€jsonã§å…¥ã‚Œã¦ãŠãã¨è‰¯ã•ãã†ã€‚ # t/harriet/mysqld.pl use JSON::XS; use Path::Class; $ENV{TEST_EPIC_DSNS} ||= do { require Test::mysqld; my $mysqld = Test::mysqld->new( my_cnf => { 'skip-networking' => '', # no TCP socket 'default-storage-engin
katryo 2014/07/15
perl

test

prove

Harriet
ãƒªãƒ³ã‚¯
Mobile Application Development for Perl Mongers [ninjinkun x gfx] - YAPC::Asia Tokyo 2014
Mobile Application Development for Perl Mongers [ninjinkun x gfx] æ¦‚è¦ ã“ã®talkã¯ Webã‚µãƒ¼ãƒ“ã‚¹ã®ãƒã‚¤ãƒ†ã‚£ãƒ–ã‚¢ãƒ—ãƒªé–‹ç™ºãƒ—ãƒ©ã‚¯ãƒ†ã‚£ã‚¹ by ninjinkun ã¨åˆä½“ã—ã¾ã—ãŸã€‚ è¿‘å¹´ã€ã‚¹ãƒžãƒ¼ãƒˆãƒ•ã‚©ãƒ³ã‚„ã‚¿ãƒ–ãƒ¬ãƒƒãƒˆãªã©ã®ãƒ¢ãƒã‚¤ãƒ«ç’°å¢ƒã‚’å¯¾è±¡ã¨ã—ãŸãƒ¢ãƒã‚¤ãƒ«ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ãŒé‡è¦ã¨ãªã£ã¦ãã¦ã„ã¾ã™ã€‚ä¸€æ–¹ã§ã€ãƒ¢ãƒã‚¤ãƒ«ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³é–‹ç™ºã®ç‰¹å¾´ã¯ã€æ§˜ã€…ãªç‚¹ã§ã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³é–‹ç™ºã¨ã¯ã‹ãªã‚Šç•°ãªã‚‹ã¨ã„ã†ç‚¹ã«ã‚ã‚Šã¾ã™ã€‚å…¨ãç•°ãªã‚‹ã‚µãƒ¼ãƒ“ã‚¹è¨è¨ˆæ³•ã€ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã€ãƒ„ãƒ¼ãƒ«ãƒã‚§ã‚¤ãƒ³ã€é–‹ç™ºãƒ¢ãƒ‡ãƒ«ã‚’ä½¿ã£ã¦ã‚µãƒ¼ãƒ“ã‚¹ã‚’ä½œã£ã¦ã„ãã“ã¨ã«ãªã‚Šã¾ã™ã€‚ã“ã®ãƒˆãƒ¼ã‚¯ã§ã¯ã€ãƒ¢ãƒã‚¤ãƒ«ã‚¢ãƒ—ãƒªé–‹ç™ºã«æºã‚ã‚‹äºŒäººã®ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ãŒã€ãã‚Œãžã‚Œã®ç«‹å ´ã‚„æ„Ÿå¿ƒäº‹ã«ã¤ã„ã¦ã®ãƒˆãƒ”ãƒƒã‚¯ã‚’ãŠè©±ã—ã¾ã™ã€‚ ã“ã®ãƒˆãƒ¼ã‚¯ã‚’é€šã˜ã¦ã€Œ ãƒ¢ãƒã‚¤ãƒ«ã‚¢ãƒ—ãƒªé–‹ç™ºã‚‚é¢ç™½ã„ ã€ã¨ã„ã†ã“ã¨ã‚’ãŠä¼ãˆã§ãã‚Œã°ã¨æ€ã„ã¾ã™
katryo 2014/07/15
ninjinkunã•ã‚“ã¨gfxã•ã‚“ãŒåˆä½“ã—ã¦ã¦ãšã‚‹ã„

perl

ninjinkun

gfx

yapcasia
ãƒªãƒ³ã‚¯
ãŠãã‚‰ãã¯ãã‚Œã•ãˆã‚‚å¹³å‡¡ãªæ—¥ã€…: DBIx::FixtureLoaderã£ã¦ã®ã‚’æ›¸ãã¾ã—ãŸ
https://metacpan.org/module/DBIx::FixtureLoader ã“ã‚Œã‚‚ã¾ãŸã©ã“ã‚‚åŒã˜ã‚ˆã†ãªã®ä½œã£ã¦ã‚‹ã‚“ã§ã—ã‚‡ã†ã‘ã©ã€ãƒ†ã‚¹ãƒˆã¨ã‹ã§ã•ãã£ã¨fixture èªã¿è¾¼ã‚“ã§Insertã—ã¦æ¬²ã—ã„çš„ãªè¦ä»¶ã§ä½œã‚Šã¾ã—ãŸã€‚ä½¿ã„æ–¹ã¯ä»¥ä¸‹ã®æ§˜ãªæ„Ÿã˜ã€‚ use DBI; use DBIx::FixtureLoader; my $dbh = DBI->connect(...); my $loader = DBIx::FixtureLoader->new(dbh => $dbh); $loader->load_fixture('it em.csv'); $loader->load_fixture('it em-2.yaml', update => 1); # ON DUPLICATE KEY UPDATE ORMéžä¾å˜ã§$dbhã‚’æ¸¡ã™ã ã‘ã§ç°¡å˜ã«ãŠä½¿ã„ã„ãŸã ã‘ã¾ã™ã€‚ CSVã€YAMLã€J
katryo 2014/07/11
perl

DBI
ãƒªãƒ³ã‚¯
Perlãƒ†ã‚¹ãƒˆã®ãƒªãƒ•ã‚¡ã‚¯ã‚¿ãƒªãƒ³ã‚°çš„ãªã‚ã‚Œ - Articles Advent Calendar 2011 Test
ã¯ã˜ã‚ã« ã“ã‚“ã«ã¡ã¯ã“ã‚“ã«ã¡ã¯ï¼æœ€è¿‘ã‚¢ãƒ¬ã§ã‚¢ãƒ¬ãª zentooo ã§ã™ã€‚ ã¡ã‚‡ã£ã¨å‰ã¾ã§è‡ªåˆ†ã§æ›¸ã„ãŸãƒ†ã‚¹ãƒˆç”¨ãƒ‡ãƒ¼ã‚¿ã‚’DBã«ã»ã’ã»ã’ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®è©±ã‚’æ›¸ã“ã†ã‹ã¨æ€ã£ã¦ã„ãŸã®ã§ã™ãŒã€disã§æœ‰åãªã‚ã®æ–¹ã«ä¼šç¤¾ã§ã€Œãã‚Œã¯ã„ã‘ã¦ãªã„ã‚ã€ã¨è¨€ã‚ã‚Œã€ç¢ºã‹ã«è‡ªåˆ†ã§ã‚‚ã“ã‚Œã¯ã„ã‘ã¦ãªã„ã‚ãƒ¼ã€ã¨ã„ã†æ°—åˆ†ã«ãªã£ã¦self-reject!ã—ãŸã®ã§ä»Šæ—¥ã¯äºˆå®šã‚’å¤‰ãˆã¦å…¨ä½“çš„ã«ãµã‚ã£ã¨ã—ãŸã“ã¨ã‚’æ›¸ãã¾ã™ã€‚ â€»æ›¸ã„ã¦ã—ã¾ã£ã¦ã‹ã‚‰æ˜¨æ—¥ã®è¨˜äº‹ã¨å†…å®¹ã‹ã¶ã£ã¦ã‚‹ï¼ã¨æ°—ã¥ãã¾ã—ãŸãŒãã®ã¾ã¾ã§ testãŒãƒ¢ãƒªãƒ¢ãƒªè‚¥å¤§åŒ–ã™ã‚‹ ãƒ†ã‚¹ãƒˆè‡ªä½“ã¯ã¨ã‚Šã‚ãˆãšæ›¸ãã“ã¨ã¯æ›¸ãã‚“ã ã‘ã©ã€ä½•ã‚‚è€ƒãˆãšã«ãƒ†ã‚¹ãƒˆã‚’æ›¸ã„ã¦ã„ã‚‹ã¨ã€ã“ã‚“ãªæ„Ÿã˜ã«ãªã£ã¡ã‚ƒã£ãŸãƒ¼ã€ã£ã¦ã“ã¨ãŒã‚ˆãã‚ã‚Šã¾ã™ãã€‚åƒ•ã‚‚ã‚ˆãã‚ã‚Šã¾ã™ã€‚ subtest with_case1 => sub { my $data_for_test = +{ }; # ä¸Šã®ãƒ‡ãƒ¼ã‚¿ã‹ã‚‰ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆä½œã£ãŸã‚ŠDBã«ins
katryo 2014/07/08
perl

ãƒ†ã‚¹ãƒˆ
ãƒªãƒ³ã‚¯
1 2 æ¬¡ã®ãƒšãƒ¼ã‚¸