wakaponさんの超☆掃き溜め帳: perlコマンドの皮を一枚はいでみる perlembed
一皮むけよう 一皮むけて大人になろうぜ！！１。ただしむきすぎると痛い目にあう...。 そもそも皮をはぐとはなんぞや。普段Perlを使うときは、perlというコマンドを使う。このperlコマンドとは一体なんだろうか。答えは簡単で、perlという実行可能形式のファイルである。この実行ファイル(perlコマンド)は、引数にファイルがあった場合はそのファイルにあるperlプログラムを実行したり、-eというオプションがあったらワンライナーを実行したり、-Mならモジュールをロードしたりと、おなじみの動作をする。では、この動作はどこで行われているか。今回はそれを見るために、perlコマンドを一皮はいでみる。 一枚皮をはぐ前に、どれくらい皮がかぶってるのかを感覚的に書いてみた。 (perlコマンド ( perl embed ( perl_api ( S_perl_api (各種スタック、op_tree、s
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
PL_runops
I'm going to try to do a series of posts about learning Perl internals. I am still a beginner, I have trouble remembering the many macros, or keeping everything in my head all at once, so hopefully I will be able to make some sense of this stuff in a way that is accessible to other beginners. While I'm definitely diving right in to the deep end, I think PL_runops is a good place to start as any, t
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
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
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
YappoLogs: CPUの気持ちは大事だけど、VMの気持ちも考えようよ
CPUの気持ちは大事だけど、VMの気持ちも考えようよ CPUの気持ちになってプログラムを書くということ Kansai.pm#11 参加記その１ - プログラマになりたい ちなみに、下記のコードはデータハザードを解消する為のコーディング例です。データハザードは、命令が利用するデータ間に依存関係がある場合に発生します。前の命令が終わらないと後ろの命令が実行できないとか。ですので、それを解きほぐしてやれば、並列で処理が出来るようになります。という感じでnaoyaさんもぶこめで loop unrolling は perl でもちゃんと効果があるって書いてるけど、それforブロック(スコープ)が一段増えてる事で差が出てるんじゃないかと思うわけです。はい。 以下検証コード use strict; use warnings; use Benchmark qw(:all); cmpthese(500000
wakaponさんのよく☆ある☆ふつーの備忘帳: perl_clone PL_ptr_table threads.xs
perl_clone関数でPL_ptr_tableに関係する処理が結構な部分で見られたので、PL_ptr_tableがどんなものか見てみるてｓｔ。対象はperl5.10.0。 1. とりあえずintrpvar.hを見てみる PL_ptr_tableはper-interpreterでglobalな変数である。なので、まずはintrpvar.hでIptr_tableのメンバ宣言部分を見てみる。ちなみにこのメンバ変数はembedvar.hでPL_ptr_tableとしてアクセスできるようにマクロ定義されている。 intrpvar.h中 PERLVAR(Iptr_table, PTR_TBL_t*) embedvar.h中 #define PL_ptr_table (vTHX->Iptr_table) intrvar.h中に特にPL_ptr_table対するコメントが無かった。うーむ、仕方ないの
wakaponさんの超☆Perl備忘帳: PL_sv_arenaroot PL_sv_root
perl5.10.0のメモリ管理まわりの実装を見てみた。Perlのメモリ管理では、SVのヘッド部分とボディ部分で管理機構が別れており、今回見てみたのはSVヘッドの部分。 1. SVの構造 まずは基本となるSV(Scalar Value)の構造から見ていく。SVはヘッドとボディの部分から構成される。SVはPerlにおけるすべての内部オブジェクトの基底クラスであり、配列、ハッシュ、サブルーチンなどは、SVのうち、ボディの部分が複雑になることにより実現されている。 実際のSVヘッドは以下のような構造となっている。 #define _SV_HEAD(ptrtype) \ ptrtype sv_any; /* pointer to body */ \ U32 sv_refcnt; /* how many references to us */ \ U32 sv_flag
wakaponさんの超☆Perl備忘帳
開発マシンと動作確認マシンをRS232C(クロス)で接続し，動作確認マシンからの標準エラー出力を開発マシンで吸い取るようにした．以下，動作確認までのめもめも． 1. ケーブルの用意 まずはPCどうしをつなぐRS232C規格のクロスケーブルを用意．適当にころがっていたものを拝借…．長さが2mだったので机の上にマシンを2台載せずに，1台は足元に置くことができた． 2. プログラムの作成 2.1 NS16550用のデバイスドライバ ケーブルを用意しただけではデータ出力は行えない．何しろドライバから用意しなければいけない罠！！！１ ということで，こちらのサイトやネットにころがっていたプログラムを参考にシリアルポート通信のためのドライバをこしらえる． 動作確認マシン→開発マシンへの出力一方通行なので特に割込みは使わないものとした．かなりvramドライバに近い．制御文字以外をデバイスに1文字ずつ流し，
wakaponさんのよく☆ある☆ふつーの備忘帳: おすすめの１本
acmポータルでPerlネタの論文を探していたら，Perl5 Internalsに触れている論文を発見しましたので紹介いたします．Perlの内部構造について知りたい方は目を通しておくとよいかもしれません．処理系の内部仕様と実装(5.8.8)の話が文章としてまとまっており，分かりやすい内容となっております．Extracting Facts from Perl Code (acmポータル内のリンク)Daniel L. Moise, Kenny WongReverse Engineering, 2006. WCRE '06. 13th Working Conference上のリンクからですとお金払ってみてくださいーとか出てくるので，「Extracting Facts from Perl Code」でぐぐると著者の方が原稿をpdfで公開なさっています．PerlGuts IllustratedやPe
wakaponさんの超☆Perl備忘帳: Shibuya.pm#10のLT発表資料
発表当日に欠席してしまいご迷惑をおかけしました。すみません。 はずかしいことに開催日を1日勘違いしていました…。 スライドを置いておきますのでよろしければご覧ください。
Perl の内部処理系をお勉強
ちょっと前に perlfilter - Source Filters - についてお勉強したときから調べようと思っていたことなのですが、Perl の内部処理の流れ（Perl 5 Internals）についてお勉強中です。思いっきり見逃してしまいましたが、Perl 5 Internals に興味を満ち始めたこのタイミングにあわせたかのように Shibuya Perl Mongers : Shibuya Perl Mongersテクニカルトーク#9 で XS ネタをやっていたみたいです。残念です。 さて、今回のお勉強の方法は、ズバリ perl 5.8.8 のソースの読解です。もちろん今回は流れを把握するためのものなので、あまり樹海の奥深くまで足を踏み入れたくはないのですが・・・。この記事を書いている時点では perl_parse までの流れを読み終えたところなのですが、構文解析と字句解析が樹海
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
perl5.git.perl.org Git
Acme-Perl-VM-0.006 - A Perl5 Virtual Machine in Pure Perl (APVM) - metacpan.org
wakaponさんの超☆Perl備忘帳: my変数 スクラッチパッド op_targ dTARGET
wakaponさんの超☆Perl備忘帳: local変数 saveスタック OPpLVAL_INTRO
wakaponさんの超☆Perl備忘帳: mortal変数 擬似ブロック scopeスタック saveスタック tmpsスタック
wakaponさんの超☆Perl備忘帳: perl_clone PL_defoutgv PerlIO