[B! xs] gfxã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

gfx id:gfx

xsã«é–¢ã™ã‚‹gfxã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (41)

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

Perl5 ã«ãŠã‘ã‚‹ B optree ã®æ“ä½œæ–¹æ³•å…¥é–€ - tokuhirom's blog
ã„ã‚ˆã„ã‚ˆä»Šé€±ã‹ã‚‰ YAPC ã ã€‚YAPC ã«ã‚ã‚ã›ã¦ã€Perl5 ã®å†…éƒ¨æ§‹é€ ã‚’å¾©ç¿’ã§ãã‚‹ã‚¨ãƒ³ãƒˆãƒªãƒ¼ã‚’æ›¸ã„ãŸã®ã§ã”ä¸€èªã„ãŸã ããŸã„ã€‚ Perl5 hack ã«ãŠã„ã¦ã¯ã€XS ã‚’ã¤ã‹ã£ãŸ B optree ã®æ“ä½œãŒæ¥½ã—ã„ã€‚B optree ã¨ã„ã†ã®ã¯ã„ã‚ã‚†ã‚‹ AST(æŠ½è±¡æ§‹æ–‡æœ¨) ã§ã‚ã‚‹ã€‚Perl5 ã¯ byte code interpreter ãªã©ã§ã¯ãªãæ˜”ãªãŒã‚‰ã® AST ã‚’ãã®ã¾ã¾ãªã‚ã‚‹ã‚¤ãƒ³ã‚¿ãƒ—ãƒªã‚¿ã§ã‚ã‚‹ã€‚ã§ã‚ã‚‹ã‹ã‚‰ã€ã“ã® B optree ã‚’æ“ä½œã™ã‚Œã°ã€ç°¡å˜ã«ã‚¤ãƒ³ã‚¿ãƒ—ãƒªã‚¿ã®æŒ™å‹•ã‚’å¤‰ãˆã‚‰ã‚Œã‚‹ã¨ã„ã†ãƒ¯ã‚±ã€‚ ä¸€æ–¹ã§ã€B optree ã®æ“ä½œã«ã¤ã„ã¦ã¯ã€ã‚ã¾ã‚ŠçŸ¥ã‚‰ã‚Œã¦ã„ãªã„ã—æƒ…å ±ãŒã™ããªã„ã€‚æ—¥æœ¬èªžã§ã‚‚æƒ…å ±ãŒã™ããªã„ã—ã€è‹±èªžã§ã‚‚ã¾ãŸæƒ…å ±ãŒã™ããªãã€ãã‚Œã£ã½ã„ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ã‚³ãƒ¼ãƒ‰ã‚’ã‚ˆã¿ãªãŒã‚‰ä¼šå¾—ã™ã‚‹ã—ã‹ãªã„ã®ãŒç¾çŠ¶ã ã€‚ ã™ã“ã—ã§ã‚‚ B åˆå¿ƒè€…ãŒã€ã‚¹ãƒ†ãƒƒãƒ—ã‚¢ãƒƒãƒ—ã§ãã‚‹ã‚ˆã†ã«ã€ç§ã®ã‚‚ã£ã¦ã„ã‚‹æƒ…å ±ã‚’ã“ã“
gfx 2013/09/17
XS
ãƒªãƒ³ã‚¯
Module::Build::Pluggable::XSUtil ã¨ Minilla ã®ç›¸æ€§ãŒæ‚ªã„ã®ã§ Module::Build::XSUtil ä½œã‚Šã¾ã—ãŸ - WebService::Blog->new( user => â€™hide_o_55â€™ )
Minillaã‚’ä½¿ã„å§‹ã‚ãŸã®ã§ã™ãŒã€Minillaã¨Module::Build::Plaggableã¯å…±ã«Module::Build::subclass()ã‚’ä½¿ç”¨ã—ã¦ã„ã¦ã€Module::Build::subclass()ã¯å¤šé‡ã«ä½¿ãˆãªã„ã¨ã„ã†åˆ¶ç´„ã®ãŸã‚ä¸€ç·’ã«ã¯ä½¿ãˆã¾ã›ã‚“ã€‚ XSãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã¯Module::Build::Pluggable::XSUtilã‚’ä½¿ã£ã¦ã„ãŸãŸã‚ã€Minillaã§ã‚‚åŒç‰ã®ã“ã¨ã‚’è¡Œã†ãŸã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« Module::Build::XSUtil ã‚’ä½œã‚Šã¾ã—ãŸã€‚ GitHub MetaCPAN Minillaå°‚ç”¨ã¨ã„ã†ã‚ã‘ã§ã¯ãªãã€ç´ ã®Build.PLã§ã‚‚ä½¿ãˆã¾ã™ã€‚ ãªãŠã€ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã®åå‰ã¯Module::Buildã®æµå„€ã«è¿‘ã„ã‹ãŸã¡ã«ã‚¢ãƒ¬ãƒ³ã‚¸ã—ã¦ã„ã¾ã™ã€‚ use strict; use warnings; use Module::Build::XSUtil; my $
gfx 2013/09/01
perl

