tmpfileã«ã¤ã„ã¦èª¿ã¹ãŸã“㨠- (ヽ´ω`)　
Linuxã«ãŠã„ã¦å¤§ä½“何ã‹ã‚’組んã§ã„ã‚‹ã¨ä¸€æ™‚çš„ã«ä½•ã‹ã«ä¿å˜ã—ãŸã„ã¨ã‹ãƒ¡ãƒ¢ãƒªé£Ÿã¹ãŸããªã„ã¨ã‹æ§˜ã€…ãªç†ç”±ã§ä¸€æ™‚çš„ãªãƒ•ã‚¡ã‚¤ãƒ«ã‚’作æˆã™ã‚‹ã¨æ€ã„ã¾ã™ã€‚一時的ãªãƒ•ã‚¡ã‚¤ãƒ«ã‚’作æˆã™ã‚‹ã“ã¨è‡ªä½“ã¯ãã“ã¾ã§é›£ã—ããªã/tmp/以下ã«å¥½ããªå‰ã‚’ã¤ã‘ã¦æ‰±ãˆã°ã„ã„ã¨æ€ã†ã®ã§ã™ãŒã€å¥½ãã«/tmp以下ã«ãƒ•ã‚¡ã‚¤ãƒ«ã‚’作るã®ã¯è¤‡æ•°ãƒ—ãƒã‚»ã‚¹ãŒç«‹ã¡ä¸ŠãŒã£ãŸå ´åˆã«åŒä¸€ãƒ•ã‚¡ã‚¤ãƒ«ã‚’æ„図ã›ãšè¦‹ã¦ã—ã¾ã†ã€ä»–ã®ãƒ—ãƒã‚°ãƒ©ãƒ ãŒåŒä¸€ã®åå‰ã‚’æ„図ã›ãšä½¿ç”¨ã—ã¦ã—ã¾ã†ã€ã‚»ã‚ュリティホールãªã©ã«ãªã£ã¦ã—ã¾ã†(see man tempnam)ãªã©ã®å±é™ºæ€§ãŒã‚ã‚Šã¾ã™ã€‚é ‘å¼µã‚Œã°ã“れらã®å•é¡Œã¯ãƒ•ã‚¡ã‚¤ãƒ«ã‚ªãƒ¼ãƒ—ン時ã«ãŠã‘るオプションã®O_EXCL(see man open)ã¨ãƒ•ã‚¡ã‚¤ãƒ«å生æˆã®å·¥å¤«ã§å¤§ä½“ã¯è§£æ±ºã¤ãã¯ãšã§ã™ãŒã€ã“ã‚Œã‚’é ‘å¼µã‚‰ãªãã¦ã‚„ã£ã¦ãれる仕組ã¿ãŒtmpfileã§ã™ã€‚èªã¿æ›¸ã用ã§é–‹ã„ã¦O_EXCLã§ä»–ã®ãƒ—ãƒã‚»ã‚¹ãŒåŒã˜åå‰ã§é–‹ãã“ã¨ã‚’防ãŽã¾ã™ã€‚ãŠã¾ã‘ã«ã‚ªãƒ¼ãƒ—
言語間ã«å¯„ã‚‹splitã®ä»•æ§˜ã®å·®ç•° - (ヽ´ω`)　
ãŸã¾ãŸã¾ã€goã§æ›¸ã‹ã‚ŒãŸç‰©ã‚’perlã¸ç§»æ¤ã—よã†ã¨ã—ã¦ã„ãŸã‚‰splitã®æŒ™å‹•ã®å·®ãŒå‡ºã¦ãã¾ã—ã¦ã€ä»–ã®è¨€èªžã®å ´åˆã©ã†ãªã‚‹ã‚“ã ã‚ã†ã¨ã±ã£ã¨æ€ã„ã¤ã„ãŸè¨€èªžã§å®Ÿè¡Œã—ã¦è¦‹ã¾ã—ãŸã€‚以下ã®æ–‡å—列を言語標準ã§ã¤ã„ã¦ã„ã‚‹æ–‡å—列ã®splitを実行ã—ãŸçµæžœã¨ãªã‚Šã¾ã™ã€‚ "/path/to/hoge/" 言語 çµæžœ perl(5.12) ['','path','to','hoge'] golang(1.5) ["" "path" "to" "hoge" ""] ruby(2.1) ["", "path", "to", "hoge"] ptyhon(2.7.8) ['', 'path', 'to', 'hoge', ''] js [ '', 'path', 'to', 'hoge', '' ] perl6 ("", "path", "to", "hoge", "") # (perl6-m -e 'say "/pat
Release Mouse v2.4.4 - Shohei Yoshida's Diary
https://metacpan.org/release/SYOHEX/Mouse-v2.4.4 Mouse with threads did not work on Perl 5.22.0 or higher version. This makes Text::Xslate test failure for a long time. This version fixed the issue and works with threads. Please upgrade for newer perl users. Example We expects $foo->syntax is "Kolon" but $foo->syntax is undef with older Mouse on Perl 5.22.0 or higher. This test is passed with Mous
perf + Flame Graphs 㧠Linux カーãƒãƒ«å†…ã®ãƒœãƒˆãƒ«ãƒãƒƒã‚¯ã‚’特定ã™ã‚‹ - ablog
Linuxã§ddã§1GBã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’作æˆã— perf ã§ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒªãƒ³ã‚°ã—ã€Flame Graph (ç‚Žã®ã‚°ãƒ©ãƒ•ï¼Ÿ)ã«ã—ã¦å¯è¦–化ã—ãŸã‚‚ã®ã§ã™ã€‚ Flame Graphs 㯠perf(Linux)ã€SystemTap(Linux)ã€DTrace(Solarisã€Oracle Linux(UEK)ã€Mac OS Xã€FreeBSD)ã€XPerf.exe(Windows) ãªã©ã§ã®ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒªãƒ³ã‚°çµæžœã‚’å¯è¦–化ã—ã¦æœ€ã‚‚使ã‚ã‚Œã¦ã„るコードパスを早ãæ£ç¢ºã«ç‰¹å®šã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚実体ã¯ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒªãƒ³ã‚°çµæžœã‚’グラフ(SVG)ã«å¤‰æ›ã™ã‚‹ Perl スクリプトã§ã™ã€‚ 下ã‹ã‚‰ä¸Šã«è¡Œãã»ã©ã‚³ãƒ¼ãƒ«ã‚¹ã‚¿ãƒƒã‚¯ãŒæ·±ãã€å·¦ã‹ã‚‰é–¢æ•°åã®ã‚¢ãƒ«ãƒ•ã‚¡ãƒ™ãƒƒãƒˆé †ã§ã‚½ãƒ¼ãƒˆã•ã‚Œã¦ã„ã¾ã™ã€‚一番上ã§æ¨ªå¹…ãŒåºƒã„関数ãŒCPUã‚’é•·ã使ã£ã¦ã„ã¾ã™ã€‚今回㯠"_aesni_enc1" ã¤ã¾ã‚Šæš—å·åŒ–ãŒãƒœãƒˆãƒ«ãƒãƒƒã‚¯ã«ãªã£ã¦ã„ã‚‹ã“ã¨ãŒã‚ã‹ã‚Šã¾ã™ã€‚ システ
Perlã§ãƒ†ã‚¹ãƒˆãŒã“ã‘ã¦æ³£ããã†ãªã¨ãã®TIPS
Perl 書ã„ã¦ã‚Šã‚ƒ Test::More ã§ãƒ†ã‚¹ãƒˆæ›¸ãã¾ãã‚‹ã¨æ€ã†ã®ã§ã™ãŒã€Test::More ã£ã¦ã„ã†ã‹ã€ã¾ã‚別㫠Test::More ã ã‘ãŒãã†ã¨ã„ã†ã‚ã‘ã§ã‚‚ãªã„ã®ã§ã™ãŒã€ãƒ†ã‚¹ãƒˆã“ã‘ãŸã¨ãã®ã‚±ã‚¢ãŒå分ã˜ã‚ƒãªã„ãªã¨æ€ã†ã¨ããŒã‘ã£ã“ã†ã‚ã‚Šã¾ã™ã€‚ 開発éŽç¨‹ã§æ›¸ã„ã¦ã‚‹ã‚³ãƒ¼ãƒ‰ã¨ã„ã†ã®ã¯ã€ã„ã¤ã‚‚ã„ã¤ã‚‚確信をæŒã£ã¦æ›¸ã„ã¦ã„ã‚‹ã‚ã‘ã§ã¯ãªã„ã‚ã‘ã§ã€ãã‚Œã§ãªãã¦ã‚‚ã†ã£ã‹ã‚Šé–“é•ã†ã¨ãã‚‚ã‚ã‚Šã€ã›ã£ã‹ãテスト書ã„ã¦ã„ã‚‹ã®ã«ä½•ã ã‹ã‚ˆãã‚ã‹ã‚‰ãªã„ç†ç”±ã§ã“ã‘ã¦ãƒ‘スã§ããªãã¦æ™‚間を浪費ã—ã¦ã—ã¾ã£ãŸã‚ŠãŒæ—¥å¸¸ã«ãªã£ã¦ãŸã‚Šã—ã¾ã›ã‚“ã‹ï¼Ÿ ãã†ã„ã†ã®ã‚’ç¹°ã‚Šè¿”ã—ã¦ã„ã‚‹ã¨ã‚„ãŒã¦ãƒ†ã‚¹ãƒˆå«Œã„ã«ãªã‚Šãƒ†ã‚¹ãƒˆæ›¸ã‹ãªããªã£ã¦æœ¬ç•ªã‚³ãƒ¼ãƒ‰ã«ãƒ‡ãƒãƒƒã‚°ã‚³ãƒ¼ãƒ‰ãŒå…¥ã‚Šä¹±ã‚Œã€ãƒªãƒ•ã‚¡ã‚¯ã‚¿ã‚‚ã©ã‚“ã©ã‚“ä¸å¯èƒ½ã«ãªã£ã¦å°å›žã‚ŠåŠ¹ã‹ãªã„ã¾ã¾ãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆãŒå¤±æ•—ã—ã¦å½¼å¥³ã«æŒ¯ã‚‰ã‚Œã¦ã—ã¾ã†ã‚ã‘ã§ã™ã。困りã¾ã™ã€‚ note diag explain Test::More ã«ã¯
URI::QueryParamã®query_paramよりquery_param_appendを使用ã—ãŸæ–¹ãŒã„ã„ç†ç”±ã«ã¤ã„㦠- (ヽ´ω`)　
URI::QueryParam - Additional query methods for URIshttps://metacpan.org/pod/URI::QueryParam perlã«ã¯URI::QueryParamã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã‚Šã¾ã—ã¦ã€URIモジュールã ã‘ã 㨠届ã‹ãªã„ç—’ã„ã¨ã“ã‚ã«æ‰‹ãŒå±Šãã“ã¨ã‚’ã—ã¦ãれるモジュールã§ã™ã€‚ 例ãˆã°ã€uriã‹ã‚‰ç‰¹å®šã®ãƒ‘ラメータã ã‘を削りãŸã„ã¨ã‹ãã†ã„ã†å ´åˆ URIã ã‘ã ã¨é¢å€’ãªã‚“ã§ã™ãŒã€URI::QueryParamãŒã‚ã‚Œã°å‰²ã¨ç°¡å˜ã«æ¶ˆã›ã¾ã™ã€‚ # uri_query.pl use strict; use warnings; use URI; use URI::QueryParam; my $uri = URI->new('http://google.com/'); $uri->query_form( a => 1 ); warn $uri
PDLã§æ•°å€¤è¨ˆç®— - Articles Advent Calendar 2012 Casual
ã“ã‚“ã«ã¡ã¯ã€é€±æœ«æµ·ã§ãƒžãƒ³ãƒœã‚¦ã‚’ç²ã£ã¦ã„ãŸã‚‰ãƒ©ã‚®ã‚¢ã‚¯ãƒ«ã‚¹ã«è¥²ã‚ã‚ŒãŸ@hirataraã§ã™ã€‚今回ã¯Perl Data Languageã«ã¤ã„ã¦ç´¹ä»‹ã—ã¾ã™ã€‚ Perl Data Languageã¨ã¯MATLABã‚„Numpyã€Rãªã©ã¨åŒæ§˜ã«ã€å¤šæ¬¡å…ƒé…列を効率よã扱ã£ã¦æ•°å€¤è¨ˆç®—を実ç¾ã™ã‚‹ãŸã‚ã®ãƒ©ã‚¤ãƒ–ラリã§ã™ã€‚cpanmã§æ™®é€šã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã™ã‚Œã°ä½¿ãˆã¾ã™ãŒã€ã‚°ãƒ©ãƒ•ã‚’æç”»ã—ãŸã‚Šæœ¬æ ¼çš„ãªæ•°å€¤è¨ˆç®—ã®ãƒ©ã‚¤ãƒ–ラリã§ã‚ã‚‹GSLã®ãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°ã‚’利用ã—ãŸã‚Šã™ã‚‹å ´åˆã¯homebrewã§ã‚´ãƒ‹ãƒ§ã‚´ãƒ‹ãƒ§ã—ãŸã‚Šã™ã‚‹å¿…è¦ãŒã‚ã‚‹ã®ã§ã€å¤šå°‘é ‘å¼µã£ã¦ä¸‹ã•ã„。 基本的ã«ã¯pdl関数ã§ã‚ªãƒ–ジェクトã«å¤‰æ›´ã—ã¦ã‹ã‚‰ä½¿ã„ã¾ã™ã€‚ use PDL; my $pdl = pdl [[1, 0, 0], [0, 1, 0], [0, 0, 1]]; print $pdl; ã€å®Ÿè¡Œçµæžœã€‘ [ [1 0 0] [0 1 0] [0 0 1] ] pdlãŒ
[perl] Error in tempfile() using template /tmp/XXXXXXXXXX: Have exceeded the maximum number of attempts (1000) to open temp file/dir at hoge.pl line 14. ã®ã‚ˆã†ãªã‚¨ãƒ©ãƒ¼ãŒç™ºç”Ÿã—ãŸå ´åˆã®å¯¾å‡¦æ–¹æ³• - tokuhirom's blog
File::Temp を使ã£ã¦ã„ã‚‹ã¨ã€è¡¨é¡Œã®ã‚ˆã†ãªã‚¨ãƒ©ãƒ¼ãŒç™ºç”Ÿã™ã‚‹ã“ã¨ãŒã‚る。 ã“ã‚Œã¯ä¸€ä»¶ã™ã‚‹ã¨ã€ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‹ã処ç†ãŒå¤±æ•—ã—ãŸç”¨ã«è¦‹ãˆã¦ã€ãƒ•ã‚¡ã‚¤ãƒ«é–‹ãéŽãŽã¨ã‹ã‹ãªã‚ã¨æ€ã†ã‚“ã ã‘ã©ã€å®Ÿéš›ã¯ãã†ã„ã†ã“ã¨ã§ã¯ãªã„よã†ã 。 File::Temp ã®å®Ÿè£…ã¯ã“ã®ã¸ã‚“ã«ãªã£ã¦ã„ã¦ã€è¦ã™ã‚‹ã« EEXIST ãŒç™ºç”Ÿã—ãŸå ´åˆã« 1000 回ファイルåを変ãˆã¦ãƒªãƒˆãƒ©ã‚¤ã—ã¦ã€ãã®çµæžœã¨ã—ã¦ãƒ€ãƒ¡ã ã£ãŸã¨ã„ã†ã¨ãã«ã„ã„æ„Ÿã˜ã«ã‚ãŒã‚‹ä¾‹å¤–ã§ã‚る。 https://github.com/Perl-Toolchain-Gang/File-Temp/blob/master/lib/File/Temp.pm#L602 ã“ã“を見れã°åˆ†ã‹ã‚‹é€šã‚Šã€EEXIST ã®æ™‚ã ã‘ã—ã‹æ¬¡ã®ãƒ«ãƒ¼ãƒ—ã«ã„ã‹ãªã„ã®ã§ã€OS çš„ãªå•é¡Œã§ã¯ãªã„。 https://github.com/Perl-Toolchain-Gang/File-Temp/blob/ma
vimã§perlを開発ã™ã‚‹ãŸã‚ã®æœ€å°é™ã®è¨å®š - (ヽ´ω`)　
å¿…è¦æœ€å°é™ã§vimã§ã®perl開発(utf8)ã™ã‚‹ã®ã«ã©ã‚“ãªè¨å®šæ¸¡ã—ãŸã‚‰ã„ã„ã‹ãªã¨è€ƒãˆã¦ã¾ã¨ã‚ã¦ã¿ã¾ã—ãŸã€‚ 多分ã“ã‚Œã§ã„ã‘ãã†ãªæ°—ãŒã—ã¦ã‚‹ã€‚（è¦æ¤œè¨¼)ã“れを作æˆã—ãŸéŽç¨‹ã§ä¸è¦ãªè¨å®šãªã©ã„ãã¤ã‹è‡ªåˆ†ã®ç’°å¢ƒã«ãŠã‘ã‚‹ä¸è¦ãªè¨å®šãŒç™ºè¦‹ã§ããŸã®ã¯ã‚ˆã‹ã£ãŸã€‚ 代表的ãªç‰©ã¯ä»¥ä¸‹ã®ï¼’ã¤ã‹ãªã€‚ termencoding nocompatible see Vim - set nocompatibleã¯ã‚‚ã†ã„らãªã„ - Qiita fileencodingã¨fencã®é–¢ä¿‚ãŒã„ã¾ã„ã¡ã‚ˆã分ã‹ã‚‰ãªã„ã®ã§å¾Œã§èª¿ã¹ã¾ã™ã€‚ .vimrc "must set expandtab set shiftwidth=4 set shiftround set autoindent set fileencoding=utf-8 set fileencodings=utf-8 set encoding=utf-8 set fenc=ut
Test::Kantan - Perl and Testing
This document discusses Perl testing libraries and frameworks. It provides an overview of the history of Perl testing including Test::More and Test::Class. It also introduces some newer testing libraries like Test::Pretty, Test::Ika, and Test::Kantan that aim to improve on Test::Builder and provide additional features like BDD-style testing and improved output. The document encourages trying out t
C ã«ã‚ˆã‚‹ Perl 拡張入門(
ç¾çŠ¶ã€æœ¬ç¨¿ã¯ã¯ã’ã—ãã‹ãã‹ã‘ã§ã™ã€‚フィードãƒãƒƒã‚¯ã‚’ãŠã¾ã¡ã—ã¦ãŠã‚Šã¾ã™ã€‚ ã¯ã˜ã‚ã«â€ Perl 㧠C ã®æ‹¡å¼µãŒã‚¹ãƒ©ã‚¹ãƒ©ã¨æ›¸ã‘ãŸã‚‰â€¦â€¦ã€‚C ã®æ‹¡å¼µãŒã‚¹ãƒ©ã‚¹ãƒ©æ›¸ã‘ãŸã‚‰ã€ãƒã‚¤ãƒ†ã‚£ãƒ–ã®ãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°ã‚‚スラスラ書ã‘ã‚‹ã—ã€ãƒ›ãƒƒãƒˆã‚¹ãƒãƒƒãƒˆã‚’ C ã§æœ€é©åŒ–ã™ã‚‹ãªã‚“ã¦ã“ã¨ã‚‚ãŠæ‰‹ã®ç‰©ã€‚書ã‘ãŸã‚‰ã„ã„ã‘ã©ã€XS ã£ã¦ãªã‚“ã‹ã‚€ãšã‹ã—ãã†â€¦â€¦ã€‚ ã¡ãŒã†ã‚“ã§ã™! 今ã¾ã§ã® XS ã®æ•™ãˆæ–¹ãŒã¾ã¡ãŒã£ã¦ã„ãŸã‚“ã§ã™!ã“ã®æ•™æã‚’ã¤ã‹ãˆã°ã€èª°ã§ã‚‚ç°¡å˜ã«ä»Šã™ãã« XS を書ã‘るよã†ã«ãªã‚‹ã‚“ã§ã™ã€‚Perl ã® C 拡張を書ã„ã¦åŒåƒšã‚„上å¸ã‚’ アッー! ã¨è¨€ã‚ã›ã¡ã‚ƒãŠã†! ã“ã®æ•™æã§ã¯ XS ã®ã‚„ã‚„ã“ã—ã„機能をã¤ã‹ã‚ãšã«ã€Perl ã® C 拡張を書ã方法をä¼æŽˆ!åˆå¿ƒè€…ã§ã‚‚ã™ãã« C æ‹¡å¼µãŒæ›¸ã‘るよã†ã«ãªã‚‹ãž! å‰æ知è˜â€ 本稿ã§ã¯ä¸€èˆ¬çš„㪠C ã®çŸ¥è˜ãŠã‚ˆã³ Perl ã®çŸ¥è˜ã‚’èªè€…ãŒã‚‚ã£ã¦ã„ã‚‹ã“ã¨ã‚’想定ã—ã¦ã„ã¾ã™ã€‚XS ã®çŸ¥è˜ã‚„ Perl
perlã§gzipファイルを最速ã§èªã¿è¾¼ã‚€æ–¹æ³• - yukiex
ã„ãã¤ã‹æ–¹æ³•ãŒã‚ã‚‹ãŒã€ãã‚Œãžã‚Œè©¦ã—ã¦ã¿ã‚‹ã€‚ æ¡ä»¶ open éžåœ§ç¸®ãƒ•ã‚¡ã‚¤ãƒ«èªã¿è¾¼ã¿ open zcat(gzip -cd) 標準出力èªã¿è¾¼ã¿ IO::File zcat(gzip -cd) 標準出力èªã¿è¾¼ã¿ Compress::Zlib サンプルファイル 内容 CSVファイル 行数 6309è¡Œ sample.csv 1661636 bytes (1.6M bytes) sample.csv.gz 196774 bytes (193K bytes) 環境 OS Debian GNU/Linux 4.0 (coLinux 0.7.1) Perl v5.8.8 メモリ 512MB/2048MB (coLinux割り当ã¦/全体） PC HP ProLiant ML115 (Windows XP) 使ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« Compress-Zlib 2.008 http://search.cpan.org/
Perl メモリ開放ã†ã‚“ã¬ã‚“ - ã¦ãã¨ãƒ¼ã«ã‚„ã‚‹
今日ã€ãƒ¡ãƒ¢ãƒªé–‹æ”¾å‘¨ã‚Šã§è©°ã¾ã£ãŸã®ã§è¦šæ›¸ã€‚ 100M程度ã®ãƒ‡ãƒ¼ã‚¿ã‚’変数ã«å…¥ã‚Œã¦ã‚´ãƒªã‚´ãƒªã‚„る際㫠スコープã‹ã‚‰å¤–ã‚ŒãŸã®ã«é–‹æ”¾ã•ã‚Œãーよã€ã¨ã„ã†äº‹æ…‹ã«é™¥ã£ãŸã®ã§ã€‚ メモリ使用é‡ã¯psãªã‚Šã‚¿ã‚¹ã‚¯ãƒžãƒãƒ¼ã‚¸ãƒ£ãªã‚Šã§ç¢ºèªã—ãŸã€‚ create_scar(); sleep; sub create_scar { my $scar; $scar .= " " for ( 1.. 1000000 ); } 例ãˆã°ã€â†‘ã ã¨ãƒ¡ãƒ¢ãƒªé£Ÿã„ã£ã±ãªã— sub create_scar { my $scar; $scar .= " " for ( 1.. 1000000 ); undef $scar; } ↑undefã™ã‚Œã°é–‹æ”¾ã€‚ã‚ãŸã‚Šã¾ãˆã‹ã€‚ create_scar(); create_scar(); sleep; sub create_scar { my $scar; $scar .= " " for ( 1.. 10000
Perlã§ã®ãƒ¡ãƒ¢ãƒªé–‹æ”¾ã«ã¤ã„㦠- skozawa's blog
Perlã§å¤§è¦æ¨¡ãªå‡¦ç†ã‚’ã—ãŸã¨ãã«ã€ãƒ¡ãƒ¢ãƒªã«æ°—を使ã‚ãªã„ã¨ã„ã‘ãªã„ã“ã¨ãŒã‚ã£ã¦ã€ãƒ¡ãƒ¢ãƒªã®é–‹æ”¾ã«ã¤ã„ã¦èª¿ã¹ãŸã¨ãã«ã€ä»¥ä¸‹ã®ãƒšãƒ¼ã‚¸ã‚’見ã¦ã€ã‚¹ã‚³ãƒ¼ãƒ—外れãŸã ã‘ã§ã¯ãƒ¡ãƒ¢ãƒªé–‹æ”¾ã•ã‚Œãªã„ã“ã¨ã‚’知ã£ãŸã®ã§ã€è‡ªåˆ†ã§ã‚‚試ã—ã¦ã¿ãŸã€‚ http://skitai.blog98.fc2.com/blog-entry-49.html メモリ使用é‡ã®ç¢ºèªã«ã¯Â Devel::MemUsed を利用。昔ã¯cpanã«ã‚ã£ãŸã½ã„ã‘ã©ã€ä»Šã¯ãªã„よã†ãªã®ã§ã€https://github.com/jozef/devel-memused ã‹ã‚‰cloneã—ã¦ä½¿ã† use v5.14; use strict; use warnings; use lib glob "modules/*/lib"; use Devel::MemUsed; my $mem_used = Devel::MemUsed->new; $mem_used->rese
Eclipseã¨EPICã§Perlスクリプトコードã®é–‹ç™ºç’°å¢ƒã‚’ãã‚ãˆã¦ã¿ã‚ˆã† - ãŠã‚„ã¢ãŸã‹ã½ã‚“ã®è¶£å‘³ã¨å‚™å¿˜éŒ²
拡大 ã“ã“ã®ã¨ã“ã‚ãšã£ã¨Androidアプリプãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã®å‹‰å¼·ã°ã‹ã‚Šã‚„ã£ã¦ã¦ã¡ã‚‡ã£ã¨ãŠç–²ã‚Œãƒ¢ãƒ¼ãƒ‰ã€‚何気ãªã机ã®å¼•å‡ºã‚’é–‹ã‘ã‚‹ã¨ãã“ã«ã¯ç´™ãŒé»„色ã変色ã—ãŸãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°Perlã®åˆç‰ˆãŒâ€¦ã€‚ãªã¤ã‹ã—ã„ãªã€‚ã¨ã„ã†ã“ã¨ã§ã€æ°—分転æ›ã«perlスクリプトã®é–‹ç™ºç’°å¢ƒã§ã‚‚æ•´å‚™ã—ã¦ã¿ã‚‹ã‹ãªã€ã¨æ€ã„ç«‹ã¡ã¾ã—ãŸã€‚ perlスクリプトをã¾ã¨ã‚‚ã«ã•ã‚ã‚‹ã®ã¯â€¦10æ•°å¹´ã¶ã‚Šã§ã™ã(笑)。文法もã»ã¨ã‚“ã©è¦šãˆã¦ãªã„…。軽ã調ã¹ã¦ã¿ã‚‹ã¨ã€ã‚ã‚Œã‹ã‚‰perlã‚‚ãˆã‚‰ã„ã‹ã‚ã£ã¦ã‚‹ã‚ˆã†ã§ã™ã€‚よã使ã£ã¦ã„ãŸã®ã¯ã‚¯ãƒ©ã‚¹ã®æ¦‚念ãªã‚“ã¦ãªã‹ã£ãŸé ƒã‹ãªã€‚ Windows環境ãªã®ã§ã€ActivePerlをインストールã—ãŸã‚‰é–‹ç™ºç’°å¢ƒã®æ§‹ç¯‰ã¯ãŠã—ã¾ã„ã€ä»¥ä¸Šâ€¦ã€‚ ãªã®ã§ã™ãŒã€ãã‚Œã˜ã‚ƒãã¤ã¾ã‚‰ãªã„ã®ã§Eclipse上ã§Perlスクリプトã®ç·¨é›†ã€ãƒ‡ãƒãƒƒã‚°ãŒã§ãるよã†ã«ã—ã¦ã¿ã¾ã™ã€‚ 拡大 Eclipse上ã§Perlスクリプトを編集ã§ãるよã†ã«ã™ã‚‹ãŸã‚ã«ã€EPI
Server::Starterã«å¯¾å¿œã™ã‚‹ã¨ã¯ã©ã†ã„ã†ã“ã¨ã‹ - limitusus’s diary
Starletã‚„Starmanã¨çµ„ã¿åˆã‚ã›ã¦ã‚ˆã使ã‚ã‚Œã¦ã„ã‚‹Server::Starterã§ã™ãŒã€æ™®æ®µæ°—ã«ã—ãªã„よã†ãªéƒ¨åˆ†ã‚’èªã‚€æ©Ÿä¼šãŒã‚ã£ãŸã®ã§ãƒ¡ãƒ¢ã€‚ Server::Starter㯠--port (TCP) ã‚„ --path (Unix Domain Socket) を渡ã™ã¨ã“ã‚Œã§listen(2)ã—ã¦èµ·å‹•ã™ã‚‹workerã«å¼•ã渡ã—ã¦ãれる。 ã“ã‚Œã¯fork(2)ã¨exec(2)ã«ã‚ˆã£ã¦ãƒ•ã‚¡ã‚¤ãƒ«ãƒ‡ã‚£ã‚¹ã‚¯ãƒªãƒ—タを引ã継ãã“ã¨ã«ã‚ˆã‚Šå®Ÿç¾ã•ã‚Œã¦ã„ã‚‹ãŒã€ãƒ•ã‚¡ã‚¤ãƒ«ãƒ‡ã‚£ã‚¹ã‚¯ãƒªãƒ—ã‚¿ãã®ã‚‚ã®ã‚’ã©ã®ã‚ˆã†ã«å¼•ã渡ã—ã¦ã„ã‚‹ã®ã‹ã€ã¨ã„ã†å•é¡Œã€‚ exec(2)ã«ã‚ˆã‚Šå®Ÿè¡Œãƒã‚¤ãƒŠãƒªã¯å·®ã—æ›ã‚ã£ã¦ã—ã¾ã†ã®ã§ã€ãƒ—ãƒã‚°ãƒ©ãƒ ä¸ã®å¤‰æ•°ã«ã‚ˆã‚Šå¼•ã継ãã“ã¨ã¯ã§ããªã„。 Server::Starterã§ã¯ã“れを環境変数SERVER_STARTER_PORTã«ã‚ˆã‚Šå®Ÿç¾ã—ã¦ã„る。 ãŠãŠã‚ˆã以下ã®ã‚ˆã†ãªæ„Ÿã˜ã€‚ FD = integer
ランã‚ング
ランã‚ング
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
Aniki::Internal
How do I detect if stdout is connected to a tty in Perl?
CERT Perl Secure Coding Standard - Perl - CERT Secure Coding Standards
GitHub - kazeburo/Gazelle: Preforked Plack Handler for performance freaks
{{#tags}}- {{label}}
{{/tags}}