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

hisaichi5518 id:hisaichi5518

perlã«é–¢ã™ã‚‹hisaichi5518ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (1,315)

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

GlitchIMEã® Perlç‰ˆ - Shohei Yoshida's Diary
å‹‰å¼·ã®ãŸã‚ã«æ›¸ã„ã¦ã¿ãŸã€‚APIã¯åŒã˜ã«ã—ã¦ã¾ã™ã€‚ å®Ÿè£…ã‚‚ã»ã¨ã‚“ã©åŒã˜ã§ã™ã€‚ å…ƒãƒã‚¿ Googleã®APIã§ä»®åæ¼¢å—å¤‰æ›ã™ã‚‹Gem - ãƒŸãƒ‹ãƒžãƒªã‚¹ãƒˆhitode909ã®æ—¥è¨˜ ãƒ‡ãƒ™ãƒãƒƒãƒ‘ãƒ¼ã‚¬ã‚¤ãƒ‰ Google æ—¥æœ¬èªžå…¥åŠ› - CGI API ãƒ‡ãƒ™ãƒãƒƒãƒ‘ãƒ¼ã‚¬ã‚¤ãƒ‰ ãƒªãƒã‚¸ãƒˆãƒª syohex/p5-App-GlitchIME Â· GitHub ã‚µãƒ³ãƒ—ãƒ« p5-App-GlitchIME/sample.pl at master Â· syohex/p5-App-GlitchIME Â· GitHub #!/usr/bin/env perl use strict; use warnings; use lib "../lib"; use App::GlitchIME; binmode STDOUT, ":utf8"; my $text = shift or die "Usage: $0 japanse_sen
hisaichi5518 2011/06/01
perl
ãƒªãƒ³ã‚¯
ã€Perlã€‘Parallel::ForkManagerãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ä¸¦åˆ—å‡¦ç†ãŒä¾¿åˆ©éŽãŽã¦ç”Ÿãã¦ã„ã‚‹ã®ãŒè¾›ã„ - oranie's blog
ã¨ã‚ã‚‹DBã‚’åˆ©ç”¨ã—ãŸãƒãƒƒãƒå‡¦ç†ã‚’ã‚„ã‚‰ã›ã‚ˆã†ã¨ã—ãŸæ™‚ã« #ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®ä¸€éƒ¨åˆ† my @list1 = (é©å½“ãªãƒªã‚¹ãƒˆãã®1); my @list2 = (é©å½“ãªãƒªã‚¹ãƒˆãã®2); foreach my $value1 (@list1){ foreach my $value2(@list2){ #DBã«æŽ¥ç¶šã—ã¦ã€ã‚ã‚‹ãƒ†ãƒ¼ãƒ–ãƒ«ã®ãƒ¬ã‚³ãƒ¼ãƒ‰ä»¶æ•°countã™ã‚‹â†’ #ãã®çµæžœã‚’åˆ¥ãƒ†ãƒ¼ãƒ–ãƒ«ã«UPDATEã™ã‚‹SQLå®Ÿè¡Œå‡¦ç†; } }ã¨ã„ã†ã¾ã‚ã€foreachã§ã‚°ãƒ«ã‚°ãƒ«ã‚°ãƒ«ã‚°ãƒ«å›žã™ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ã„ãŸã‚“ã§ã™ãã€‚ ã§ã€ã¾ãã“ã‚ŒãŒã‚¯ã‚½é‡ã‹ã£ãŸã‚“ã§ã™ãã€‚ãƒ†ãƒ¼ãƒ–ãƒ«ã®ãƒ‡ãƒ¼ã‚¿ã¯å…¨éƒ¨ãƒ¡ãƒ¢ãƒªä¸Šã«è¼‰ã£ã¦ã„ã‚‹ã‚“ã§ã™ãŒã€ 10GBï¼ˆ1å„„ãƒ¬ã‚³ãƒ¼ãƒ‰ãã‚‰ã„ï¼‰ãã‚‰ã„ã®ãƒ†ãƒ¼ãƒ–ãƒ«ã§é †ç•ªã«$value1,$value2ã®å¤‰æ•°ã‚’æ¡ä»¶ã«ä½¿ã£ã¦COUNT()ã‚’ä½¿ç”¨ã—ãŸ SELECTæ–‡ã‚’æŠ•ã’ã‚‹ã®ã§ã€ä¸€ã¤ã®SQLæŠ•ã’ãŸã‚‰DBå´ã®CPUã‚³ã‚¢ãŒ100%ã«ãªã£ã¦ã—
hisaichi5518 2011/05/25
perl
ãƒªãƒ³ã‚¯
livedoor Techãƒ–ãƒã‚° : decision tree (æ±ºå®šæœ¨) ã§ãƒ¦ãƒ¼ã‚¶ã‚¨ãƒ¼ã‚¸ã‚§ãƒ³ãƒˆåˆ¤å®šå™¨ã‚’ä½œã£ã¦ã¿ã‚‹
ã‚¢ã‚¯ã‚»ã‚¹ãƒã‚°ã®ãƒ¦ãƒ¼ã‚¶ã‚¨ãƒ¼ã‚¸ã‚§ãƒ³ãƒˆ(UA)ã‹ã‚‰ãƒ–ãƒ©ã‚¦ã‚¶ã‚’åˆ¤åˆ¥ã™ã‚‹ã®ã£ã¦ï¼Œã¿ã‚“ãªä½•ä½¿ã£ã¦ã¾ã™ã‹ï¼Ÿ è‡ªåˆ†ãŒä½œã£ãŸã‚¢ã‚¯ã‚»ã‚¹è§£æžã‚·ã‚¹ãƒ†ãƒ ã§ã¯ HTTP::BrowserDetect ã¨ HTTP::MobileAgent ã«ãã‚Œãžã‚Œç‹¬è‡ªãƒ‘ãƒƒãƒã‚’ã‚ã¦ãŸã‚‚ã®ã‚’ä½¿ã£ã¦ã„ã¾ã™ã€‚ã“ã‚Œã‚‰ã¯ãƒ«ãƒ¼ãƒ«ãƒ™ãƒ¼ã‚¹ã®åˆ¤å®šå™¨ãªã®ã§ï¼Œæ–°ã—ã„ãƒ–ãƒ©ã‚¦ã‚¶ã‚„æ–°ç¨®ã® bot ãŒç™»å ´ã™ã‚‹ãŸã³ã«æ‰‹ä½œæ¥ã§ãƒ«ãƒ¼ãƒ«ã‚’è¿½åŠ ã—ï¼Œãƒ‘ãƒƒãƒã‚’ä½œã£ã¦é…å¸ƒã™ã‚‹ã¨ã„ã†ä½œæ¥ãŒå¿…è¦ã«ãªã‚Šã¾ã™ã€‚ ã“ã®æ›´æ–°ä½œæ¥ãŒå¤§å¤‰é¢å€’ãã•ãã¦å¯¾å¿œãŒé…ã‚ŒãŒã¡ã«ãªã‚‹ã®ã§ï¼Œã€Œã“ã®UAæ–‡å—åˆ—ã¯ã“ã®ãƒ–ãƒ©ã‚¦ã‚¶ã§ã™ã‚ˆã€ã¨ã„ã†ä¾‹ã‚’å¤§é‡ã«ä¸ŽãˆãŸã‚‰ã€è‡ªåˆ†ã§å‹æ‰‹ã«åˆ¤å®šãƒ«ãƒ¼ãƒ«ã‚’å¦ç¿’ã—ã¦ãã‚Œã‚‹ã‚ˆã†ã«ãªã£ãŸã‚‰ä¾¿åˆ©ãªã®ã«ãªãã€ã¨æ€ã„ï¼Œdecision tree (æ±ºå®šæœ¨)ã‚’ä½¿ã£ã¦ã¿ã‚‹ã“ã¨ã‚’æ€ã„ç«‹ã¡ã¾ã—ãŸã€‚ ç›®æ¨™ã¯ï¼Œ "Mozilla/5.0 (Windows; U; Windows NT 6.1; ja; rv:1
hisaichi5518 2011/05/10
perl
ãƒªãƒ³ã‚¯
DBD::mysqlã¨5.5.10ã®çµ„ã¿åˆã‚ã›ã¯ç›¸æ€§ã‚ã‚‹ã„ã£ã½ã„?
hisaichi5518 2011/05/09
perl