XS
ãƒªãƒ³ã‚¯
Digest::BLAKE2ä½œæˆã§å¦ã¶ãƒ¢ãƒ€ãƒ³Perl XSãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ä½œæˆã¨ã€æŒ«æŠ˜
Perlã‚’3è¡Œæ›¸ãã¨æ»ã¬å¥‡ç—…ã«ã‹ã‹ã£ã¦ã¯ã‚„æ•°å¹´ã€æ¯Žæ—¥é’æ¯åæ¯ã§å‡ºç¤¾ã—ã¦ã„ã‚‹åƒ•ã§ã™ã€‚ä¸€ç•ªå¥½ããªè¨€èªžã¯Cè¨€èªžã§ã™ã€‚è£åˆ‡ã‚‰ãªã„ã‹ã‚‰ã€‚ ã¨ã„ã†ã‚ã‘ã§ã€è£åˆ‡ã‚‰ãªã„Cè¨€èªžã§Perlã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‹ã‘ã‚Œã°æ»ã¬å¯èƒ½æ€§ãŒä½Žã¾ã‚‹ã®ã§ã¯ãªã„ã‹ã€ã¨ã„ã†ä»®èª¬ã®ã‚‚ã¨ã«ã€XS moduleä½œæˆã‚’ç¿’ä½œã—ã¦ã¿ã‚ˆã†ã€‚ BLAKE2ã¨ã„ã†ã¨ã‚ˆã•ã’ãªãƒãƒƒã‚·ãƒ¥ã‚¢ãƒ«ã‚´ãƒªã‚ºãƒ ãŒã‚ã‚‹ã®ã§ã€ãã‚Œã‚’Perl moduleåŒ–ã—ã¦ã¿ãŸã€‚ https://github.com/gunyarakun/p5-Digest-BLAKE2 http://search.cpan.org/~gunya/Digest-BLAKE2/ ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ ã¾ãšã¯ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã‹ã‚‰ã€‚ BLAKE2ã«ã¯4ã¤ã®ã‚¢ãƒ«ã‚´ãƒªã‚ºãƒ ãŒã‚ã‚‹ãŒã€ãƒžãƒ«ãƒãƒ—ãƒã‚»ã‚¹ç‰ˆã¯ã‚»ã‚°ãƒ•ã‚©ã—ãŸã®ã§ã€BLAKE2bã¨BLAKE2sã®ã¿ã€‚ BLAKE2bã¯64bit CPUã§é«˜é€Ÿã«å‹•ã512bitå‡ºåŠ›ã€‚BLAK
gfx 2013/02/10
XS
ãƒªãƒ³ã‚¯
perl - å‹æ‰‹ã«æ·»å‰Š - Text::MeCab by DMAKI : 404 Blog Not Found
2006å¹´05æœˆ02æ—¥17:15 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - å‹æ‰‹ã«æ·»å‰Š - Text::MeCab by DMAKI ã¨ã„ã†ã‚ã‘ã§ã€ã“ã®ã¨ã“ã‚æ¯Žæ—¥ã‚„ã£ã¦ã‚‹å‹æ‰‹ã«æ·»å‰Šã®ã‚³ãƒ¼ãƒŠãƒ¼ã€‚ä»Šå›žã¯DMAKIç‰ˆText::MeCabã€‚ Advanced Perl Programming, 2nd Ed. Simon Cozens [é‚¦è¨³:å®Ÿç”¨Perlãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ç¬¬2ç‰ˆ] D-5 å‡ºå¼µç‰ˆã‚¢ãƒƒãƒ—ã—ãŸã€‚ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã¨ã‹ã¯ã‚ã¾ã‚Šãƒ†ã‚¹ãƒˆã—ã¦ãªã„ã®ã§å•é¡Œã‚ã£ãŸã‚‰æ•™ãˆã¦ãã ã•ã„ã€‚ä»Šå›žã®ã‚½ãƒ¼ã‚¹ã¯ã€ãŸã£ãŸã“ã‚Œã ã‘ã€‚ Text-MeCab-0.02/lib/Text/MeCab.pm package Text::MeCab; use strict; use vars qw($VERSION @ISA %EXPORT_TAGS @EXPORT_OK); BEGIN { $VERSION
gfx 2011/11/16
XSã«è©°ã‚è¾¼ã¿ã™ãŽã‚‹ã¨ã‚ˆããªã„ã‚ˆã¨ã„ã†è©±ã€‚

XS
ãƒªãƒ³ã‚¯
Text::AAlibã‚’æ›¸ã„ã¦ã„ã¾ã™ã€‚ - Shohei Yoshida's Diary
XSã‚’æ›¸ãç·´ç¿’ã®ç¶šãã€‚ å‰å›žã¯ã”ã‚Šã”ã‚Šã¨XSã§æ›¸ãã¨ã„ã†ã‚‚ã®ã ã£ãŸã®ã§ã€ ä»Šå›žã¯ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã®ãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°ã«ãƒãƒ£ãƒ¬ãƒ³ã‚¸ã€‚ æ‰±ã†ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã¯ An ascii-art library ã¨ã„ã†ã‚¢ã‚¹ã‚ãƒ¼ã‚¢ãƒ¼ãƒˆã‚’ä½œã‚‹ãŸã‚ã®ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã€‚ é–‹ç™ºãƒªãƒã‚¸ãƒˆãƒª syohex/p5-Text-AAlib Â· GitHub ç¾çŠ¶ å¿…è¦æœ€ä½Žé™ãªæ©Ÿèƒ½ã ã‘ã¨ã‚Šã‚ãˆãšå®Ÿè£…ã—ã¾ã—ãŸã€‚ æ©Ÿèƒ½çš„ã«ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆèªã‚“ã ã ã‘ã§ã¯ã‚ˆãã‚ã‹ã‚‰ãªã„ã¨ã“ã‚ãŒ ã‚ã‚‹ã®ã§ã€ãã‚Œã«ã¤ã„ã¦ã¯ã‚½ãƒ¼ã‚¹ã‚’èªã‚“ã§å……å®Ÿã•ã›ã¦ã„ãäºˆå®šã§ã™ã€‚ ãƒ†ã‚¹ãƒˆã®æ›¸ãæ–¹ã‚‚ä»Šä¸€ã¤ã‚ã‹ã£ã¦ã„ãªã„ã®ã§ã€ä»–ã®ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã® å®Ÿè£…ã‚‚è¦‹ã¦å‹‰å¼·ã™ã‚‹å¿…è¦ãŒã‚ã‚Šãã†ã§ã™ã€‚ #!perl use strict; use warnings; use Text::AAlib; use Imager; my $file = shift or die "Usage: $0 image"; my $im
gfx 2011/11/14
XS

perl

binding

AA
ãƒªãƒ³ã‚¯
List::UtilsBy::XSãŒæ›¸ã‘ã¾ã—ãŸã€‚ - Shohei Yoshida's Diary
List::UtilsBy::XSã‚’æ›¸ã„ã¦ã¾ã™ã€‚ - Life is very short ã®ä½œæ¥ãŒã¨ã‚Šã‚ãˆãšã²ã¨é€šã‚Šçµ‚ã‚ã‚Šã¾ã—ãŸã€‚ List::UtilsByã®ãƒ†ã‚¹ãƒˆãƒ¦ãƒ¼ãƒ†ã‚£ãƒªãƒ†ã‚£ãŒãªãœã‹ç„¡é™ãƒ«ãƒ¼ãƒ—ã—ã¦ ã—ã¾ã†ã“ã¨ã‚„ã€Lightweight Callback APIã®åˆ¶é™ãŒã‚ã£ãŸã‚Š ã—ã¾ã™ãŒã€List::UtilsByã‹ã‚‰æŒã£ã¦ããŸãƒ†ã‚¹ãƒˆã¯æ¦‚ãé€šã£ã¦ã„ã¾ã™ã€‚ ãƒªãƒã‚¸ãƒˆãƒª syohex/p5-List-Utils-By Â· GitHub ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ Perl 5.14.1ã®çµæžœã¯ä»¥ä¸‹ã®ã‚ˆã†ã«ãªã‚Šã¾ã—ãŸã€‚ Benchmarking List::Util and List::UtilsBy::XS Bench: sort_by Rate pp xs pp 7729/s -- -37% xs 12217/s 58% -- Bench: nsort_by Rate pp xs pp 9050/s
gfx 2011/10/06
perl

xs
ãƒªãƒ³ã‚¯
How perl compiles subs and methods | Reini Urban [blogs.perl.org]
compiling, debugging, generating, optimizing (breaking stuff) This was just added to perloptree.pod in B::C Call a subroutine subname(args...) => pushmark args ... gv => *subname entersub Call a method Here we have several combinations to define the package and the method name, either compile-time (static as constant string), or dynamic as GV (for the method name) or PADSV (package name). method_n
gfx 2011/07/03
perl

XS
ãƒªãƒ³ã‚¯
XSã§C++ã‚’ä½¿ãŠã†ã¨ã—ãŸã‘ã©æŒ«æŠ˜ã—ãŸã®ã§æ•™ãˆã¦ã‚¯ãƒ³ï¼žï¼œ - Kentaro Kuribayashi's blog
è¿½è¨˜ ã‚³ãƒ¡ãƒ³ãƒˆã§ã”æ•™ç¤ºã„ãŸã ã„ãŸé€šã‚Šã€ã¨ã‚Šã‚ãˆãš#include ã‚’ã€ãƒ•ã‚¡ã‚¤ãƒ«ã®ä¸€ç•ªæœ€åˆã«ã‚‚ã£ã¦ã„ã‘ã°ã€ã‚¨ãƒ©ãƒ¼ã¯èµ·ã“ã‚‰ãªããªã‚‹ã‚ˆã†ã§ã™ã€‚id:tokuhiromã•ã‚“ã€é€šã‚Šã™ãŒã‚Šã•ã‚“ã€ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã—ãŸ!!1 C++ã®å‹‰å¼·ãŒã¦ã‚‰ã€XSã§C++ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã®ãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°ã‚’ä½œã£ã¦ã¿ã‚ˆã†ã¨æ€ã„ã¾ã—ãŸã€‚ã—ã‹ã—ã€è¶…åˆæ©çš„ãªã¨ã“ã‚ã§ã¤ã¾ã¥ã„ã¦ã—ã¾ã„ã¾ã—ãŸâ€¦â€¦ã€‚ã©ã†ã™ã‚Œã°ã„ã„ã‹ã•ã£ã±ã‚Šã‚ã‹ã‚‰ãªã„ï¼žï¼œã€‚ã€‚ã€‚ãã“ã§å‰ã„ã²ã¨ã®é™è‡¨ã‚’å¾…ã¤ã“ã¨ã«ã—ã¾ã—ãŸã€‚èª°ã‹æ•™ãˆã¦ãã‚Œãã‚Œã‚¯ãƒ³ã ãŠï¼žï¼œã€‚ã€‚ã€‚ æ¦‚è¦ MacOSX/DebianåŒæ–¹ã«ãŠã„ã¦ã€Uncoã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ãŸã‚ã«Unco.xsã‚’æ›¸ã„ã¦ã‚‹ã¨ã—ã¦ã€ä¸‹è¨˜ã®ã‚ˆã†ã«C++ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã®ãƒ˜ãƒƒãƒ€ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ #include <iostream> ã¨ã‹ã—ã¦includeã—ãŸé€”ç«¯ã€ã„ã‚ã„ã‚ã†ã¾ãã„ã‹ãªããªã‚‹ã€‚ç’°å¢ƒã«ã¤ã„ã¦ã¯ã€ã“ã®ã‚¨ãƒ³ãƒˆãƒªã®ä¸‹éƒ¨ã«è¨˜è¼‰ã€‚ ã‚„ã£ãŸã“ã¨ æº–å‚™ã™ã‚‹ã€‚
gfx 2010/11/08
Perlã®ãƒ˜ãƒƒãƒ€ãƒ•ã‚¡ã‚¤ãƒ«ã§ãƒžã‚¯ãƒã‚’å®šç¾©ã—ã¾ãã‚‹ã®ãŒå¹²æ¸‰ã—ã¦ã„ã‚‹ä»¶

xs

c++
ãƒªãƒ³ã‚¯
rafl's Devel::bt is awesome. - tokuhirom's blog
rafl's Devel::bt is awesome. http://frepan.64p.org/~flora/Devel-bt-0.01/lib/Devel/bt.pm $ perl -d:bt -MB -e'(bless \(my $o = 0), q{B::SV})->REFCNT' #0 0x00007f9c3215ab0e in __libc_waitpid (pid=<value optimized out>, stat_loc=0x7fff4c5ffbe8, options=<value optimized out>) at ../sysdeps/unix/sysv/linux/waitpid.c:32 #1 0x00007f9c319168c1 in backtrace () at bt.xs:129 #2 0x00007f9c319168ec in sighandle
gfx 2010/09/05
perl

gdb

xs
ãƒªãƒ³ã‚¯
Ctypes for Perl - Gitorious
gfx 2010/09/04
ctypes

perl

xs
ãƒªãƒ³ã‚¯
Less XS/More Ctypes - Modern Perl Programming
Perl is in better shape now than ever, but there's much left to improve. (I wrote Five Features Perl 5 Needs Now almost two years ago, and four of five are available in whole or in sufficient substitute, so that's great progress.) Rather than criticize Perl for what's going wrong (as if I were any position to do so), I prefer to suggest new areas of improvement. One of the biggest possible improve
gfx 2010/09/04
perl

