genesis2000脚本编写，钻孔输出_perl程序源码界面学习.doc
文本预览下载声明
以下是perl程序源码可以用来学习界面编号
#!/usr/bin/perl
useTk;
useEncode;
useEncode::CN;
useSocket;
usePOSIX;
useWin32::API;
useTime::Local;
useTk::BrowseEntry;
requireTk::BrowseEntry;
requireshellwords.pl;
useGenesis;
$host=shift;
$f=newGenesis($host);
$JOB=$ENV{JOB};
$STEP=$ENV{STEP};
$GENESIS_
显示全部