主题：用Perl动态编译 -- ppw
共:💬8
家园 用Perl动态编译 #!/usr/bin/perl
$Action='CheckBaby';
open FileHdl,$Action;
print FileHdl "#!/usr/bin/perl\n";
print FileHdl "\$Message=\"Hello Mum\"\n";
close(FileHdl);
$Listening=`CheckBaby`;
chomp;
if($Listening) {
print "Baby stil alive\n";
}else{
print "is he dead or sleeping?\n";
}
简单的说就是这个程序自己写了个程序给自己用..
其实, 它还可以自己给自己写个COMPILER, 然后
把自的CODE重新COMPLIE一遍, 自杀后重起..
有意思啊...