mysql
ãƒªãƒ³ã‚¯
Installing DBD::mysql for Perl5.10 on Mac OS X Snow Leopard
hisaichi5518 2011/05/09
perl

mysql
ãƒªãƒ³ã‚¯
namespace::autocleanã«ã¤ã„ã¦èª¿ã¹ãŸ - Perlæ—¥è¨˜
èªã‚“ã§ã¾ã™ã€‚ Perl CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚¬ã‚¤ãƒ‰ ä½œè€…: å†¨ç”°å°šæ¨¹,ã‚¿ãƒŠã‚«ãƒ¦ã‚«ãƒªå‡ºç‰ˆç¤¾/ãƒ¡ãƒ¼ã‚«ãƒ¼: ãƒ¯ãƒ¼ã‚¯ã‚¹ã‚³ãƒ¼ãƒãƒ¬ãƒ¼ã‚·ãƒ§ãƒ³ç™ºå£²æ—¥: 2011/04/08ãƒ¡ãƒ‡ã‚£ã‚¢: å˜è¡Œæœ¬ï¼ˆã‚½ãƒ•ãƒˆã‚«ãƒãƒ¼ï¼‰è³¼å…¥: 20äºº ã‚¯ãƒªãƒƒã‚¯: 2,028å›žã“ã®å•†å“ã‚’å«ã‚€ãƒ–ãƒã‚° (20ä»¶) ã‚’è¦‹ã‚‹ ãã®ä¸ã§ãšã£ã¨ãªã‚“ã¨ãªãä½¿ã£ã¦ã„ãŸnamespace::autocleanã«ã¤ã„ã¦ã‚‚è¨€åŠã•ã‚Œã¦ã„ãŸã®ã§ã€ã›ã£ã‹ããªã®ã§ã¡ã‚ƒã‚“ã¨èª¿ã¹ã¦ã¿ãŸãƒ¡ãƒ¢ã€‚ namespace::autoclean - search.cpan.org ä¸»è¦æ©Ÿèƒ½ ãã‚‚ãã‚‚ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã©ã“ã§ã‚ˆãè¦‹ãŸã‹ã£ã¦ã€Catalystã®5.8ç³»çµ±ã§ã‚¹ã‚±ãƒ«ãƒˆãƒ³ã‚’ä½œæˆã™ã‚‹ã¨ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚¯ãƒ©ã‚¹ã¨ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ«ã‚¯ãƒ©ã‚¹ã«ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã§æ›¸ã‹ã‚Œã¦ã„ã‚‹ã‹ã‚‰ã ã£ãŸã€‚ ï¼ˆã©ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‹ã‚‰ã“ã†ãªã£ãŸã‚“ã ã‚ï¼Ÿï¼‰ $ catalyst.pl Ctest Ctest/lib/Ctest.pm
hisaichi5518 2011/05/08
perl
ãƒªãƒ³ã‚¯
æ£è¦è¡¨ç¾ã®ãƒ‡ãƒãƒƒã‚°æ–¹æ³• - ã“ã‚“ã«ã¡ã¯ã“ã‚“ã«ã¡ã¯monmonã§ã™ï¼
re=debugã£ã¦ã‚„ã‚‹ã¨è©³ç´°å‡ºã—ã¦ãã‚Œã‚‹ã®çŸ¥ã‚‰ãªã‹ã£ãŸã®ã§ã‚³ãƒ”ãƒšã€‚ Perlã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°åˆå¿ƒè€…è³ªå•ã‚¹ãƒ¬ Part 62 502+1 ï¼šnobodyã•ã‚“ [] ï¼š2011/05/02(æœˆ) 02:42:13.10 ID: fV7VGj7j (1/2) ã€Œæ–‡å—åˆ—Aã€€ã€€ã€€ã€€ã€€ã€€ã€€ã€€æ–‡å—åˆ—Bã€ ã¨ã„ã† 2 ã¤ã®æ–‡å—åˆ—ã®é–“ã«è¤‡æ•°ã®ç©ºç™½ãŒã‚ã‚‹è¡Œã«ãŠã„ã¦ /\s*/ ã§ãƒžãƒƒãƒã•ã›ã‚‹ã¨ã€å¤‰æ•° $` (=$PREMATCH) ã«ã¯ä½•ã‚‚å…¥ã‚Šã¾ã›ã‚“ã§ã—ãŸ ãªãœã§ã—ã‚‡ã†ã‹ï¼Ÿ å…¥é–€æ›¸ã¯ã€Œãƒ‘ã‚¿ãƒ¼ãƒ³ãƒžãƒƒãƒãŒè¤‡æ•°è§£é‡ˆå‡ºæ¥ã‚‹å ´åˆã«ã¯ä¸€ç•ªé•·ã„è§£é‡ˆã«ãƒžãƒƒãƒã™ã‚‹ã€ã¨ã‚ã‚Šã¾ã™ã€‚ ã‚ˆã£ã¦è‡ªåˆ†ã¯ \s* ã¨ã„ã†ã€Œ0 å›žä»¥ä¸Šã®ãƒ›ãƒ¯ã‚¤ãƒˆã‚¹ãƒšãƒ¼ã‚¹ã®ç¹°ã‚Šè¿”ã—ã€ã¯ æœ€ã‚‚é•·ã„è§£é‡ˆã§ã¯è¤‡æ•°ã®ç©ºç™½ã«ãƒžãƒƒãƒã— $` ã«ã¯æ–‡å—åˆ—A ãŒä»£å…¥ã•ã‚Œã‚‹ã¯ãšã ã¨è€ƒãˆãŸã®ã§ã™ãŒ 503+1 ï¼š1/2 [â†“] ï¼š2011/05/02(æœˆ) 03:50:24.42 I
hisaichi5518 2011/05/02
perl
ãƒªãƒ³ã‚¯
Catalyst in the Cloud
A lot of buzz was generated recently in the Perl community after DotCloud, a big PaaS player, introduced its brand new Perl stack, letting developers deploy modern Perl web applications into the "Cloud" without having to worry about the underlying system at all. DotCloud already provides a nice Dancer example, and sri was diligent enough to provide a Mojolicious example as soon as he got his hands
hisaichi5518 2011/04/30
perl
ãƒªãƒ³ã‚¯
Perl Snippets
hisaichi5518 2011/04/29
perl

