All slide content and descriptions are owned by their creators.
debug-perl // Speaker Deck
All slide content and descriptions are owned by their creators.
[perl] epoch 秒ã£ã½ã„ã‚„ã¤ã‚’ç½®æ›ã™ã‚‹ - tokuhirom's blog
https://metacpan.org/pod/from_unixtime ã‚’ã¿ã¦ã‚„ã£ã¦ã¿ãŸï½¡ > cat sql_result id 1 created_at 1419702037 updated_at 1419702037 > perl -MTime::Piece -pe 's/\b(1[0-9]{9})\b/"$1(".localtime($1)->strftime("%F %T").")"/ge' < sql_result id 1 created_at 1419702037(2014-12-28 02:40:37) updated_at 1419702037(2014-12-28 02:40:37) 自分ã®å ´åˆã ã¨ã“ã‚“ãらã„ã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã§ã„ã„ã‹ãªï½¤ã¨ï½¡ 上記ã®æ£è¦è¡¨ç¾ã¯æ¥µã‚ã¦é›‘ã ãŒï½¤ä»¥ä¸‹ã®ã‚ˆã†ã«ï½¤ä¸€èˆ¬çš„ã«æ±‚ã‚ãŸã„範囲㮠unix time ã«ã¯ãã‚Œãªã‚Šã«ãƒžãƒƒãƒã™ã‚‹ï½¡ > ep
YAPC::Asia 2014 2日目感想 - NeverBlog::Likk::Unexistable;
1日目感想ã‹ã„ã¦ã‹ã‚‰ã ã„ã¶é–“ãŒç©ºã„ãŸã‘ã©ã€2日目感想ã¾ã¨ã‚ãŸã€‚LTã¯é™¤ã。 謎ã®è…¹ç—›ã«æ‚©ã¾ã•ã‚Œã¦åˆå¾Œã‹ã‚‰å‚åŠ ã€‚é€”ä¸ã‚¿ãƒªãƒ¼ã‚ºã§ã†ãšãã¾ã£ãŸã‚Šã‚‚ã—ãŸã€‚ 地域pm Meet up æ€ã£ãŸä»¥ä¸Šéƒ¨æ—¥æœ¬å…¨å›½ã‚ã¡ã“ã¡ã«pmã‚ã£ãŸã€‚ 都内出身ãªã®ã§åœ°åŸŸpmã«è¡Œãã“ã¨ã¯æ®†ã©ãªã•ãã†ã ã‘ã©ã€åœ°æ–¹pmã®äººã‚’都内pm呼ã¶ã®æ¥½ã—ãã†ã€‚ YAPC::Europe 2014ã«ã„ã£ã¦ãã¾ã—㟠ブルガリアã¯ãƒ“ールクズ天国。覚ãˆãŸã€‚ ヨーãƒãƒƒãƒ‘ã¯è‹±èªžã‚ã‚“ã¾ã‚Šå–‹ã‚Œãªãã¦ã‚‚寛容。覚ãˆãŸã€‚ ãã‚‚ãも日本ã‹ã‚‰å‡ºãŸã“ã¨ãªã„ã‚“ã§ã™ã‘ã©ã。 趣味開発ã®ãŸã‚ã®ã‚¯ãƒ©ã‚¦ãƒ‰/VPS活用術 VPSã¯2社ã»ã©ã€ãƒ¬ãƒ³ã‚¿ãƒ«ã‚µãƒ¼ãƒã¯1社ã»ã©ä½¿ã£ã¦ã‚‹ã‘ã©ã€æ£ç›´ãã‚“ãªã«æ´»ç”¨ã—ã¦ãªã„。 èžã„ã¦æ”¹ã‚ã¦ã¾ãŸå¼•ã£è¶Šãã†ã¨ã„ã†ã“ã¨ã¯ãªã„ã‘ã©ã€æœ€è¿‘ã®VPSæƒ…å ±ã‚’çŸ¥ã‚‹ã“ã¨ãŒã§ãã¦ã‚ˆã‹ã£ãŸã€‚ ã‚ーノート エンジニアã¨ã—ã¦ç”Ÿãã‚‹ 「20代ã®çµŒé¨“ãŒä»Šå¾Œã®äººç”Ÿã®ãƒ™ãƒ¼ã‚¹ã«ãªã‚‹ã€ã¨ãã„
Perlã§æ—¥æœ¬èªžå…¨æ–‡æ¤œç´¢ã§ãã‚‹CPANモジュール作りã¾ã—㟠- 俺ã¨ãŠå‰ã¨laysakura
ã“ã®è¨˜äº‹ã¯â†“ã«ç§»è»¢ã—ã¾ã—ãŸã€‚ laysakura.github.io
ã¯ã¦ãªãƒ–ãƒã‚° | 無料ブãƒã‚°ã‚’作æˆã—よã†
æ¥å¹´ã‚‚作りãŸã„ï¼ãµãã®ã¨ã†æ–™ç†ã‚’満喫ã—ãŸã€€2024年春ã®è¨˜éŒ² 春ã¯è‡ªç‚ŠãŒæ¥½ã—ã„å£ç¯€ 1å¹´ã®ä¸ã§æœ€ã‚‚自炊ãŒæ¥½ã—ã„å£ç¯€ã¯æ˜¥ã ã¨æ€ã†ã€‚スーパーã®æ£šã«ã‚„ã‚らã‹ãªè‰²åˆã„ã®é‡ŽèœãŒä¸¦ã¶ã¨è‡ªç„¶ã¨ã“ã“ã‚ãŒå¼¾ã‚€ã€‚ ä¸ã§ã‚‚ã¨ãã‚ãã®ã¯å±±èœã 。早ã„ã¨2月下旬ã”ã‚ã‹ã‚‰ä¸¦ã³å§‹ã‚ã‚‹ãã‚Œã¯ã€ã‚¿ãƒ©ã®èŠ½ã€ãµãã®ã¨ã†ã¨ç¶šãã€æ¡œã®é ƒã«ã¯ã†ã‚‹ã„ã€ã‚¦ãƒ‰ã€ã“…
Web アプリケーションã®ãƒã‚¸ãƒƒã‚¯ã‚’手続ãã¨ã—ã¦å®Ÿè£…ã™ã‚‹è©± - tokuhirom's blog
yusukebe ã®Object::Containerを応用ã—ãŸModel呼ã³å‡ºã— ã®ã‚ãŸã‚Šã‚’よんã§ã®æ„Ÿæƒ³ã§ã™ãŒã€‚ 一時期 Catalyst ã®å½±éŸ¿ã‚‚ã‚ã£ã¦ã€ãƒ¢ãƒ‡ãƒ«ã®ã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹ã¤ãã£ãŸã‚Šãªã‚“ã ã‚Šã‚‚ã—ã¦ã„ãŸã®ã§ã™ãŒã€çµå±€ã®ã¨ã“ã‚ウェブアプリケーションã«ãŠã„ã¦ã¯ã€ãƒ¢ãƒ‡ãƒ«ã‚’ãŒã‚“ã°ã£ã¦ã‚ªãƒ–ジェクトã«ãƒ¢ãƒ‡ãƒªãƒ³ã‚°ã—よã†ã¨ã‹è€ƒãˆã‚‹ã‚ˆã‚Šã‚‚ã€ã¤ã¾ã‚Šæ‰‹ç¶šã¨ã—ã¦æ‰±ã£ãŸæ–¹ãŒã—ã£ãã‚Šãã‚‹ãªã€ã¨ã„ã†ã“ã¨ã«è‡ªåˆ†ã®ä¸ã§ãªã‚Šã¾ã—ã¦ã€æœ€è¿‘ã¯ã€ã”ã¡ã‚ƒã”ã¡ã‚ƒè€ƒãˆã‚‹ã®ã‚’ã‚„ã‚ã¦ã€æ‰‹ç¶šãã¨ã—ã¦å®Ÿè£…ã—ã¦ã„ã¾ã™ã€‚ yusukebe ã®ä¾‹ã‚’ベースã«ã¯ãªã—ã‚’ã™ã™ã‚ã‚‹ã¨ã€ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ©ã‚’以下ã®ã‚ˆã†ã«ã‹ãã¾ã™ã€‚ package MyApp::Web::Controller::Root; use Mojo::Base 'Mojolicious::Controller'; use MyApp::M::Entry; sub index { my $se
YappoLogs: Try::Lite supported of older perls
Try::Lite supported of older perls I fixed Try::Lite's nexted try-catch block don't work on older perls, because I received that bug report by koba04. https://metacpan.org/release/YAPPO/Try-Lite-0.0.3/ Try::Lite ã¯æœ€è¿‘ã® Perl ã§é–‹ç™ºã—ãŸãŸã‚ã€ã†ã£ã‹ã‚Šå¤ã„ Perl ã®ä¾‹å¤–処ç†ãŒå¤‰ãªã‚„ã¤ã«å¯¾å¿œã™ã‚‹ã®ã‚’忘れã¦ã¾ã—ãŸã€‚ pull-req å—ã‘å–ã£ã¦ã‹ã‚‰4ヶ月ã‹ã‹ã£ã¦ã—ã¾ã£ãŸã‚“ã§ã™ãŒã€ä¾‹å¤–処ç†ã‚„ã‚„ã“ã—ã„ã›ã„ãŒã‚ã£ã¦ãƒ‘ッãƒã®æ„図ãŒè‰¯ãã‚ã‹ã‚‰ã‚“ãã¦æ”¾ç½®ã—ã¦ãŸã£ã¦ã®ãŒã‚ã‚Šã¾ã™ï¼ 最åˆè²°ã£ãŸã‚„ã¤ã 㨠RAII ã—㦠$@ を良ã„æ„Ÿã˜ã«å…ƒã«æˆ»ã™ã¿ãŸã„ãªäº‹ã—ã¦ãŸã‘ã©ã€ã‚ˆã考ãˆãŸã‚‰æ™®é€šã«æ›¸ã‘ã° R
Redisã®ãƒ¡ãƒ¢ãƒªè¨å®šã¨ãƒ•ã‚¡ã‚¤ãƒ«è¨å®šã®diffå–るスクリプト書ã„㟠- Perl勉強メモ　アルパカDiary出張版
※2013/07/25 スクリプトã¨æ¦‚è¦ã‚’Updateã—ã¾ã—㟠次期ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§ã‚ã‚‹Redis 2.8ã§ã¯ã“ã®å•é¡Œã‚’å°‘ã—ã§ã‚‚解決ã—よã†ã¨ã€ CONFIG REWRITE ã¨ã„ã†ã‚³ãƒžãƒ³ãƒ‰ã§ã€redis.confã®æ›¸ãæ›ãˆã‚’è¡Œãˆã‚‹ã‚‰ã—ã„〠ãŒã€çµå±€ãれを忘れãŸã‚‰åŒã˜ã“ã¨ãªã®ã§ã“ã®å•é¡Œã®è§£æ±ºã«ã¯ãªã‚‹ã‹ã¯å¾®å¦™ãªã¨ã“ã‚ã 。 メモリ上ã«ã—ã‹åæ˜ ã•ã‚Œã¦ã„ãªã„è¨å®šãŒã‚ã‚‹ã‹ã©ã†ã‹ã‚’ãªã‚“らã‹ã®æ–¹æ³•ã§ãƒã‚§ãƒƒã‚¯ã™ã‚‹ã“ã¨ãŒã§ãã‚Œã°ç›£è¦–ã™ã‚‹ãªã©ã§ãã‚‹ã¨æ€ã†ã®ã ãŒâ€¦ã€‚ http://unknownplace.org/archives/twilio-redis-incident.html 書ãæ¨ã¦ã£ã½ã„ã§ã™ãŒã€å·®åˆ†ã‚’ã¨ã‚‹ã‚¹ã‚¯ãƒªãƒ—トをペãƒãƒƒã¨æ›¸ã„ã¦ã¿ã¾ã—ãŸã€‚ æ¦‚è¦ ä»¥ä¸‹ã®ã‚ˆã†ãªã“ã¨ã‚’ã—ã¦ã„ã¾ã™ã€‚ 値ãŒç©ºã®ã‚ーã¯ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå€¤ã‚’è¨å®š å˜ä½ï¼ˆK/M/G）を最å°å˜ä½ã«æˆ»ã™ メモリ上ã®ã‚ーをæ£ã¨ã—ã¾ã™*1 メモリã«ã®ã¿ã‚ーãŒå˜åœ¨ã™ã‚‹
ゆーã™ã‘ã¹ãƒ¼æ—¥è¨˜
ユーザーã‹ã‚‰ã®POSTç‰ã•ã‚ŒãŸå…¥åŠ›å€¤ã®å¦¥å½“性をãƒã‚§ãƒƒã‚¯ã™ã‚‹ Validation ã‚’ã©ã“ã§ã‚„ã‚‹ã‹å•é¡ŒãŒå€‹äººçš„ã«ã‚ã‚Šã¾ã—ã¦ã€œã€DBを使ã‚ãªã„ケースãªã‚‰ã°ã„ã‚ゆるFomrValidator::*を使ã£ã¦Controllerã§ã‚„ã‚Œã°ã„ã„ã®ã§ã™ãŒã€Modelを経由ã™ã‚‹ã‚ˆã†ãªã‚¢ãƒ—リã ã¨Controllerã ã‘ã˜ã‚ƒä¸å®‰ã‚ˆãã‡ã€œã€Modelã ã‘使ã†æ™‚ã‚‚ã‚ã‚‹ã—ã€Modelå˜ä½“ã®ãƒ†ã‚¹ãƒˆã§å†ç¾å‡ºæ¥ãªã„よã〜ãªã‚“ã¦æ€ã£ã¦ã¾ã™ã€‚ã§ã€å®Ÿéš›ã®å®Ÿè£…ã‚’Controllerã§ã¯FormValidator::Liteã€Modelã®ä¸€éƒ¨ã«Data::Validatorを使ã£ã¦ã„ã‚‹ã®ã§ã™ãŒã€ãªã‚“ã‹ã‚³ãƒ¬ã‚‚効率悪ã„æ„Ÿã˜ã—ã¦ãŸã‚“ã§ã€ã¡ã‚‡ã„ã¨å®Ÿé¨“çš„ã«ç†æƒ³ã®ä¸€ã¤ã‚’実装ã—ã¦ã¿ã¾ã—ãŸã€‚ ã“ã‚“ãªæ¡ä»¶ã§ã™ã€‚ エラーメッセージを簡å˜ã«è¨å®šã—ãŸã„ã®ã§Validationモジュールã«ã¯FormValidator::Liteを使ㆠ色々錯誤ã—ã¦ã„ãŸã‚‰OR
Xslateã®pre_process_handlerを使ã£ã¦CSSã®ã‚¤ãƒ³ãƒ©ã‚¤ãƒ³åŒ–ã‚’ã™ã‚‹ - $shibayu36->blog;
ã“ã®å‰ Xslateã®ãƒ†ãƒ³ãƒ—レートをCSSインライン化ã™ã‚‹ - $shibayu36->blog;ã¨ã„ã†è¨˜äº‹ã‚’ã‹ã„ãŸã®ã ã‘ã©ã€ãã®æ™‚ã«gfxã•ã‚“ã«ã‚³ãƒ¡ãƒ³ãƒˆã§ gfx BKã£ã½ã„æ°—ã‚‚ã—ã¾ã™ãŒä»–ã«ã„ã„方法ã¯æ€ã„ã¤ã‹ãªã„ã—ã€æœ€è¿‘ pre_process_handler ã¨ã„ã†æ©Ÿèƒ½ã‚‚足ã—ãŸã®ã§ã€ã¾ã‚許容範囲ã˜ã‚ƒãªã„ã™ã‹ã。 ã¨è¨€ã‚ã‚ŒãŸã€‚ pre_process_handlerã¨ã„ã†ã‚‚ã®ãŒã‚ã£ãŸã“ã¨ã‚’知らãªã‹ã£ãŸã®ã§ã€è©¦ã—ã«åˆ©ç”¨ã—ã¦ã¿ãŸã€‚ pre_process_handlerを使ã£ã¦templateã«å¯¾ã—ã¦CSSインライン化ã™ã‚‹ ã•ã¦ã‚„ã‚ŠãŸã‹ã£ãŸã“ã¨ã‚’振り返る㨠メールを一通一通CSSインライン化ã™ã‚‹ã®ã§ã¯ãªãã€å…ˆã«templateをインライン化ã—ã¦ãŠã„ã¦ã€ãれを利用ã—ã¦renderã—ãŸã„ ã¨ã„ã†ã“ã¨ã§ã—ãŸã€‚ 例ãˆã°ä»¥ä¸‹ã®ã‚ˆã†ãªtemplateを用æ„ã—ã¾ã™ã€‚ <html> <head> <styl
Test::Moreã®subtestã§å›°ã£ã¦ã„ã‚‹ã“㨠- $shibayu36->blog;
最近ã¯perlã§ãƒ†ã‚¹ãƒˆæ›¸ã時ã¯Test::Classを使ã†ã‚ˆã†ã«ã—ã¦ã„る。ãã®ç†ç”±ã®ä¸€ã¤ã¨ã—ã¦ã€subtestã ã‘ã®ãƒ†ã‚¹ãƒˆã ã¨å°‘ã—ã ã‘å›°ã‚‹ã“ã¨ãŒã‚ã‚‹ã‹ã‚‰ã 。 具体的ã«ã¯ä»¥ä¸‹ã®äº‹ãŒã‚る。 subtestã¯æ›¸ã‹ã‚Œã¦ã„ã‚‹é †ã«å®Ÿè¡Œã•ã‚Œã‚‹ãŸã‚ã€å‰ã®ãƒ†ã‚¹ãƒˆã®çŠ¶æ…‹ã«ä¾å˜ã—ãŸã‚³ãƒ¼ãƒ‰ãŒæ›¸ã‹ã‚ŒãŒã¡ 特定ã®subtestã ã‘を実行ã™ã‚‹ã®ãŒé¢å€’ å‰ã®ãƒ†ã‚¹ãƒˆã®çŠ¶æ…‹ã«ä¾å˜ã—ãŸã‚³ãƒ¼ãƒ‰ãŒæ›¸ã‹ã‚ŒãŒã¡ 僕ã®ä¸ã§ã¯ã€ãƒ†ã‚¹ãƒˆãŒå‰ã®ãƒ†ã‚¹ãƒˆã®çŠ¶æ…‹ã«ä¾å˜ã—ãªã„よã†ã«ã™ã¹ãã¨æ€ã£ã¦ã„る。å„テストã®ä¾å˜åº¦ãŒå¢—ãˆã‚‹ã¨ã€ãã®å¾Œãƒ†ã‚¹ãƒˆã‚’è¿½åŠ ã—ãŸã„ã¨ãã«ã‚³ãƒ¼ãƒ‰ã®è¦‹ã‚‹ç¯„囲ãŒå¢—ãˆã€ãƒ†ã‚¹ãƒˆãŒæ›¸ãã¥ã‚‰ããªã£ã¦ã—ã¾ã†ã‹ã‚‰ã 。 ã—ã‹ã—ã€subtestã¯å˜ã«æ›¸ã‹ã‚ŒãŸé †ã«ãƒ†ã‚¹ãƒˆãŒå®Ÿè¡Œã•ã‚Œã‚‹ã®ã§ã€å‰ã®ãƒ†ã‚¹ãƒˆã®çŠ¶æ…‹ã«ä¾å˜ã—ãŸã‚³ãƒ¼ãƒ‰ãŒæ›¸ãã‚„ã™ã„ã¨æ€ã£ã¦ã„る。例ãˆã°ä»¥ä¸‹ã®æ§˜ãªã‚³ãƒ¼ãƒ‰ãŒæ›¸ã‹ã‚ŒãŒã¡(å°‘ã—極端ãªä¾‹ã ãŒ)。 use Test::More; # insert_en
[perl] Object::Generator ã® yield ãŒé¢ç™½ã„ - tokuhirom's blog
http://blogs.perl.org/users/joel_berger/2013/07/a-generator-object-for-perl-5.html Coro ã‚’ã¤ã‹ã£ã¦ã‚¤ãƒ†ãƒ¬ãƒ¼ã‚¿ã‚’ç°¡å˜ã«å®Ÿè£…ã§ãるよã†ã«ã—ã¦ã„ã‚‹ã®ãŒã‚ªãƒ„ã§ã™ãªã€‚ use strict; use warnings; use Generator::Object; my $gen = generator { my $x = 0; while (1) { $x += 2; $_->yield($x); } }; print $gen->next; # 2 print $gen->next; # 4
Kyoto.pm 05 Tech Talksを開催ã—ã¾ã—ãŸï¼ #kyotopm - kyotopm's blog
Kyoto.pm 05 Tech Talksを開催ã—ã¾ã—ãŸã€‚JPA様ã®è¬›å¸«æ´¾é£ãƒ—ãƒã‚°ãƒ©ãƒ を利用ã—ã€nekokakã•ã‚“ã«ãŠè¶Šã—ã„ãŸã ãã¾ã—ãŸã€‚ 今回ã¯30人を超ãˆã‚‹æ–¹ã«å‚åŠ ã—ã¦ã„ãŸã ãã€ç™ºè¡¨ã‚‚nekokakã•ã‚“ã€é€šå¸¸ãƒˆãƒ¼ã‚¯7ã¤ã€LT7ã¤ã¨ã€ãªã‹ãªã‹ç››ã‚Šä¸ŠãŒã£ãŸã¨æ„Ÿã˜ã¾ã™ã€‚é æ–¹ã‹ã‚‰ã‚‚数人ãŠè¶Šã—ã„ãŸã ãã€ç™ºè¡¨ã‚‚ã—ã¦é ‚ãã¾ã—ãŸã€‚ ã¾ãŸTech Talksãªã‚ŠHackathonãªã‚Šé–‹å‚¬ã—よã†ã¨æ€ã„ã¾ã™ã®ã§ã€æ¬¡ã‚‚是éžã”å‚åŠ ãã ã•ã„。 トーク内容 トーク内容ã¯ã‚¹ãƒ©ã‚¤ãƒ‰ãªã©ãŒä¸ŠãŒã‚‹ãŸã³ã«éšæ™‚æ›´æ–°ã—ã¦ã„ãã¾ã™ã€‚ 通常トーク nekokakã•ã‚“ y_uukiã•ã‚“ : サーãƒã®ãƒ¡ãƒˆãƒªã‚¯ã‚¹å–å¾—ã¨ã‚°ãƒ©ãƒ•åŒ– Kyoto.pm 05ã§è‡ªä½œã®ã‚µãƒ¼ãƒãƒªã‚½ãƒ¼ã‚¹å¯è¦–化ツールã®ã¯ãªã—ã‚’ã—ã¾ã—㟠- ゆã†ã†ãブãƒã‚° songmuã•ã‚“ : Tengã¨Redisã«é–¢ã™ã‚‹ãŠè©± ãŠãらãã¯ãã‚Œã•ãˆã‚‚平凡ãªæ—¥ã€…: Kyoto.pmã«è¡Œã£ã¦ã
Spellunker - Pure perl implementation of Spelling checker. - tokuhirom's blog
https://github.com/tokuhirom/Spellunkerhttps://metacpan.org/release/SpellunkerNowadays, I got trouble by xt/01_spelling.t. Then I wrote a new spelling checker written in perl. Pros. No C compiler required.Dictionaries included in distributionInstallable from CPANReadable code for CPAN AuthorsOptimized for CPAN modulesCons. It's new. Bit unstable.You can use it as testing module like following: use
Best practice to using Test::Perl::Critic - tokuhirom's blog
Perl::Critic loads all installed policies by default. It means, perlcritic loads "ProhibitAccessOfPrivateData" if it's installed. I don't like that policy. I don't want to write excluding rules for each optional policies. And so, I need to write a lot of policies for 'excludes' section to exclude policies, I don't like. I got an idea. I SHOULD list include policies instead of excludes policies. It
Starman 㨠Starlet ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã¨ Accept Serialization - Hateburo: kazeburo hatenablog
Starmanã¨Starletã®é•ã„ã¯ã„ãã¤ã‹ã‚ã‚Šã¾ã™ãŒã€Starletã«ã„ãã¤ã‹æ‰‹ã‚’åŠ ãˆãŸã‚ã¨ã€é€Ÿåº¦ã¯ã©ã†ãªã£ã¦ã„ã‚‹ã®ã‹æ¯”較ã—ã¦ã¿ãŸã€‚ ãªãŠã€ä»¥ä¸‹ã®è¨˜äº‹ã¯Hello Worldã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ãªã®ã§ã€å®Ÿéš›ã®ã‚¢ãƒ—リケーションã®ãƒ‘フォーマンスã«ã¯ã‚ã¾ã‚Šå½±éŸ¿ãŒãªã„ã¨æ€ã‚ã‚Œã¾ã™ã€‚ å„ソフトウェアã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã¯ä»¥ä¸‹ã€‚ Plack-1.0023 Starman-0.3008 Starlet-0.18 Starletã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã¨ã»ã¼åŒã˜ã‚¢ãƒ—リケーションを書ã„ã¦ã‚µãƒ¼ãƒã‚’èµ·å‹•ã—㟠use Plack::Builder; use Plack::Request; my $length = 12; my $body = 'x'x$length; builder { enable 'AccessLog', logger => sub { }; sub { my $env = shift; my $req = P
[perl] Perlã§åŒã˜ã‚³ãƒ¼ãƒ‰ã‚’é•ã†ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã™ã‚‹ - 酒日記 ã¯ã¦ãªæ”¯åº—
複数ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§åŒã˜ã‚³ãƒ¼ãƒ‰ã‚’実行ã—ã¦Benchmark.pmã§è¨ˆæ¸¬ã—ãŸã„ã€ã¨ã„ã†ã‚±ãƒ¼ã‚¹ã«ã“ã†æ›¸ã‘ã°ã„ã„ã‹ãªã€ã¨ã„ã†ä¾‹ã€‚ 普通ã«Benchmark.pmを使ã£ã¦ã—ã¾ã†ã¨åŒä¸€ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’é•ã†ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§è¤‡æ•°èªã¿è¾¼ã‚€ã“ã¨ãŒã§ããªã„ãŸã‚〠ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã”ã¨ã«åプãƒã‚»ã‚¹ã‚’ fork åプãƒã‚»ã‚¹ã§ use lib ã—㦠@INC ã‚’è¿½åŠ ã—ã¦ã‹ã‚‰ use 計測ã—ãŸçµæžœã‚’ファイルã«ä¿å˜ã—ã¦è¦ªãƒ—ãƒã‚»ã‚¹ã§é›†ç´„ã€è¡¨ç¤º ã¨ã„ã†æµã‚Œã§æ›¸ãã¾ã™ã€‚ use strict; use Benchmark qw/ :all /; use File::Temp qw/ tempfile /; use Storable qw/ nstore retrieve /; # 計測ã—ãŸã„コード my $code = sub { my $c = Cache::Redis->new; for ( 1 .. 10 ) { $c->s
![[perl] Perlã§åŒã˜ã‚³ãƒ¼ãƒ‰ã‚’é•ã†ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã™ã‚‹ - 酒日記 ã¯ã¦ãªæ”¯åº—](https://cdn-ak-scissors.b.st-hatena.com/image/square/2f4f2e1bfae364f13d3bb5210f048b6e928302dc/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F13208692334729889028%2F8454420450078126085%2F1419604085)
WWW::Lingr::Simple 上ã’ã¾ã—㟠- NeverBlog::Likk::Unexistable;
追記: 2013/03/17 21:11 githubã«ä¸Šã’ã¾ã—㟠å˜ã«ãƒã‚°æŒã£ã¦ãã‚‹ã ã‘ã®ç°¡å˜ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãªã®ã§Simpleã¤ã‘ãŸã€‚ 発言機能をã¤ã‘ã¦ã‚‚ã„ã„ã‘ã©ã€ID/PassãŒå¿…é ˆã«ãªã‚‹ã®ã§è€ƒãˆä¸ã€‚ ==ã“ã“ã¾ã§è¿½è¨˜== ゆるãµã‚ãªã‹ã‚“ã˜ã§ perl ã®è©±é¡Œã‚’ã™ã‚‹ãŸã‚ã®ãƒãƒ£ãƒƒãƒˆãƒ«ãƒ¼ãƒ ã‚’ã¤ãã£ã¦ã¿ãŸ - tokuhirom's blog. Perlã®è©±é¡Œã‚’日本語㧠– Lingr ã¨ã„ã†ã“ã¨ã§ã€Lingr ã§ã‚«ã‚¸ãƒ¥ã‚¢ãƒ«ã«Perlã®è©±ã™ã‚‹ã®ãŒãƒ–ームã¿ãŸã„ãªã®ã§ã€ éžå¸¸ã«ã‚„ã£ã¤ã‘ã§ã¯ã‚ã‚‹ãŒã€WWW::Lingr ã‹ã„ãŸã€‚ ãŸã ã€ç™ºè¨€ã‚’拾ã£ã¦ãã‚‹ã ã‘ã®éžå¸¸ã«ã‚·ãƒ³ãƒ—ルãªã‚‚ã®ã¨ãªã£ã¦ã„ã‚‹ãŒã€LingrアカウントæŒã£ã¦ã„ãªãã¦ã‚‚見るã“ã¨ã¯ã§ãã‚‹ã®ã§ã€ 雰囲気を軽ã見ã¦ã¿ãŸã„人 ～ 張り付ã„ã¦ã¿ã¦ã„ãŸã„人ã¾ã§ä½¿ãˆã¾ã™ã€‚ ã“れを10分感覚ãらã„ã§æ‹¾ã£ã¦ãるよã†ã«ã—ã¦ç¤¾å†…ã§ã‚‚観察ã§ãるよã†ãªæ„Ÿã˜ã«ã—ãŸã€‚
Perlã§STDIN/STDOUTã‚’ä»»æ„ã®ãƒ•ã‚¡ã‚¤ãƒ«ãƒãƒ³ãƒ‰ãƒ«ã«ç½®ãæ›ãˆã‚‹ - ãŸã”ã‚‚ã‚Šã™ãƒ¡ãƒ¢
ã„ã¾æ›¸ã„ã¦ã‚‹ã‚³ãƒ¼ãƒ‰ã§ã€forkã—ã¦execã™ã‚‹ã‚“ã ã‘ã©ã€execã™ã‚‹å‰ã«STDIN/STDOUTã‚’ä»»æ„ã®ãƒ•ã‚¡ã‚¤ãƒ«ãƒãƒ³ãƒ‰ãƒ«ã«ç½®ãæ›ãˆãŸã„ãªãƒ¼ã€ã‚‚ã£ã¨ã„ã†ã¨execã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ ã®STDINã«ã‚½ã‚±ãƒƒãƒˆã®READã‹ã‚‰æµã‚Œã¦ãるデータをæµã—込んã§ã€STDOUTã®å‡ºåŠ›ã‚’ソケットã®WRITEã«æµã—込んã§ã‚„ã‚ŠãŸã„ãªãƒ¼ã€ã¨ã„ã†ã‚ˆã†ãªã“ã¨ã‚’考ãˆã¦ã„ãŸã€‚ ã§ã€ã“ã‚ŒãŒä¾‹ãˆã°ä»Šã®ãƒ—ãƒã‚»ã‚¹ã®STDOUTã®å‡ºåŠ›ã‚’ファイルã«ç½®ãæ›ãˆã‚‹ã«ã¯ã€ä»¥ä¸‹ã®ã‚ˆã†ã«ã™ã‚Œã°ã„ã„。 open(STDOUT, '>', '/path/to/file'); シェルスクリプトã§ã‚‚ç°¡å˜ã€‚*1 exec >> /path/to/file ã•ã¦ã€STDIN/STDOUTã¨connect済ã¿ã®ã‚½ã‚±ãƒƒãƒˆã‚’çµåˆã—ãŸã„。connect済ã¿ã®ã‚½ã‚±ãƒƒãƒˆã¯ãƒ•ã‚¡ã‚¤ãƒ«ãƒ‡ã‚£ã‚¹ã‚¯ãƒªãƒ—ã‚¿ã¯æŒã£ã¦ã„ã‚‹ãŒãƒ•ã‚¡ã‚¤ãƒ«ãƒ‘スをæŒã£ã¦ã„ãªã„ã€ã®ã§ã€æ™®é€šã«openã—ç›´ã™ã ã‘ã§ã¯ã†ã¾ãã„ã‹
ランã‚ング
ランã‚ング
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
åˆã‚㦠Perl ã§ã‚³ãƒ¼ãƒ‰ã‚’書ã時ã«çŸ¥ã£ã¦ãŠããŸã‹ã£ãŸã“㨠- ã‚らã³ã日記
{{#tags}}- {{label}}
{{/tags}}