Every XS authors should use Test::Valgrind - tokuhirom's blog
Test::Valgrind is a perl wrapper for valgrind(1). T::V helps to find invalid memory operation. You can use it by command line like following: prove --exec 'perl -Iblib/lib -Iblib/arch -MTest::Valgrind' t/*.tOr use it as test script. You can put it on xt/. use Test::More; use Test::Requires 'Test::Valgrind'; leaky();Latest stable version of valgrind is not supported OSX 10.6, yet. But, you can inst
XSã§ãƒ¡ãƒ¢ãƒªãƒ¼ã‚¯ã‚’é¿ã‘ã‚‹ãŸã£ãŸä¸€ã¤ã®æ–¹æ³• - Islands in the byte stream (legacy)
XSã§ãƒ¡ãƒ¢ãƒªãƒªãƒ¼ã‚¯ã‚’é¿ã‘る基本原則ã¯ã€ãã‚Œã»ã©é›£ã—ããªã„。ã™ãªã‚ã¡ã€ä½œã£ãŸSV(ãŠã‚ˆã³SVファミリ)ã¯ã™ãsv_2mortal()ã™ã‚‹ã®ã§ã‚る。mortalãªSVã¯ã‚¹ã‚³ãƒ¼ãƒ—*1ã‹ã‚‰æŠœã‘ã‚‹ã¨ãã«è§£æ”¾ã•ã‚Œã‚‹ãŸã‚ã€ãƒ¡ãƒ¢ãƒªãƒªãƒ¼ã‚¯ã¯èµ·ã“らãªã„。ã¤ã¾ã‚Šã€ã‚るスコープ内ã§æ–°ã—ã作ã£ãŸã™ã¹ã¦ã®SVã‚’mortalãªçŠ¶æ…‹ã«ã—ã¦ãŠãã¨ã„ã†ã“ã¨ã 。 ã“ã®åŽŸå‰‡ã®ã‚‚ã¨ã§ã‚³ãƒ¼ãƒ‰ã‚’書ãã¨ã€èª¤ã£ã¦ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚«ã‚¦ãƒ³ãƒˆã‚’増やã•ãªã‹ã£ãŸã‚±ãƒ¼ã‚¹ã§ã¯è¦å‘ŠãŒé »ç¹ã«èµ·ãる。ã—ã‹ã—ã€å°‘ãªãã¨ã‚‚メモリリークã¯èµ·ã“らãªã„*2。メモリリークã®æ¤œå‡ºã¯é›£ã—ã„ã®ã§ã€è¦å‘ŠãŒå‡ºã‚‹ã®ã¯ç¦éŸ³ã§ã‚ã‚ã†ã€‚ ã‚‚ã¡ã‚ã‚“ã“ã‚Œã¯åŽŸå‰‡ã§ã€ãƒ¡ãƒ¢ãƒªãƒªãƒ¼ã‚¯ã«ã¾ã¤ã‚ã‚‹ã“ã¨ã§è¦šãˆãªã‘ã‚Œã°ãªã‚‰ãªã„ã“ã¨ã¯æ±ºã—ã¦å°‘ãªããªã„。 ãŸã¨ãˆã°ã€XSUBã®æˆ»ã‚Šå€¤ã‚’SV*ã«ã™ã‚‹ã¨ãã€sv_2mortal(RETVAL)ã—ã¦ã¯ã„ã‘ãªã„。ã“ã‚Œã¯Perlã®ä»•æ§˜ã§ã¯ãªãxsubppãŒå‹æ‰‹ã«sv_2mort
XS基礎文法最速マスター - Islands in the byte stream (legacy)
å…ƒãƒã‚¿ï¼šPerl基礎文法最速マスター(id:perlcodesample) XSを始ã‚ã‚‹ãŸã‚ã®æ‰‹é †ã¨ã„ãã¤ã‹ã®è¦ç´ ã®è§£èª¬ã§ã™ã€‚C言語をã‚る程度知ã£ã¦ã„る人ã§ã‚‚，ã“れをèªã‚“ã ã ã‘ã§XSã®åŸºç¤Žã‚’マスターã—ã¦XSを書ãã“ã¨ãŒã§ãるよã†ã«ã¯ãªã£ã¦ã„ã¾ã›ã‚“。リファレンスã§ã‚‚ã‚ã‚Šã¾ã›ã‚“。 XSã¨ã¯ï¼Œç‹ç¾©ã§ã¯Perlã§ã‚¨ã‚¯ã‚¹ãƒ†ãƒ³ã‚·ãƒ§ãƒ³ã‚’書ããŸã‚ã®ãƒžã‚¯ãƒè¨€èªžã®åå‰ã§ã™ãŒï¼Œåºƒç¾©ã§ã¯ã‚¨ã‚¯ã‚¹ãƒ†ãƒ³ã‚·ãƒ§ãƒ³ã‚’書ããŸã‚ã®æŠ€è¡“ã®ç·ç§°ã§ã™ã€‚ã“ã“ã§ã¯ï¼Œåºƒç¾©ã®XSを俯瞰ã—ã¾ã™ã€‚ XSã¯ã„ã‚ã„ã‚ã¨ç‰¹æ®Šãªã®ã§ãƒ†ãƒ³ãƒ—レã¯ç„¡è¦–ã§è¡Œãã¾ã™ã€‚ 目次： h2xsã§ç©ºã®ãƒ‡ã‚£ã‚¹ãƒˆãƒªãƒ“ューションを作る XSファイルã®æ§‹æˆ スレッドコンテã‚スト SVファミリ GCã¨ã‚¹ã‚³ãƒ¼ãƒ— ã•ã‚‰ãªã‚‹å¦ç¿’ã®ãŸã‚ã« h2xsã§ç©ºã®ãƒ‡ã‚£ã‚¹ãƒˆãƒªãƒ“ューションを作る 以下ã®ã‚³ãƒžãƒ³ãƒ‰ã§ç©ºã®XSディストリビューションを作るã“ã¨ãŒã§ãã¾ã™ã€‚ h2xs -A -b 5.8.1 -n
Module::Install::XSUtilã§XSモジュール用ã®Makefile.PLを書ã - JPerl Advent Calendar 2009
å‰ç½®ã ã“ã‚“ã«ã¡ã¯ï¼Œgfxã§ã™ã€‚好ããªã‚½ãƒ¼ã‚¹ã¯ã‚¿ãƒ«ã‚¿ãƒ«ã‚½ãƒ¼ã‚¹ã¨sv.cã§ã™ã€‚JPerl Advent Calendar 2009 Hacker Trackã‚‚8日目ã§ã™ã。ãã‚ãã‚Tipsã‚’èªã‚€ã ã‘ã§ã¯é£½ã足らãšï¼Œãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’書ããŸããªã£ã¦ããŸã‚“ã˜ã‚ƒãªã„ã§ã—ょã†ã‹ã€‚ãã‚“ãªã‚ã‘ã§ï¼Œä»Šæ—¥ã¯Module::Install::XSUtilを紹介ã—ã¾ã™ã€‚ 本題 皆ã•ã‚“ã®ä¸ã«ã¯ã‚ˆãXSを書ã方もã„らã£ã—ゃるã¨æ€ã„ã¾ã™ãŒï¼ŒXSモジュールをå«ã‚€ãƒ‡ã‚£ã‚¹ãƒˆãƒªãƒ“ューションã¯ãƒ“ルド環境ã®è¨å®šãŒçµæ§‹å¤§å¤‰ã§ã™ã‚ˆã。build_requiresã«ExtUtils::ParseXSã‚„XSLoaderを指定ã—ãŸã‚Šï¼Œmake_maker_argsã«OBJECT => '$(O_FILES)'を指定ã—ãŸã‚Šã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã—，Cコンパイラã¯ä½¿ãˆã‚‹ã‹ï¼ŒCコンパイラã®è¦å‘Šã‚’有効ã«ã—ãŸã„，ppport.hã¯å分ã«æ–°ã—ã„ã‹ï¼Œãªã©ãªã©è€ƒãˆ
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
Perlã®XSã‹ã‚‰Perlã®é–¢æ•°ã‚’ç°¡å˜ã«å‘¼ã³å‡ºã›ã‚‹ã‚ˆã†ã«ã—ã¦ã¿ãŸ (C++ã§) - moriyoshiã®æ—¥è¨˜
Perlã®è¬ŽAPIã‚’wrapã—ã¦ã€Perlスクリプトã®é–¢æ•°ã‚’C++ã‹ã‚‰ç°¡å˜ã«å‘¼ã³å‡ºã›ã‚‹ã‚ˆã†ã«ã—ã¦ã¿ãŸã€‚ ã¦ã‹ã€ リファレンスカウントをé€éŽçš„ã«è¡Œãˆã‚‹ã‚ˆã†pimplå½¢å¼ã®ã‚³ãƒ³ãƒ†ãƒŠã‚’使ã£ã¦ã¿ã‚‹ mortalã‚’é€éŽçš„ã«è¡Œãˆã‚‹ã‚ˆã†call_sv()ã«ã‚ˆã‚‹é–¢æ•°å‘¼ã³å‡ºã—を完全ã«ãƒ–ラックボックス化ã™ã‚‹ ã£ã¦å®Ÿé¨“ã‚’ã‚„ã‚ŠãŸã‹ã£ãŸã ã‘ãªã®ã«Devel::BindPPã¨ã¯å®Œå…¨ã«åˆ¥ãƒ—ãƒãƒ€ã‚¯ãƒˆã«ãªã£ã¡ã‚ƒã„ã¾ã—ãŸã€‚ test1() ã¯ã€ä»»æ„ã®æ•°ã®å¼•æ•°ã‚’å–ã‚Šã€å¼•æ•°ã®åˆè¨ˆå€¤ã‚’返㙠add()ã¨ã„ã†é–¢æ•° *1 ã‚’ C++ ã‹ã‚‰å‘¼ã³å‡ºã™ä¾‹ã€‚ test2() ã¯ã€MIME::Base64::encode_base64() を呼ã³å‡ºã™ä¾‹ã€‚ test3() ã¯ã€è¤‡æ•°å€‹ã®å€¤ã‚’è¿”ã™é–¢æ•°ã‚’処ç†ã™ã‚‹ä¾‹ã€‚ test4() ã¯ã€perl::value() ã®æ¼”ç®—åオーãƒãƒãƒ¼ãƒ‰ã®ãƒ†ã‚¹ãƒˆã€‚ #include <iostream> #include
C++ 㧠Perl 拡張を書ããŸã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’書ã„㟠- TokuLog 改ã‚B日記
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
XS code template - å‹•çš„ã«XSUBを生æˆã™ã‚‹ - エã‚スパートPerl - Perl-users.jp
XSコードã¯ãµã¤ã†Perlコードよりも多機能ã§é«˜é€Ÿã§ã™ãŒï¼Œæ›¸ãã®ãŒé›£ã—ã„ãŸã‚æ•·å±…ãŒé«˜ã„ã“ã¨ã‚‚事実ã§ã™ã€‚ã¾ãŸï¼Œã„ã¡ã„ã¡ã‚³ãƒ³ãƒ‘イルã—ãªã‘ã‚Œã°ãªã‚‰ãªã„ã®ã‚‚ç…©ã‚ã—ã„点ã§ã™ã€‚ ã¨ã“ã‚ã§ï¼ŒPerlã«ã¯ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã¨ã„ã†ä»•çµ„ã¿ãŒã‚り，動的ã«ã‚³ãƒ¼ãƒ‰ã‚’生æˆã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ã—ãŸãŒã£ã¦ï¼ŒXSã§ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã«ç‰ã—ã„ã“ã¨ã‚’実ç¾ã§ãã‚Œã°ï¼ŒXSコードã®ç…©ã‚ã—ã•ã‚’é¿ã‘ã¤ã¤XSã®åˆ©ç›Šã‚’享å—ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ ãªãŠï¼Œã“ã®æ–‡æ›¸ã¯XSã«ã‚ˆã‚‹ã‚³ãƒ¼ãƒ‰ä¾‹ã‚’解説ã—ã¦ã„ã¾ã™ãŒï¼ŒXSãã®ã‚‚ã®ã«ã¤ã„ã¦ã¯è§£èª¬ã—ã¾ã›ã‚“。 XSã«ã¤ã„ã¦ã¯perlxstutã‚„perlxs，perlapiã‚’å‚ç…§ã—ã¦ãã ã•ã„。 クãƒãƒ¼ã‚¸ãƒ£ã®åˆ†æž ã¾ãšï¼ŒPerlã®ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã‚’分æžã—ã¾ã™ã€‚Perlã®ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªã‚‚ã®ã§ã™ã€‚ sub make_accessor{ my($name) = @_; return sub{ $_[0]->{$name} }; } my
Perl XS メモ - typemap 㨠MAGIC ã‚’ã‹ã‚‰ã‚㦠- daily dayflower
id:tokuhirom ã•ã‚“㌠http://d.hatena.ne.jp/tokuhirom/20081209/1228829454 ã§ä¸‹åœ°ã‚’ã¤ãã£ã¦ãã ã•ã£ãŸã®ã§ï¼ˆperl-users.jp ã‚€ã‘ã¾ã¨ã‚も期待ã—ã¦ã¾ã™ï¼‰ï¼Œã¡ã‚‡ã£ã¨ã‚¢ãƒ‰ãƒãƒ³ã‚¹ãƒ‰ãªè©±é¡Œã‚’。 例題 http://www.sra.co.jp/people/m-kasahr/eb/ http://www.sra.co.jp/people/m-kasahr/eb/ ã® Perl binding を開発ã™ã‚‹ã¨ã—ã¾ã—ょã†ã€‚ http://www.sra.co.jp/people/m-kasahr/eb/ ã®ä½¿ã„æ–¹ã¯ï¼ŒãŸã¨ãˆã°æ¬¡ã®ã‚ˆã†ãªæ„Ÿã˜ã§ã™ã€‚ EB_Book *book_pointer; book_pointer = (EB_Book *) malloc(sizeof(EB_Book)); eb_initialize_book(bo
Perl/XSãŒå¾—æ„ãªã“㨠- Islands in the byte stream (legacy)
最近ã²ãŸã™ã‚‰XSを書ã„ã¦ã„ã¦æ€ã£ãŸã®ãŒï¼ŒXSã¯ã‚„ã£ã±ã‚Šé€Ÿã„ã¨ã„ã†ã“ã¨ã€‚ ãŸã ，ã„ã¤ã§ã‚‚ç„¡æ¡ä»¶ã«é€Ÿã„ã¨ã„ã†ã‚ã‘ã§ã‚‚ãªã，何も考ãˆãšã«æ›¸ãã¨PurePerlã®ã‚³ãƒ¼ãƒ‰ã‚ˆã‚Šé…ããªã‚‹ã“ã¨ã‚‚çã—ããªã„。実際，最近書ã„ãŸShikaã‚„MOPã®XS版もã„ããªã‚Šé«˜é€Ÿã ã£ãŸã‚ã‘ã§ã¯ãªã，一番最åˆã®ã‚³ãƒ¼ãƒ‰ã¯PurePerlã®ã»ã†ãŒ10%-30%ã»ã©é«˜é€Ÿã ã£ãŸã€‚ ã„ã‚ã„ã‚ベンãƒãƒžãƒ¼ã‚¯ã‚’ã¨ã£ãŸçµæžœã®æ„Ÿè§¦ã¨ã—ã¦ï¼ŒXSã®å¾—手・ä¸å¾—手ãŒåˆ†ã‹ã£ã¦ããŸã®ã§ãƒ¡ãƒ¢ã—ã¦ãŠã。ã¡ãªã¿ã«ä¸‹è¨˜ã§ã€Œæ³¨æ„を払ã†ã€ã¨ã„ã†ã®ã¯å†…部ã§å‘¼ã°ã‚Œã‚‹malloc()を極力減らã™ã¨ã„ã†æ„味ã§ä½¿ã£ã¦ã„る。SVã®ç”Ÿæˆè‡ªä½“ã¯malloc()ã‚’ä¼´ã‚ãªã„ã“ã¨ãŒå¤šã„*1ãŒï¼Œæ–‡å—列ã®ç”Ÿæˆ/連çµã‚„é…列ã®ç”Ÿæˆ/push/unshiftã§ã¯å†…部ã§malloc()ãŒå‘¼ã°ã‚Œã‚‹å¯èƒ½æ€§ãŒé«˜ã，速度をè½ã¨ã™åŽŸå› ã¨ãªã‚‹ã€‚ 得手分野 ループ - XSã®ãƒ«ãƒ¼ãƒ—ãŒæ—©ã„ã¨ã„ã†ã‚ˆã‚Šï¼ŒPerlã®ãƒ«ãƒ¼ãƒ—
XSã¨PuerPerlã®äºŒã¤ã®å®Ÿè£…ã‚’æŒã¤ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®æ›¸ãæ–¹ - Islands in the byte stream (legacy)
XSã¨PurePerl(PP)両方ã®å®Ÿè£…ã‚’æŒã¤ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯å°‘ãªããªã„。ãŸã¨ãˆã°ï¼š Data::Dumper List::Util/Scalar::Util (List-Scalar-Utils) List::MoreUtils Class::MOP Params::Util (>=0.35) Params::Validate Data::Util DBI JSON/JSON::XS Text::CSV/Text::CSV::XS ã“ã®ã‚ˆã†ã«ä¸€èˆ¬çš„ã«ä½¿ã‚れるã“ã¨ãªã®ã ãŒã€ãã®æ›¸ãæ–¹ã¯å¤šæ§˜ã§å®šèª¬ãŒãªã„。 Data::Dumperã¯é–¢æ•°ã‚’別ã®åå‰ã§ç”¨æ„ã—ã€å®Ÿè£…を切り替ãˆã‚‹ã‚¤ãƒ³ã‚¿ãƒ¼ãƒ•ã‚§ã‚¤ã‚¹ã‚’æŒã¤ã€‚ List-Scalar-Utilsã¯XSãŒãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã§ã€ã•ã‚‰ã«XSã§ã®ã¿æä¾›ã—ã¦ã„る関数ãŒã‚ã‚Šã€ãã®ã‚ˆã†ãªé–¢æ•°ã¯ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã®çŠ¶æ…‹ã«ã‚ˆã£ã¦ã¯åˆ©ç”¨ã§ããªã„。ãªãŠã€ãã®ãŸã‚ã«Task::Weakenã¨ã„ã†ç‰¹
Module::Installã®configure_requires()ã¨ã‹ã«ã¤ã„ã¦
Google Chart APIã§QRコードãŒä½œæˆå¯èƒ½ã¨ãªã‚ŠåŠ£å‹¢ã«ç«‹ãŸã•ã‚Œã¦ã„ã‚‹æ°—ãŒã—ãªã„ã§ã‚‚ãªã„Imager::QRCodeを作ã£ã¦ã„ã‚‹clouderã§ã™ã€‚ ã“ã‚“ã«ã¡ã¯ã€‚ 以å‰ã‹ã‚‰Imager::QRCodeã§CPAN Testerã‹ã‚‰ã‚¨ãƒ©ãƒ¼ãƒ¬ãƒãƒ¼ãƒˆãŒã‚ãŒã£ã¦ããŸã®ã‚’先日一気ã«fixã—ã¦ä¸Šã’ãŸã®ã§ã™ãŒã€ãã®ã¨ãã«è‹¦åŠ´ã—ãŸç‚¹ãŒã„ãã¤ã‹ã‚ã£ãŸã®ã§è¨˜ã—ã¦ãŠãã¾ã™ã€‚ 苦労ã—ãŸç‚¹ãã®1 Imager::QRCodeã§ã¯libqrencodeã¨ã„ã†Cã®ãƒ©ã‚¤ãƒ–ラリを使ã£ã¦QRコードを作æˆã—ã¦ã„ã‚‹ã®ã§ã™ãŒã€ã“ã®libqrencodeã®APIãŒã¡ã‚‡ã£ã¨è¦‹ãªã„é–“ã«å¤‰ã£ã¦ã„ã¦(関数ã®åå‰ã¨ã‹å¼•æ•°ã®æ•°ã¨ã‹)ã€ã‚ã‚‹ãƒãƒ¼ã‚¸ãƒ§ãƒ³ä»¥é™ã®libqrencodeをインストールã—ãŸç’°å¢ƒã§ã¯Imager::QRCodeãŒå‹•ã‹ãªããªã£ã¦ã„ã¾ã—ãŸã€‚ ã©ã†ã‚‚ã‚るメジャーãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‚¢ãƒƒãƒ—ã®éš›ã«é–¢æ•°åã®å¤‰æ›´ãŒè¡Œãªã‚ã‚ŒãŸã£ã½ã„ã®ã§ã™ãŒã€ã
Scalar::Util ã® weaken() - daily dayflower
Shibuya.pm #9 ã§ã® id:lestrrat ã•ã‚“ã®ç™ºè¡¨ ã§ã®è³ªç–‘å¿œç”ã«ãŠã„㦠id:dankogai æ° weak references ã®å®Ÿè£…ã¯ã©ã®ã‚ˆã†ã«ãªã£ã¦ã„ã¾ã™ã‹ï¼Ÿ id:lestrrat æ° ã‚ー準備ã—ã¦ãã‚‹ã®å¿˜ã‚Œã¾ã—ãŸã€‚Scalar::Util ã® Util.xs を見ã¦ãã ã•ã„ :) ã¨ã„ã†ã‚„ã‚Šã¨ã‚ŠãŒã‚ã‚Šã¾ã—ãŸã€‚ãã®æ™‚*1㯠weak reference ã®å‚照先㮠REFCNT ã‚’ decrement ã—ã¦ã„る「ã ã‘ã€ã˜ã‚ƒãªã„ã®ï¼Ÿ ã¨ï¼ˆã‚ã•ã¯ã‹ã«ã‚‚）æ€ã£ãŸã‚“ã§ã™ãŒï¼Œå®Ÿè£…を調ã¹ã¦ã¿ã¾ã—ãŸã€‚実際ã«ã¯ã€Œãã‚Œã ã‘ã€ã§ã¯ã‚ã‚Šã¾ã›ã‚“ã§ã—ãŸï¼Œã¨ã€‚ 以下 REFCNT ã¨ã‹ MAGIC ã¨ã‹ã§ã¦ãã‚‹ã‚“ã§ï¼Œå‰ææ¡ä»¶ã¨ã—㦠Shibuya.pm #9 ã§ã® :lestrrat ã•ã‚“ã®ç™ºè¡¨ï¼ˆPerl 5 internals ã®ä¸–ç•Œã«ã‚ˆã†ã“ã - daisuke maki）必è´ã§ã™ã€‚
wakaponã•ã‚“ã®è¶…☆Perl備忘帳: DynaLoader.pm XSLoader.pm newXS
DynaLoader.pmã¨XSLoader.pmã¾ã‚ã‚Šã®ãŠè©±ï¼Žå‹•ä½œã®ä»•æ–¹ã‚„，両者ã®é•ã„ãªã©ã‚’見ã¦ã„ã．å‚考ã«ã—ãŸã®ã¯perl5.10.0ã®ã‚½ãƒ¼ã‚¹ãƒ„リー． 1. XSUBã¨newXS DynaLoaderã®æœ¬è³ªã¯XSUBãªã®ã§ï¼Œã¾ãšã¯ãã®ã‚ãŸã‚Šã‹ã‚‰è¦‹ã¦ã„ã．XSUBを使ã£ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«(=Pure-Perlã˜ã‚ƒãªã„モジュール)を作æˆã™ã‚‹ã¨ãã«ã¯ï¼ŒDynaLoader.pmã‚„XSLoader.pmを使ã†ï¼Žä¾‹ãˆã°threads.pmã®å ´åˆï¼Œå†’é ã«ä»¥ä¸‹ã®ã‚ˆã†ãªè¨˜è¿°ãŒã‚る． # Load the XS code require XSLoader; XSLoader::load('threads', $XS_VERSION); ã“ã‚Œã§XSUB(å˜ã«Cã®ã‚µãƒ–ルーãƒãƒ³; XSコード)ã‚’Perl処ç†ç³»ã«çµ„込んã ã“ã¨ã«ãªã‚‹ï¼Žã“ã®ã€Œçµ„込むã€ã¨ã„ã†å·¥ç¨‹ã«ã¯ï¼ŒnewXSãŒä½¿ã‚れる．例ãˆã°threads->creat
PL_check ã¨ãƒ‘トリオットミサイルã®ã—ãã¿ - daily dayflower
å‰å›žã®è¨˜äº‹ã¯ãŠã‹ã’ã•ã¾ã§ id:yappo ã•ã‚“ã« HE-N-TA-I èªå®šã•ã‚ŒãŸã®ã§å®‰å¿ƒã—ã¦ãŸã‚‰ï¼Œãƒžãƒƒãƒãƒ§ãªäººã«ç‰›åˆ€ãƒ•ãƒ©ã‚°ã‚’ç«‹ã¦ã‚‰ã‚Œï¼ˆã‚‚ã¡ã‚ん冗談ã§ã™*1），Shibuya.pm 入会ã¸ã®é“ã‚‚ãªã‹ãªã‹é™ºã—ã„ãªãã¨æ€ã„知りã¾ã—ãŸã€‚ ãã‚“ãªç©ºæ°—ã¯èªã¾ãšã«ç†è«–編？を Perl 5.8.8 ã®ã‚½ãƒ¼ã‚¹ã‚’ã‚‚ã¨ã«æ›¸ã„ã¦ã„ãã¾ã™ã€‚マニアå‘ã‘。 Perl ãŒã‚¹ã‚¯ãƒªãƒ—トを実行ã™ã‚‹ã¾ã§ perlguts ã® Compiled code セクション㨠Perl ã®ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã‚’ã‚‚ã¨ã«ï¼ŒãŠãŠã¾ã‹ãªå®Ÿè¡Œæ©Ÿåºã‚’書ã„ã¦ã¿ã¾ã—ãŸã€‚ å—å¥è§£æžå™¨ï¼ˆãƒ¬ã‚サ; toke.c） å—å¥ã‚¨ãƒ©ãƒ¼ã®æ¤œå‡º 構文解æžå™¨ï¼ˆãƒ‘ーサ; perly.y*2） 構文エラーã®æ¤œå‡º OPCODE ツリーã«å¤‰æ›; new*OP() in op.c check ルーãƒãƒ³ã®å®Ÿè¡Œï¼ˆpass 1） （文脈ã«ã‚‚ã¨ã¥ã）文法エラーã®æ¤œå‡º by å„ PL_check[](
PL_check hack - daily dayflower
（ã‚ã¨ã§ã‹ã） XS ãらã„ã„ã˜ã‚Œãªã„㨠Shibuya.pm ã«åŠ å…¥ã§ããªã„らã—ã„ã®ã§ï¼Œã¨ã‚Šã‚ãˆãšæ›¸ãã¾ã—ãŸãƒ¼ã€‚今回ã¯å®Ÿè·µç·¨ãªã®ã§ï¼Œã‚ã¾ã‚Šã‚ã‹ã‚Šã‚„ã™ã„内容＆ãŸã„ã—ãŸå†…容ã§ã¯ãªã„ã§ã™ã€‚ã‚ã£ãµã‚‹ã•ã›ã¦ã”ã‚ã‚“ãªã•ã„。 ゴール #!/usr/bin/perl eval 'print "Hello ' . $ARGV[0] . '!\n"'; ã¨ã‹å±é™ºã§ã™ã‚ˆãー*1。ã“ã‚“ãªæ©Ÿèƒ½ãŒã‚ã‚‹ãªã‚“ã¦ã‘ã—ã‹ã‚‰ã‚“。ã§ã™ã®ã§ï¼Œeval ã®å®Ÿè¡Œã‚’抑制ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’書ã„ã¦ã¿ã¾ã—ãŸã€‚ ã¨ã„ã†ã®ã¯å†—談ã§ï¼Œeval ã®å®Ÿè¡Œä¸»ä½“ã¨ãªã‚‹ OPCODEãŒï¼Œã‚·ã‚¹ãƒ†ãƒ 内ã§ã€Œå®Œçµã€ã—ã¦ã¾ã™ï¼ˆã‚“ーã†ã¾ã表ç¾ã§ããªã„）。ãªã®ã§ã‚µãƒ³ãƒ—ルã¨ã—ã¦ã„ã˜ã‚Šã‚„ã™ã，ã“ã®é¡Œæã‚’ã¨ã‚Šã‚ã’ã¾ã—ãŸã€‚ 評価型 eval ã¯ã©ã®ã‚ˆã†ãª OPCODE ã«å¤‰æ›ã•ã‚Œã‚‹ã®ã‹ ã¾ãšã¯å˜ç´”ãªã‚³ãƒ¼ãƒ‰ã‚’書ã„ã¦ï¼ŒOPCODE ãŒã©ã®ã‚ˆã†ã«ãªã‚‹ã®ã‹ãŸã—ã‹ã‚ã¦ã¿ã¾ã™ã€‚ use st
Perlプãƒã‚°ãƒ©ãƒžã®ãŸã‚ã®gdb入門(at Shibuya.pm #9 LT) - ã¨ã‚ã‚‹ã¯ã¦ãªç¤¾å“¡ã®æ—¥è¨˜
先日ã®Shibuya.pm #9ã®Lightening Talkã§ã€Œgdbã§XS on mod_perlをデãƒãƒƒã‚°ã€ã¨ã„ã†è©±ã‚’ã—ã¦ãã¾ã—ãŸã€‚XSを使ã„出ã™ã¨ã€å¾“æ¥ã®Perl的デãƒãƒƒã‚°ã ã‘ã§ã¯ä¸å分ãªã®ã§gdbã‚’ã†ã¾ã使ã£ã¦ã€åŠ¹çŽ‡çš„ã«ãƒ‡ãƒãƒƒã‚°ã—ã¾ã—ょã†ã€ã¨ã„ã†è©±ã§ã™ã€‚実ã¯ã€ã¯ã¦ãªç¤¾å†…ã§ã¯1å¹´è¿‘ãå‰ã«å‹‰å¼·ã§è©±ã—ãŸãƒã‚¿ã ã£ãŸã®ã§ã™ãŒã€ã‚ˆã†ã‚„ã公開ã™ã‚‹ã“ã¨ãŒã§ãã¾ã—ãŸã€‚ Shibuya.pmã§ã¯5分ã¨ã„ã†æž ãŒã‚ã£ãŸã®ã§ã‚·ãƒ§ãƒ¼ãƒˆver.ã§ã—ãŸãŒã€ã“ã“ã§ã¯åˆ¶é™ã¯ãªã„ã®ã§ã€æœ¬æ¥ã®ãƒãƒ³ã‚°ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®è³‡æ–™ã‚’アップã—ã¾ã™ã€‚ã¡ã‚‡ã£ã¨å…¬é–‹ã§ããªã„æƒ…å ±ãŒæ··ã£ã¦ã„ãŸã®ã§ã€xxxã§éš ã—ã¦ã„ã¾ã™ãŒã€ã”了承ãã ã•ã„。 ã¡ãªã¿ã«ã€Rubyã¨ã‹ã§ã‚‚ä¼¼ãŸæ„Ÿã˜ã§ãƒ‡ãƒãƒƒã‚°ã§ãã‚‹ã¨æ€ã†ã®ã§ã€ãã¡ã‚‰ã®äººã‚‚å‚考ã«ã—ã¦ãã ã•ã„。長ã„よ!ã¨ã„ã†äººã¯ã€æœ€å¾Œã®ã€Œã“ã‚Œã¯è¨å®šã—ã¦ãŠã‘çš„gdbåˆæœŸåŒ–マクãƒã€ã ã‘ã§ã‚‚ã©ã†ãžã€‚ã‹ãªã‚Šä¾¿åˆ©ã§ã™ã€‚ (資料公開ãŒ
PL_check hack ã®æ—§ã‚¹ã‚¿ãƒ– - daily dayflower
ã™ã„ã¾ã›ã‚“。間é•ãˆã¦æ–°ã—ã„記事ã«ã—ã¡ã‚ƒã„ã¾ã—ãŸã€‚ブクマã—ã¦ãã ã•ã£ãŸæ–¹ã€…申ã—訳ãªã„ã§ã™ã€‚ 新記事 → PL_check hack - daily dayflower
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
Perl5 VM Golf - Journal of tokuhirom (7396)
I've released Acme::PerlVMGolf. This is new golf rule for perl hackers :)PerlVMGolf's rule is very simple.follow is the rule: * write the code for the score * your score is sum of your op code number * short perl code is goodAre you right?You can calcurate your score by Acme::PerlVMGolf(I've uploaded to CPAN now, and you can get from our svn repos http://svn.coderepos.org/share/lang/perl/Acme-Pe
ランã‚ング
ランã‚ング
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}