perl使用技巧
时间：2010-11-22 来源：iTech
BEGIN block用来将文件的路径加入@INC， 如下：
BEGIN {# Setup the source directory
$scriptDir = $0;
$scriptDir =~ s:\\:/:g;
$scriptDir =~ s,/?[^/]+$,,;
$scriptDir = "." if ($scriptDir eq "");
unshift(@INC, $scriptDir);
print "The Current INC is: @INC";
}
完！
相关阅读 更多 +
