hack.pl

来自「设计模式英文版 作者：Erich Gamma、Richard Helm、Ralp」· PL 代码 · 共 7 行

#!/usr/ucb/perl

$file=join('',<>);
$file=~s/this(.name = "_mainDisplayFrame";)/self$1/g ;
$file=~s/this(._mainDisplayFrame = self;)/self$1/g ;
print $file;