perl语言实现器件分类

各位大侠好！！
 
我最近刚刚开始学习perl，想实现一个对netlist中器件自动分类,并读取器件名称的功能

例如在netlist中： M0 (net4 net3 0 0) nch_mac l=60n w=200n multi=1 nf=1 sigma=1 sd=200n    （M0为器件名，nch_mac为器件类型）

有没有办法实现一行行读取netlist后，先找到器件.txt中器件（nmos,pmos），但同时能保存对应类型的器件名称（M0），然后对同一类器件，不同的器件名进行相同操作？？
 
器件类型（nmos,pmos等）会在另一个txt文件中给出。就是说要先读2个文件，一个netlist.txt,一个器件.txt,在netlist文件中找器件.txt中的器件名，分类就不需要了！！！
 
只需要实现，例如，器件.txt中有nmos, pmos, D。
找到netlist中所有的nmos，存下器件名称（M0，M3，M6），然后检查Vgs，Vds。 然后找netlist中pmos,存下名称（M1，M2，M3，M4），然后检查。最后找netlist中所有D，存下名称（D5），然后检查
 
多谢各位大侠！！！

[ 本帖最后由 nelly1 于 2012-7-26 16:56 编辑 ]