genesis2000钻孔输出_perl程序源码界面学习.doc

以下是perl程序源码可以用来学习界面编号

#!/usr/bin/perl

useTk;

useEncode;

useEncode::CN;

useSocket;

usePOSIX;

useWin32::API;

useTime::Local;

useTk::BrowseEntry;

requireTk::BrowseEntry;

require'shellwords.pl';

useGenesis;

$host=shift;

$f=newGenesis($host);

$JOB=$ENV{JOB};

$STEP=$ENV{STEP};

$GENESI