xs

ctypes
ãƒªãƒ³ã‚¯
Perl 5 Internals - Books
This series contains material adopted from the Netizen Perl Training Fork, by kind permission of Kirrily Robert. [edit] Preliminaries Welcome to NetThink's Perl 5 Internals training course. This is a three-hour course which provides a hands-on introduction to how the perl interpreter works internally, how to go about testing and fixing bugs in the interpreter, and what the internals are likely to
gfx 2010/08/30
xs

perl
ãƒªãƒ³ã‚¯
ãƒ©ã‚¤ãƒ–ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã§ XS : ã«ã½ãŸã‚“ç ”ç©¶æ‰€
å¼Šç¤¾ã®ã€ã¨ã‚ã‚‹ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ã ã‘ãŒé›†ã¾ã‚‹ãƒŸãƒ¼ãƒ†ã‚£ãƒ³ã‚°ã§ã€æ¯Žé€±ãƒ©ã‚¤ãƒ–ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã§ã‚¢ãƒ«ã‚´ãƒªã‚ºãƒ å‹è² ã‚’ã‚„ã‚‹ã¿ãŸã„ãªã‚³ãƒ¼ãƒŠãƒ¼ã‚’è¨ã‘ã¦ãŸã‚Šã—ã¾ã™ã€‚ æ¯Žé€±ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯å¯¾æ±ºã‚’ã‚„ã‚Šã€æœ€å¼·ã®ã‚„ã¤ã«å‹ã¦ã‚‹ã‚¢ãƒ«ã‚´ãƒªã‚ºãƒ ã§æŒ‘æˆ¦ã—ã¾ã™ã€‚ #!/usr/local/bin/perl use strict; use Benchmark qw(:all); my @args = qw(foo bar baz); cmpthese(100000, { champ => sub { champ(\@args) }, yours => sub { yours(\@args) }, }); # winner sub champ { my $args = shift; # do something } # your code here sub yours { } å®Ÿéš›ã®ã‚‚ã®ã¯ã‚‚ã£ã¨æ•°å¤šãã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã®ãƒ‘ã‚¿ãƒ¼ãƒ³ãŒã‚ã‚‹ã®ã§ã™ãŒã€ã“ã‚“ãª
gfx 2010/06/19
xs

