作为CAM工程师，使用公司或前人开发的脚本，或多或少不是很满意，何不尝试自己开发呢。
我们学的是什么语言？Perl语言，为什么学习Perl语言？Perl语言在PCB行业立足时间较早，现在市面上超过70%的脚本是由perl语言开发，适用范围最广,无论去到哪个公司都绕不开Perl语言写的旧脚本，PYTHON，C#，TCL，JAVA等语言虽然各有千秋，但目前使用的大厂占比小，就像学GENESIS一样，就是比学CAM350等小众软件的容易找工作，故第一语言首选Perl语言。
我们由及其简单的方式，先吊起学习的乐趣，有多简单呢，小学生也可以轻而易举的完成。写一个小脚本，创建一个88888的料号，创建ORIG单元并打开桌面命名一个记事本为test.pl，用记事本打开将下面的话复制过去保存一下
#!perl -wuse Genesis; #导入genesis接口
my $host = shift;my
$f = new Genesis($host);
##上面三行是固定添加
my $JOB = "888888"; ##料号设为888888
my $STEP = "orig"; ##单元名字设为orig
##以下都是直接用genesis黑色窗口复制过来的录制的命令 只是更换了料号名和单元名
###创建888888料号
$f->COM("create_entity,job=,is_fw=no,type=job,name=$JOB,db=genesis,fw_type=form");
###打开888888料号
$f->COM("open_job,job=$JOB");
##创建orig单元
$f->COM("create_entity,job=$STEP,is_fw=no,type=step,name=orig,db=genesis,fw_type=form");
##打开orig单元
$f->COM("open_entity,job=$JOB,type=step,name=$STEP,iconic=no");
以上我只是想证明写脚本并不难，如果你想运行起来test.pl
需要安装Perl语言安装包在下一节课我们讲Perl语言安装，请进入我的主页继续学习Perl语言开发
genesisQQ交流群为690906595,内有Perl安装包以及学习资料。
我们学的是什么语言？Perl语言，为什么学习Perl语言？Perl语言在PCB行业立足时间较早，现在市面上超过70%的脚本是由perl语言开发，适用范围最广,无论去到哪个公司都绕不开Perl语言写的旧脚本，PYTHON，C#，TCL，JAVA等语言虽然各有千秋，但目前使用的大厂占比小，就像学GENESIS一样，就是比学CAM350等小众软件的容易找工作，故第一语言首选Perl语言。
我们由及其简单的方式，先吊起学习的乐趣，有多简单呢，小学生也可以轻而易举的完成。写一个小脚本，创建一个88888的料号，创建ORIG单元并打开桌面命名一个记事本为test.pl，用记事本打开将下面的话复制过去保存一下
#!perl -wuse Genesis; #导入genesis接口
my $host = shift;my
$f = new Genesis($host);
##上面三行是固定添加
my $JOB = "888888"; ##料号设为888888
my $STEP = "orig"; ##单元名字设为orig
##以下都是直接用genesis黑色窗口复制过来的录制的命令 只是更换了料号名和单元名
###创建888888料号
$f->COM("create_entity,job=,is_fw=no,type=job,name=$JOB,db=genesis,fw_type=form");
###打开888888料号
$f->COM("open_job,job=$JOB");
##创建orig单元
$f->COM("create_entity,job=$STEP,is_fw=no,type=step,name=orig,db=genesis,fw_type=form");
##打开orig单元
$f->COM("open_entity,job=$JOB,type=step,name=$STEP,iconic=no");
以上我只是想证明写脚本并不难，如果你想运行起来test.pl
需要安装Perl语言安装包在下一节课我们讲Perl语言安装，请进入我的主页继续学习Perl语言开发
genesisQQ交流群为690906595,内有Perl安装包以及学习资料。
