主题：用Perl动态编译 -- ppw

#!/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一遍, 自杀后重起..

有意思啊...