Re: Metaprogramming

[Steffen Mueller]

Simon Cozens wrote:

Steffen Mueller:

I've been wondering whether it is possible to implement some kind of mechanism that allows a Perl script to modify itself at runtime.

B::Generate's been doing this for ages.

Okay, I read up on it, but:
"You are expected to have read the Perl and XS sources to this module before attempting to do anything with it."

I cannot read XS :)

Well, eventually, I might teach myself to, but I doubt that will be just to implement foolish things as described in the other post.

Thanks for the pointer anyway.

Steffen
--
sub'_{q} tsuJ}}_();sub's{seek+DATA,0,0}sub'p{print&_}sub'r{reverse$_[0]}
@_=(('')x2,split" ",<DATA>);s!!&s,$_=<DATA>;s/}.*?}/$_[$s+1]/
if$s;s/(}.*?})/r$1/e;eval$_;p,$s++!efor@_[0..3];
__DATA__
} rehtona} } lreP} },rekcah}