perl
ãƒªãƒ³ã‚¯
DO NOT write XS
DO NOT write XS Tatsuhiko Miyagawa Tsukuba.XS #1
gfx 2010/05/29
XS

perl
ãƒªãƒ³ã‚¯
PerlXS: sv_2mortal()ã‚„hv_store()ã®ã“ã¨ - EchizenBlog-Zwei
ãã‚ãã‚XSã‚’ã¡ã‚ƒã‚“ã¨ã‚„ã‚ã†ã¨æ€ã£ãŸã®ã§ã€ãƒ¡ãƒ¢ãƒªå‘¨è¾ºã®ã“ã¨ãŒè‰¯ãã‚ã‹ã‚‰ãªãã¦æ”¾ç½®ã—ã¦ã„ãŸsv_2mortal()ã‚„hv_store()ã®ã“ã¨ã«ã¤ã„ã¦èª¿ã¹ãŸã€‚ å‚è€ƒ: perlguts http://www.kt.rim.or.jp/~kbk/perl5.005/perlguts.html æœ€åˆã«çµè«–ã‚’æ›¸ã„ã¦ã—ã¾ã†ã¨ [1: sv_2mortal()] - returnã—ãªã„å¤‰æ•°ã¯å¸¸ã«sv_2mortal()ã‚’é€šã™ (æ®ç™ºæ€§ã‚’ã‚‚ãŸã›ã‚‹) - SVã¯returnã™ã‚‹ã¨ãã¯sv_2mortal()ã‚’é€šã—ã¦ã¯ãƒ€ãƒ¡ - AV, HVã¯returnã™ã‚‹ã¨ãã‚‚sv_2mortal()ã‚’é€šã™ [2: newRV_inc()] - ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹å¤‰æ•°(RV)ã‚’ä½œã‚‹ã¨ãã¯newRV_inc()ã‚’ ä½¿ã„å‚ç…§ã‚«ã‚¦ãƒ³ãƒˆã‚’ã‚¤ãƒ³ã‚¯ãƒªãƒ¡ãƒ³ãƒˆã—ã¦ãŠã (newRV_noinc()ã¯ãƒ€ãƒ¡) - ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹å¤‰æ•°ã‚‚sv_2mor
gfx 2010/05/18
perl