snippets
ãƒªãƒ³ã‚¯
Mailing List Archive: Catalyst
hisaichi5518 2011/04/25
perl
ãƒªãƒ³ã‚¯
Perlã®ãƒ•ã‚¡ã‚¤ãƒ«å…¥å‡ºåŠ›ã®åŸºç¤Ž - Perlå…¥é–€ã‚¼ãƒŸ
Perl â€º here Perlã®ãƒ•ã‚¡ã‚¤ãƒ«å…¥å‡ºåŠ›ã®åŸºç¤Žã‚’ãƒžã‚¹ã‚¿ãƒ¼ã—ã¾ã—ã‚‡ã†ã€‚ ãƒ†ã‚ã‚¹ãƒˆãƒ•ã‚¡ã‚¤ãƒ«ã®èªã¿è¾¼ã¿ã¨æ›¸ãè¾¼ã¿ãŒã§ãã‚‹ã‚ˆã†ã«ãªã‚‹ã“ã¨ã‚’ç›®æ¨™ã«ã—ã¾ã™ã€‚ ãƒ•ã‚¡ã‚¤ãƒ«ã‚ªãƒ¼ãƒ—ãƒ³ ãƒ•ã‚¡ã‚¤ãƒ«ã‚’èªã¿è¾¼ã‚€ãŸã‚ã«ã¯æœ€åˆã«ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ã‚ªãƒ¼ãƒ—ãƒ³ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ãƒ•ã‚¡ã‚¤ãƒ«ã¯OSã«ã‚ˆã£ã¦ç®¡ç†ã•ã‚Œã¦ã„ã‚‹ã®ã§ã€æœ€åˆã«ãƒ—ãƒã‚°ãƒ©ãƒ ã§ãƒ•ã‚¡ã‚¤ãƒ«ã‚’æ‰±ã„ãŸã„ã¨ã„ã†ã“ã¨ã‚’OSã«ä¼ãˆã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚OSã¯å¯¾è±¡ã®ãƒ•ã‚¡ã‚¤ãƒ«ã®è˜åˆ¥åã‚’ãƒ—ãƒã‚°ãƒ©ãƒ ã«è¿”å´ã—ã¾ã™ã€‚ ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ã‚ªãƒ¼ãƒ—ãƒ³ã™ã‚‹ã«ã¯opené–¢æ•°:title=opené–¢æ•°]ã‚’ä½¿ç”¨ã—ã¾ã™ã€‚ my $file = 'data.txt'; open my $fh, '<', $file or die qq/Can't open file "$file" : $!/; ãƒ•ã‚¡ã‚¤ãƒ«ã®ã‚ªãƒ¼ãƒ—ãƒ³ã®å‡¦ç†ã«ã¤ã„ã¦ã²ã¨ã¤ã¥ã¤è§£èª¬ã—ã¾ã™ã€‚ opené–¢æ•° opené–¢æ•°ã¯3ã¤ã®å¼•æ•°ã‚’å—ã‘å–ã‚Šã¾ã™ã€‚ç¬¬ä¸€å¼•æ•°ã«ã¯ãƒ¬ã‚
hisaichi5518 2011/04/25
perl
ãƒªãƒ³ã‚¯
zsh ã§ perldoc ã®è£œå®Œã‚’é€Ÿãã™ã‚‹æ–¹æ³• - ç†ç³»å¦ç”Ÿæ—¥è¨˜
zsh ã§ perldoc ã®å¾Œã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«åã‚’è£œå®Œã—ã‚ˆã†ã¨ã™ã‚‹ã¨ãã€ãƒ¤ã‚±ã«å¿œç”ãŒé…ã‹ã£ãŸã‚Šã—ã¾ã™ã€‚ã“ã‚Œã‚’æ”¹å–„ã—ãªã‘ã‚Œã°ã“ã®ã‚¹ãƒˆãƒ¬ã‚¹ç¤¾ä¼šã‚’ç”Ÿãã¦ã„ãã“ã¨ã¯ã§ãã¾ã›ã‚“ã€‚ zsh ã¯ perldoc ã®ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã®è£œå®Œã‚’è¡Œã†ã¨ãã€@INC ã‚„ PERL5LIB ç’°å¢ƒå¤‰æ•°ãªã©ã«ã‚»ãƒƒãƒˆã•ã‚Œã¦ã„ã‚‹ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã‚’èµ°æŸ»ã—ã¦ã€ãã®å€™è£œã¨ãªã‚‹ Perl ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«åã‚’å–å¾—ã™ã‚‹å‹•ä½œã‚’ã—ã¦ã„ã¾ã™ã€‚è£œå®Œã®åº¦ã«é€ä¸€ã“ã†ã„ã†å‹•ä½œã‚’ã—ã¦ã—ã¾ã†ãŸã‚ã€å¿œç”ãŒé…ãã€ã‚¹ãƒˆãƒ¬ã‚¹ãŒæºœã¾ã‚Šã€æˆäººç—…ç‰ã®ãƒªã‚¹ã‚¯ãŒä¸ŠãŒã‚Šã¾ã™ã€‚ å…ƒã€…ã€zsh ã®è£œå®Œã‚·ã‚¹ãƒ†ãƒ ã«ã¯ã‚ãƒ£ãƒƒã‚·ãƒ¥ã‚·ã‚¹ãƒ†ãƒ ãŒçµ„è¾¼ã¾ã‚Œã¦ã„ã‚‹ã®ã§ã€ã“ã‚Œã‚’æœ‰åŠ¹åŒ–ã•ã›ã‚‹ã“ã¨ã§è£œå®Œã‚’é«˜é€ŸåŒ–ã•ã›ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ã“ã‚Œã§ã‚¹ãƒˆãƒ¬ã‚¹ç¤¾ä¼šã‚’ä¹—ã‚Šè¶Šãˆã‚‰ã‚Œã‚‹ã“ã¨ãŒã§ãã¾ã™ã—ã€ã¿ãªã•ã‚“ã¨ã¦ã‚‚ã‚ˆã‹ã£ãŸã§ã™ãã€‚ |bash| zstyle ':completion:*' use-cache true ||<
hisaichi5518 2011/04/24
perl
ãƒªãƒ³ã‚¯
GitHub - miyagawa/fastpass: Tiny, XS free, standalone and preforking FastCGI daemon for PSGI
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session. You switched accounts on another tab or window. Reload to refresh your session. Dismiss alert
hisaichi5518 2011/04/23
perl

