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 初心者が、ステップアップできるように、私のもっている情報をここ
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 $
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
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
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
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
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
XSでC++を使おうとしたけど挫折したので教えてクン＞＜ - Kentaro Kuribayashi's blog
追記 コメントでご教示いただいた通り、とりあえず#include を、ファイルの一番最初にもっていけば、エラーは起こらなくなるようです。id:tokuhiromさん、通りすがりさん、ありがとうございました!!1 C++の勉強がてら、XSでC++ライブラリのバインディングを作ってみようと思いました。しかし、超初歩的なところでつまづいてしまいました……。どうすればいいかさっぱりわからない＞＜。。。そこで偉いひとの降臨を待つことにしました。誰か教えてくれくれクンだお＞＜。。。 概要 MacOSX/Debian双方において、UncoというモジュールのためにUnco.xsを書いてるとして、下記のようにC++ライブラリのヘッダファイルを #include <iostream> とかしてincludeした途端、いろいろうまくいかなくなる。環境については、このエントリの下部に記載。 やったこと 準備する。
rafl's Devel::bt is awesome. - tokuhirom's blog
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 sighandler (sig=11) at bt.xs:135 #3 <s
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
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
ライブコーディングで 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 { } 実際のものはもっと数多くのベンチマークのパターンがあるのですが、こんな
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
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Faster.pm の最適化 - tokuhirom's blog
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(p) *++PL_markst
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
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/
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
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Ctypes for Perl - Gitorious
DO NOT write XS