xs
ãƒªãƒ³ã‚¯
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ - ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’ç›®å‡¦ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã‚’çµ‚äº†äºˆå®šã§ã‚ã‚‹æ—¨ã‚’ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019å¹´æœ«ã‚’ç›®å‡¦ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æä¾›ã‚’çµ‚äº†ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã“ã®ãŸã³ã€æ£å¼ã«çµ‚äº†æ—¥ã‚’æ±ºå®šã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”ç¢ºèªãã ã•ã„ã€‚ çµ‚äº†æ—¥: 2020å¹´1æœˆ31æ—¥(é‡‘) ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1æœˆ31æ—¥(é‡‘) çµ‚äº†æ—¥ä»¥é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“ã€‚æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„ã€‚ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„ã¦ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã”åˆ©ç”¨ã®ã¿ãªã•ã¾ã«ã¯ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 è¿½è¨˜ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2æœˆ28
gfx 2010/05/07
XS

http

perl
ãƒªãƒ³ã‚¯
Faster.pm ã®æœ€é©åŒ– - tokuhirom's blog
Faster.pm ã®æœ€é©åŒ– Faster.pm ãŒã‚„ã£ã¦ã‚‹ã“ã¨ã¯ã€åŸºæœ¬çš„ã«ã¯ Perl VM ãŒã‚„ã£ã¦ã‚‹å‡¦ç†ã‚’ C ã®ã‚³ãƒ¼ãƒ‰ã«ã‹ããã ã—ãŸã ã‘ãªã®ã§ã™ã€‚ç”Ÿæˆã•ã‚Œã¦ã‚‹ C ã®ã‚³ãƒ¼ãƒ‰ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªã‹ã‚“ã˜ã ã€‚ ã“ã“ã‹ã‚‰ã•ã‚‰ã«æœ€é©åŒ–ã§ãã‚Œã°ã€ãã£ã¨é€Ÿãã§ãã‚‹ã®ã ã‘ã©ã€‚ #define PERL_NO_GET_CONTEXT #define PERL_CORE #include <assert.h> #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #if 1 # define faster_PUSHMARK_PREALLOC(count) while (PL_markstack_ptr + (count) >= PL_ markstack_max) markstack_grow () # define faster_PUSHMARK(
gfx 2010/02/05
@tokuhirom++