server
ãƒªãƒ³ã‚¯
mysqlã®ç°¡å˜ãªãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯æ¸¬å®šæ–¹æ³• MyBench ã‚’ä½¿ã£ã¦ã¿ã‚‹Â |Â ãƒ¬ãƒ³ã‚¿ãƒ«ã‚µãƒ¼ãƒãƒ¼ãƒ»è‡ªå®…ã‚µãƒ¼ãƒãƒ¼è¨å®šãƒ»æ§‹ç¯‰ã®ãƒ’ãƒ³ãƒˆ
mysqlã®ç°¡å˜ãªãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯æ¸¬å®šæ–¹æ³• MyBench ã‚’ä½¿ã£ã¦ã¿ã‚‹
hisaichi5518 2011/04/22
perl
ãƒªãƒ³ã‚¯
eBook Deal of the Day | InformIT
By Ken Ledeen, Wendy Seltzer, Hal Abelson, Harry Lewis Published Dec 23, 2020 by Addison-Wesley Professional. Pages: 400eBook Blown to Bits, Second Edition is the brilliant, plain-English guide to digital techno logy, how it's changing the world, and what you need to know to survive in tomorrow's digital world. A best-seller when it was first published in 2010, the issues it addresses are more cruc
hisaichi5518 2011/04/22
perl
ãƒªãƒ³ã‚¯
Perlã§OAuth 2.0ã‚’ä½¿ã£ã¦ã¿ãŸ - hide-k.net#blog
æºå¸¯ã®ç·Šæ€¥åœ°éœ‡é€Ÿå ±ã®éŸ³ãŒæ€–ã„ã®ã§ã€ã€Œä¼šã„ãŸã‹ã£ãŸã€ã«å¤‰ãˆã‚‹Hackã‚’å‹Ÿé›†ã—ã¦ã„ã¾ã™ã€‚ ã“ã‚“ã°ã‚“ã¯ã€‚ OAuth 2.0ã¯ä»•çµ„ã‚‚ç‰¹å¾´ã‚‚ç†è§£ã—ã¦ã„ãŸã®ã§ã™ãŒã€å®Ÿéš›ã«å®Ÿè£…ã®å¿…è¦ãŒå‡ºã¦ããŸã®ã§ä»Šæ›´ãªãŒã‚‰åˆã‚ã¦ä½¿ã£ã¦ã¿ã¾ã—ãŸã€‚ ä»•æ§˜ã¯ç¾åœ¨draft15ã¨ã„ã†ã‚¹ãƒ†ãƒ¼ã‚¿ã‚¹ã§å…¬é–‹ã•ã‚Œã¦ã„ã¾ã™ã€‚(The OAuth 2.0 Authorization Protocol) OAuth 2.0ã®ç‰¹å¾´ã¨ã—ã¦ã¯HTTPSã‚’ä½¿ã£ã¦é€šä¿¡çµŒè·¯ã‚’æš—å·åŒ–ã™ã‚‹ã“ã¨ã«ã‚ˆã‚Šãƒˆãƒ¼ã‚¯ãƒ³ã‚’ç›´æŽ¥ã‚„ã‚Šã¨ã‚Šã™ã‚‹ã“ã¨ãŒå¯èƒ½ã¨ãªã£ã¦ã„ã¾ã™ã€‚ãã®ãŸã‚ç½²åãŒå¿…è¦ãªããªã‚Šã€ã‚ã®æ‚ªå¤¢ã®ã‚ˆã†ãªç½²åæ¤œè¨¼ã‚’ã—ãªãã¦æ¸ˆã‚€ã‚ˆã†ã«ãªã£ãŸã®ãŒå¤§ããªãƒ¡ãƒªãƒƒãƒˆã§ã™ã€‚ ã¨ã¯ã„ãˆã€èªã‚“ã§ã‚‚ã‚ˆãã‚ã‹ã‚“ãªã„ã®ã§ã‚³ãƒ¼ãƒ‰ã«ã—ã¦ã¿ã¾ã™ã€‚Authorization Serverã¨Resource Serverã¨ã—ã¦ä½¿ã£ã¦ã¿ã‚‹ã®ã¯Facebookã€‚ã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆã‚µã‚¤ãƒ‰ãƒ•ãƒãƒ¼ã¨ã‚µãƒ¼ãƒãƒ¼ã‚µã‚¤ãƒ‰ãƒ•
hisaichi5518 2011/04/17
perl

