javascript vs perl - プライベート変数ã«ã‚ˆã‚‹åˆæœŸåŒ– : 404 Blog Not Found
2007å¹´12月15æ—¥20:00 カテゴリLightweight Languages javascript vs perl - プライベート変数ã«ã‚ˆã‚‹åˆæœŸåŒ– ã¯ã¦ãƒ–を見るã¨ã€ã€Œã“ã‚Œã€ã»ã‚“ã¨ã«å·®ãŒå‡ºã‚‹ã®?ã€ã¨æ€ã£ã¦ã„る方もçµæ§‹ã„らã£ã—ゃるよã†ãªã®ã§ã€‚ Life is beautiful: Javascriptã€ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã‚’使ã£ãŸãƒ—ライベート関数ã®éš 蔽ã«ã¤ã„㦠「ã†ãƒ¼ã‚“ã€ãƒžãƒƒãƒ”ングã®ãŸã‚ã®ã‚ªãƒ–ジェクトを毎回作り直ã—ã¦ã„ã‚‹ã¨ã“ã‚ã‹ãªã€‚〠以下ã€10000回実行ã—ãŸçµæžœã‚’ミリ秒ã§è¡¨ç¤ºã—ã¾ã™ã€‚ã“ã“ã§_nãŒnaiveãªå®Ÿè£…ã€_cãŒã‚¯ãƒãƒ¼ã‚¸ãƒ£ãƒ¼ã‚’使ã£ã¦å¤‰æ•°åˆæœŸåŒ–を一度ã§æ¸ˆã¾ã›ã¦ã„る例ã§ã™ã€‚ç–‘ã£ã¦ã„ã‚‹æ–¹ã¯ã‚½ãƒ¼ã‚¹ã‚’ã”覧下ã•ã„。 プãƒã‚°ãƒ©ãƒ : p(benchthis(10000, code2name_n, 'ja' )); p(benchthis(10000, code2name_c, 'ja' )); 出力
Cache::Memcached::GetParserXSを使ã†ã¨é€Ÿããªã‚‹ã®ã‹ï¼Ÿ - æ—¥å‘å¤ç‰¹æ®Šå¿œæ´éƒ¨éšŠ
試ã—ã¦ã¿ãŸã€‚ã‚ã¨è¿½è¨˜ãƒ»ä¿®æ£ã—ãŸã€‚ 追記(2007-09-11T11:20:32+09:00) æ¿€ã—ã既出ã ã£ãŸã€‚(d:id:spiritloose:20060909:1157767723) id:spiritlooseã•ã‚“ã¨ã‚„ã‚ŠãŸã„æ–¹å‘性ãŒã‹ãªã‚Šè¢«ã£ã¦ã‚‹ãªã。w ã‚ã¨ã€ æ–°ã—ã„binary protocol使ãˆã°ã‚‚ã£ã¨å·®ãŒå‡ºã‚‹ã‹ã‚‚ むむï¼å¾Œã§èª¿ã¹ã‚‹ã€‚ å‰ç½®ã ã¡ãªã¿ã«Cache::Memcachedã®1.21*1ã‹ã‚‰ä½¿ãˆã‚‹Cache::Memcached::GetParserã®ä»£ã‚ã‚ŠãŒCache::Memcached::GetParserXSã§ã™ã€‚ newã™ã‚‹éš›ã«ã€ my $cache = Cache::Memcached->new({ servers => $servers, parser_class => ''Cache::Memcached::GetParserXS }); ã®ã‚ˆã†ã«
Cache::Memcached::XSã¯ã¡ã‚‡ã£ã¨é€Ÿã„ - spiritlooseã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
Cache-Memcached-XS-0.01 - client library for memcached (memory cache daemon) using libmemcache - metacpan.org libmemcache を使ã£ã¦æ›¸ã‹ã‚ŒãŸ Memcachedã®ã‚¤ãƒ³ã‚¿ãƒ¼ãƒ•ã‚§ãƒ¼ã‚¹ã€‚ 使ã„æ–¹ã¯ã»ã¼ Cache::Memcached ã¨åŒã˜ã£ã½ã„。 速度ã«ã©ã®ãらã„å·®ãŒå‡ºã‚‹ã‹ãƒ™ãƒ³ãƒã¨ã£ã¦ã¿ãŸã€‚ #!/usr/local/bin/perl use strict; use warnings; use Benchmark qw(timethese cmpthese); use Cache::Memcached; use Cache::Memcached::XS; my $bench = timethese(10000, { 'Cache::Memcached' => sub { m
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
ホームページ付箋化CGI「noteitã€
æ¦‚è¦ noteitã¯ä»Šã‚ã‚‹ã‚ãªãŸã®ãƒ›ãƒ¼ãƒ ページã«ç°¡å˜ã«ä»˜ç®‹ã‚·ã‚¹ãƒ†ãƒ ã‚’å°Žå…¥ã™ã‚‹ã“ã¨ãŒã§ãã‚‹ã¾ã£ãŸãæ–°ã—ã„ジャンルã®CGIã§ã™ã€‚ noteitãŒè¨ç½®ã§ããŸã‚‰ã€ä»¥ä¸‹ã®ä¸€è¡Œã‚’ã‚ãªãŸã®ã‚¦ã‚§ãƒ–ページã«è¿½åŠ ã—ã¦ãã ã•ã„。 <script type="text/javascript" charset="EUC-JP" src="/cgi-bin/noteit.cgi?logID=XXX"></script> noteitã®å°Žå…¥ã¯ã“ã‚Œã§çµ‚ã‚ã‚Šã§ã™ã€‚ã“ã®ä¸€è¡Œã‚’書ãã ã‘ã§ã‚ãªãŸã®ã‚¦ã‚§ãƒ–ページã¯ã™ãã«ä»˜ç®‹ã‚’貼るã“ã¨ãŒã§ãるよã†ã« ãªã‚Šã¾ã™ã€‚ 特徴 noteitã¯ä»¥ä¸‹ã®ç‰¹å¾´ã‚’å‚™ãˆã¦ã„ã¾ã™ã€‚ æ—¢å˜ã®ã‚¦ã‚§ãƒ–ページã«ä»˜ç®‹ãŒè²¼ã‚Œã‚‹ã‚ˆã†ã«ãªã‚‹ã€‚ Ajaxãªé€šä¿¡ã‚’用ã„ãŸãƒšãƒ¼ã‚¸é·ç§»ã®ãªã„付箋編集。 幅広ã„対応ブラウザ。 編集内容ã®RSSã«ã‚ˆã‚‹é…信。 ã²ã¨ã¤ã®CGIã§ã‚¦ã‚§ãƒ–ページをã„ãã¤ã§ã‚‚付箋化。 軽ã„。(30kbå‰å¾Œã€ç”»
Yusukebe::Tech: Perlã§ãƒ‹ã‚³ãƒ‹ã‚³å‹•ç”»ã®flvã¨ã‚³ãƒ¡ãƒ³ãƒˆxmlをダウンãƒãƒ¼ãƒ‰ã™ã‚‹
サã‚ã¨ã¯å½¼å¥³ã®è‡ªå®…è¿‘ãã€æ¹˜å—å°é§…å‰ã®ã‚¹ãƒ¼ãƒ‘ーマーケットã§å¾…ã¡åˆã‚ã›ã‚’ã—ãŸã€‚彼女ã¯è‡ªè»¢è»Šã§å¾Œã‹ã‚‰è¿½ã„ã¤ãã¨è¨€ã„ã€åƒ•ã¯å¤§ããªã‚³ã‚¤ãƒ³ãƒ‘ーã‚ングã¸è»Šã‚’åœã‚ãŸã€‚ç…™è‰ã‚’一本å¸ã£ã¦ã‹ã‚‰ã‚¹ãƒ¼ãƒ‘ーマーケットã¸å‘ã‹ã†ã¨ã€ã²ã£ãã‚Šãªã—ã«ä¸»å©¦çš„ãªå¥³æ€§ã‹ãŠã°ã‚ã¡ã‚ƒã‚“ãŒå…¥ã‚Šå£ã‚’出ãŸã‚Šå…¥ã£ãŸã‚Šã—ã¦ã„ãŸã€‚時刻ã¯åˆå¾Œ5時ã«ãªã‚‹ã€‚時計ã‹ã‚‰ç›®ã‚’上ã’ã‚‹ã¨ã€å¾…ãŸã›ã¡ã‚ƒã£ãŸã‚ãã¨å¤§ã—ã¦æ‚ªã³ã‚Œã¦ãªã„様åã§ã‚µã‚ãŒæ‰‹ã¶ã‚‰ã§ã‚„ã£ã¦ããŸã€‚ ãŠç¤¼ã«æ–™ç†ã‚’作るã¨ã¯ã„ãˆã€ã‚µã‚ã®å®¶ã«ã¯é£ŸæãŒå分足りã¦ã„ãªã„らã—ãã€ã“ã†ã—ã¦ã‚¹ãƒ¼ãƒ‘ーマーケットã«å¯„ã‚‹ã“ã¨ã«ãªã£ãŸã€‚サã‚ã¯é‡Žèœã‚³ãƒ¼ãƒŠãƒ¼ã‹ã‚‰ç²¾è‚‰ã‚³ãƒ¼ãƒŠãƒ¼ã¾ã§ã€ã¾ã‚‹ã§å„ªç§€ãªã‚«ãƒ¼ãƒŠãƒ“ã«å°Žã‹ã‚Œã‚‹ã‚ˆã†ã«ç„¡é§„ãªã点検ã—ã¦ã„ã£ãŸã€‚欲ã—ã„食æãŒã‚ã‚‹ã¨ã€2秒間程度ãれらをå‡è¦–ã—ã€ä¸€åº¦æ‰‹ã«å–ã£ãŸã˜ã‚ƒãŒã„もやら豚肉やらを迷ã†ã“ã¨ãªã僕ãŒæŒã£ã¦ã„ã‚‹ã‚«ã‚´ã«æ”¾ã‚Šè¾¼ã‚“ã 。最後ã«ã‚¢ãƒ«ã‚³ãƒ¼ãƒ«é£²æ–™ãŒå†·ã‚„ã•ã‚Œã¦ã„る棚ã®å‰ã¸è¡Œãã¨ã€ç§ãŒé£²ã‚€ã‹ã‚‰ã¨ãƒ
Perl ã® iThread 使ã£ã¦è² è·è©¦é¨“ツールを書ã„ã¦ã¿ãŸ
ãˆãƒ¼ã£ã¨ã€æœ€è¿‘ã®ãŠä»•äº‹ã§ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹é–¢é€£ã‚„ã£ã¦ã¾ã—ã¦ã€DBMS ã¨ã—ã¦ã®æ€§èƒ½è©¦é¨“ã¿ãŸã„ãªã®ã‚’実施ã—ãŸãã¦ï¼ˆã—ãªãã¦ã¯ã„ã‘ãªãã£ã¦ãƒ»ãƒ»ãƒ»ï¼‰ã€Perl ã§ä½œã£ã¦ã¿ã¾ã—ãŸã€‚ ã„ã‚„ã€Apache bench ã¨ã‹ä½¿ã£ã¦ã‚‚ã„ã„ã‚“ã§ã™ãŒã€httpd ã®ãƒ¡ãƒ¢ãƒªä½¿ç”¨é‡ã¨ã‹ã‚‚馬鹿ã«ãªã‚‰ãªã„ã®ã§ã€Perl ã® ithread 使ã£ã¦æ›¸ã„ã¦ã¿ã‚‹ã“ã¨ã«ã—ã¾ã—ãŸã€‚ →Perl ã® ithread 使ã†ã¨ãƒ¡ãƒ¢ãƒªä¸€æ¯ä½¿ã†ã®ã§ã€çµæžœçš„ã«åŒã˜ã ã£ãŸã‘ã©ãƒ»ãƒ»ãƒ»ï¼ˆè‹¦ç¬‘ プãƒã‚°ãƒ©ãƒ ã®æ§‹é€ ã¯ã€producer & consumer モデルã£ã¦ã‚„ã¤ã®å¿œç”¨ã§ã™ã€‚具体的ã«ã¯ã“ã‚“ãªæ„Ÿã˜ã€‚ ã§ã€è² è·ã‚¹ã‚¯ãƒªãƒ—トを走らã›ã¦ã„ã‚‹é–“ã«ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã‚µãƒ¼ãƒã®è² è·ã‚’ vmstat ãªã‚Šã€sar ãªã‚Šã§è¨ˆæ¸¬ã™ã‚Œã°ï¼¯ï¼«ã§ã™ã€‚ã‚ューã«æŠ•å…¥ã™ã‚‹ãƒªã‚¯ã‚¨ã‚¹ãƒˆæ•°ï¼ˆproducer スレッド㮠enqueue 数）や処ç†ã‚¹ãƒ¬ãƒƒãƒ‰æ•°ï¼ˆconsumer スレッドã®æ•°ï¼‰ã‚’増減
ゆーã™ã‘ã¹ãƒ¼æ—¥è¨˜
サã‚ã¨ã¯å½¼å¥³ã®è‡ªå®…è¿‘ãã€æ¹˜å—å°é§…å‰ã®ã‚¹ãƒ¼ãƒ‘ーマーケットã§å¾…ã¡åˆã‚ã›ã‚’ã—ãŸã€‚彼女ã¯è‡ªè»¢è»Šã§å¾Œã‹ã‚‰è¿½ã„ã¤ãã¨è¨€ã„ã€åƒ•ã¯å¤§ããªã‚³ã‚¤ãƒ³ãƒ‘ーã‚ングã¸è»Šã‚’åœã‚ãŸã€‚ç…™è‰ã‚’一本å¸ã£ã¦ã‹ã‚‰ã‚¹ãƒ¼ãƒ‘ーマーケットã¸å‘ã‹ã†ã¨ã€ã²ã£ãã‚Šãªã—ã«ä¸»å©¦çš„ãªå¥³æ€§ã‹ãŠã°ã‚ã¡ã‚ƒã‚“ãŒå…¥ã‚Šå£ã‚’出ãŸã‚Šå…¥ã£ãŸã‚Šã—ã¦ã„ãŸã€‚時刻ã¯åˆå¾Œ5時ã«ãªã‚‹ã€‚時計ã‹ã‚‰ç›®ã‚’上ã’ã‚‹ã¨ã€å¾…ãŸã›ã¡ã‚ƒã£ãŸã‚ãã¨å¤§ã—ã¦æ‚ªã³ã‚Œã¦ãªã„様åã§ã‚µã‚ãŒæ‰‹ã¶ã‚‰ã§ã‚„ã£ã¦ããŸã€‚ ãŠç¤¼ã«æ–™ç†ã‚’作るã¨ã¯ã„ãˆã€ã‚µã‚ã®å®¶ã«ã¯é£ŸæãŒå分足りã¦ã„ãªã„らã—ãã€ã“ã†ã—ã¦ã‚¹ãƒ¼ãƒ‘ーマーケットã«å¯„ã‚‹ã“ã¨ã«ãªã£ãŸã€‚サã‚ã¯é‡Žèœã‚³ãƒ¼ãƒŠãƒ¼ã‹ã‚‰ç²¾è‚‰ã‚³ãƒ¼ãƒŠãƒ¼ã¾ã§ã€ã¾ã‚‹ã§å„ªç§€ãªã‚«ãƒ¼ãƒŠãƒ“ã«å°Žã‹ã‚Œã‚‹ã‚ˆã†ã«ç„¡é§„ãªã点検ã—ã¦ã„ã£ãŸã€‚欲ã—ã„食æãŒã‚ã‚‹ã¨ã€2秒間程度ãれらをå‡è¦–ã—ã€ä¸€åº¦æ‰‹ã«å–ã£ãŸã˜ã‚ƒãŒã„もやら豚肉やらを迷ã†ã“ã¨ãªã僕ãŒæŒã£ã¦ã„ã‚‹ã‚«ã‚´ã«æ”¾ã‚Šè¾¼ã‚“ã 。最後ã«ã‚¢ãƒ«ã‚³ãƒ¼ãƒ«é£²æ–™ãŒå†·ã‚„ã•ã‚Œã¦ã„る棚ã®å‰ã¸è¡Œãã¨ã€ç§ãŒé£²ã‚€ã‹ã‚‰ã¨ãƒ
Perl/fork - Nekokak's core dump
Parallel::ForkManagerを使ã£ãŸãƒ•ã‚©ãƒ¼ã‚¯æŠ€ ã¤ã„ã§ã«LWPx::TimedHTTPã¨ã‹ä½¿ã£ã¦æ™‚é–“ã¨ã¦ã¿ã‚‹ã€‚ å‚考リンク CPAN (Parallel::ForkManager) CPAN (LWPx::TimedHTTP) perldoc.jp (Parallel::ForkManager) Parallel::ForkManagerã¯ä½¿ã„å‹æ‰‹ãŒã„ã„。 ä¾å˜ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚‚å°‘ãªã„ã—ã€åŸºæœ¬ç½®ã‘ã°å‹•ãã¯ãšã€‚自分ã§forkã•ã›ã‚‹ã‚ˆã‚Šãƒ©ã‚¯ãƒãƒ³ã€‚ LWPx::TimedHTTPã¯æ™‚é–“ã¨ã‚‹ã®ã«ä¾¿åˆ©ã ã™ã€‚ 例ã«ã‚ˆã¦ã‚µãƒ³ãƒ—ル。 #! /usr/bin/perl use strict; use warnings; use LWP; use LWPx::TimedHTTP qw(:autoinstall); use Parallel::ForkManager; my $pm = new Para
hide-k.net#blog: Web::Scraperã§CISCO RECORDSをスクレーピング
ã„ã¾ã•ã‚‰Web::Scraperを使ã£ã¦ã¿ã¾ã—ãŸã€‚ 使ã†ãƒã‚¿ãŒãªã‹ã£ãŸã®ãŒã‚¹ãƒ«ãƒ¼ã—続ã‘ãŸä¸€ç•ªã®ç†ç”±ã ã£ãŸã®ã§ã™ãŒã€ãã‚Œã§ã¯ã„ã‘ãªã„ã¨æ€ã„ã€CISCO RECORDSã®å•†å“æƒ…å ±ã‚’å–å¾—ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—トã¨ã„ã†ã€åƒ•ä»¥å¤–誰も興味ãŒãªã„スクリプトを書ã„ã¦ã¿ã¾ã—ãŸã€‚ cisco_scraper.pl #!/usr/bin/perl use strict; use warnings; use Web::Scraper; use URI; use YAML; use Data::Dumper; my $uri = shift; my %scraper; $scraper{'link'} = scraper { process 'a', 'name' => 'TEXT'; process 'a', 'uri' => sub { return URI->new_abs( $_->attr('href'), $u
Kwikiã®è¨å®š - Practice of Programming
ã¡ã‚‡ã£ã¨å‰ã«ã€Kwikiをインストールã—ã¦ã€ã»ã£ãŸã‚‰ã‹ã—ã«ã—ã¦ãŸã®ã§ã™ãŒã€è¨å®šã„ã˜ã£ã¦ã¿ã¾ã—ãŸã€‚ Kwikiã®ãƒ—ラグインã®è¨å®šã¯ã€kwiki -new ã§ä½œã£ãŸãƒ‘ス(例:/var/www/kwiki)ã® /var/www/kwiki/pluginsファイルã®ä¸ã«è¨å®šã—ã¾ã™ã€‚本æ¥ã¯ã€ kwiki -add Kwiki::...ã§ã€ã„ã‘ã‚‹ã¯ãšãªã®ã ãŒã€ Can't locate object method "plugins_file" via package "Kwiki::Config" at　/home/ktat/svk/kwiki/lib/Kwiki/Command/V1.pm line 132.ã¨ã‹è¨€ã£ã¦ã€ã„ã†ã“ã¨èžã‹ãªã„ã®ã§ã€è‡ªåˆ†ã§ç·¨é›†ã—ã¾ã—ãŸã€‚ プラグインå書ãã ã‘ã§ã„ã„ã®ã§ã€åˆ¥ã«ã‚³ãƒžãƒ³ãƒ‰ä½¿ã‚ãªãã¦ã‚‚å•é¡Œãªã—ã§ã™ã€‚ ãŸã ã—ã€ä¾å˜æ€§ã®å•é¡ŒãŒã‚ã£ãŸã‚Šã™ã‚‹ã®ã§ã€ãã†ã„ã†ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãŒã§ãŸã‚‰
madoka.org
ã ã†ã‚“ã‚ー㩠りんã News(ã‚ãŸã‚‰ã—ã„ã®ãŒã†ãˆ) madoka 4.2.10 release (2003/11/12) ãµã‚‹ã„ã«ã‚…ー㙠<img src="https://www.madoka.org/madokab1n.png"> <img src="https://www.madoka.org/madokab1s.png"> ãƒãƒŠãƒ¼ãŒã§ãã¾ã—ãŸã€‚ã¤ã‹ã£ã¦ã‚„ã£ã¦ãã ã•ã„。 madoka 4.2 madoka 4.2.10 release.(2003/11/12) madoka 4.2.10 をリリースã—ã¾ã—ãŸã€‚ madoka4 ã®å®‰å®šåŒ–ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§ã™ã€‚ cvsweb ã‚‚ã‚ã‚Šã¾ã™ madoka 4.0 madoka 4.0.36 release.(2002/11/25) madoka 4.0.36 をリリースã—ã¾ã—ãŸã€‚ madoka 4.0 ã¯ã€å®‰å®šåŒ–ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§ã™ã€‚ 今後新ãŸãªæ©Ÿèƒ½ã¯
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
O_DIRECT & O_ASYNC, Linux & Perl
sysread/syswrite and O_DIRECT alignment problem
anaglyph.pl
Kazuho@Cybozu Labs: Perl ã§ä¸¦åˆ—å‡¦ç† (using マルãƒãƒ—ãƒã‚»ã‚¹)
GAC ãªãœãªã«GAC->Perl
Perl関数リファレンス fork -- Key：雑å¦äº‹å…¸
Koders Code Search: MemCached.pm - Perl
Net::DHCPClient
{{#tags}}- {{label}}
{{/tags}}