perl

xs

perlguts

optimization
ãƒªãƒ³ã‚¯
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
gfx 2009/09/20
xs

profile

perl
ãƒªãƒ³ã‚¯
HTTP::Parser::XS - a PSGI compatible, fast http parser - kazuhoã®ãƒ¡ãƒ¢ç½®ãå ´
ã‚“ãƒ¼ã€ã¨æ€ã£ã¦ã€æ›¸ã„ãŸã€‚GitHub - kazuho/p5-http-parser-xs: a fast http parser BLURB ã¯ã€ PSGI ã®ãƒªã‚¯ã‚¨ã‚¹ãƒˆã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’è¿”ã™ é«˜é€Ÿ åŒæœŸ httpd, éžåŒæœŸ httpd ã®ã©ã¡ã‚‰ã‚’å®Ÿè£…ã™ã‚‹éš›ã«ã‚‚ä½¿ç”¨å¯èƒ½ POST ã‚³ãƒ³ãƒ†ãƒ³ãƒ„ã®ãƒãƒ³ãƒ‰ãƒªãƒ³ã‚°ã¯ã”è‡ªåˆ†ã§ ã„ã£ãŸã‚“ãƒ•ã‚¡ã‚¤ãƒ«ã«å…¥ã‚ŒãŸã‚Šã€ã„ã‚ã„ã‚è¦ä»¶ãŒã‚ã‚‹ã—ã€ãƒ‘ãƒ¼ã‚¹ä½œæ¥ã¯ç™ºç”Ÿã—ãªã„ã®ã§ Perl ã§ã‚‚ã‚ã¾ã‚Šé…ããªã‚‰ãªã„ãŸã‚ ã¦ãªæ„Ÿã˜ã§ã™ã€‚ä»¥ä¸‹ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã€‚ $ ./http-parser-vs-xs-benchmark.pl Rate HTTP::Parser HTTP::Parser::XS HTTP::Parser 2978/s -- -95% HTTP::Parser::XS 54348/s 1725% --ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã«ä½¿ã£ãŸã‚³ãƒ¼ãƒ‰ã¯ã€ä»¥ä¸‹ã®ã¨ãŠã‚Šã€‚ #! /usr/bin/
gfx 2009/09/14
xs

psgi

perl
ãƒªãƒ³ã‚¯
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
gfx 2009/07/31
perl

xs
ãƒªãƒ³ã‚¯
1 2 3 æ¬¡ã®ãƒšãƒ¼ã‚¸