oauth
ãƒªãƒ³ã‚¯
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
hisaichi5518 2011/04/17
perl

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

server
ãƒªãƒ³ã‚¯
Coro ã§ Worker-Thread ãƒ‘ã‚¿ãƒ¼ãƒ³ - l1o0ã®æ—¥è¨˜
å¢—è£œæ”¹è¨‚ç‰ˆ Javaè¨€èªžã§å¦ã¶ãƒ‡ã‚¶ã‚¤ãƒ³ãƒ‘ã‚¿ãƒ¼ãƒ³å…¥é–€ ãƒžãƒ«ãƒã‚¹ãƒ¬ãƒƒãƒ‰ç·¨ ã‚’å‚è€ƒã« Coro ã§ Worker-Thread ãƒ‘ã‚¿ãƒ¼ãƒ³ã‚’å®Ÿè£…ã€‚ Worker-Thread ãƒ‘ã‚¿ãƒ¼ãƒ³ã¯ãƒ¯ãƒ¼ã‚«ãƒ¼ã‚¹ãƒ¬ãƒƒãƒ‰ãŒä¾é ¼ã‚’å¾…ã¡ã€ä¾é ¼ãŒæ¥ãŸã‚‰å‡¦ç†ã™ã‚‹ã€‚ #!/usr/bin/perl use strict; use warnings; package Client; use Coro; use Coro::Timer; sub new { my ( $class, %args ) = @_; bless \%args, $class; } sub run { my $self = shift; my $coro = async { do { for my $count ( 1 .. $self->{num_of_request} ) { print $self->{name}, " request $count
hisaichi5518 2011/04/04
perl
ãƒªãƒ³ã‚¯
Cuteã¨ã„ã†Webãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã‚’ä½œã£ãŸ - Kentaro Kuribayashi's blog
ä¿ºã€…ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã‚’ä½œã£ã¦ã¿ãŸã‹ã£ãŸã®ã§ã€å…ˆäººã®çŸ¥æµã‚’ã„ã‚ã„ã‚æ‹å€Ÿã™ã‚‹æ„Ÿã˜ã§ã‚„ã£ã¦ã¿ãŸã€‚ https://github.com/kentaro/cute ã„ã‚ã„ã‚è¶³ã‚Šãªã„ã‚‚ã®ãŒã‚ã‚‹ã‘ã©ã€ã¾ã‚ã¨ã‚Šã‚ãˆãšå‹•ãã¨ã“ã‚ã¾ã§ã€‚è‡ªåˆ†ã®å¥½ã¿çš„ã«ã€ã‚ã‚Šã¨ã„ã„æ„Ÿã˜ã«ãªã‚Šã¤ã¤ã‚ã‚‹ã®ã§ã€ä»Šå¾Œã¯ã€å€‹äººç”¨ãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆã«ã¯ã“ã‚Œã‚’ä½¿ã£ã¦ã„ããŸã„ã€‚ ã„ã¡ãƒ•ã‚¡ã‚¤ãƒ«ã§ã“ã‚“ãªã‚“æ›¸ã„ãŸã‚‰é©å½“ã«å‹•ãæ„Ÿã˜ã€‚ package Example::Cute::Default; use strict; use warnings; use Cute; sub title { my ($self, $suffix) = @_; my $title = 'Hello, Cute!'; $title .= " ($suffix)" if $suffix; $title; } get '/' => sub { my ($self, $ctx) = @
hisaichi5518 2011/04/03
perl
ãƒªãƒ³ã‚¯
1 2 3 4 5 6 7 8 9 10 æ¬¡ã®ãƒšãƒ¼ã‚¸