[PerlChina] 菜鸟请教编字典的程序

目前，我手头上有若干.asc的文件，我需要根据现有文件，编一个类似字典一样的程序。
原文件大致格式：
file1 : 11111100$name1$11111111$dfs.4$$$$$N$$$， 由$分开的前三个部分是一样的，后面的部分不同行
不一样。
file 2: 22222211$name2$$22222222$dfs.4$$$$$N$$$由$分开的前三个部分是一样的，后面的部分不同行不
一样。（稍微有点不一样，有的地方$多了）
基本思路是：从file 1中取出11111111，对应到file2的第一部分（如22222211），找这个数字对应的name。最后做成：
name1@NAME'name2的格式。

目前面临的问题： 做正则的时候，总是报错。（由于是第一版的做法，原程序找不到了，大致是：$nums= ~m/($)([0-9]{8})
($)/ push(my @num,$num); ）
由于file2的格式稍有不同，所以在用split（\$, @lines）的时候，也总是出错。

另外，一次open若干files，要怎么做呢？然后把结果分别输出，要怎么弄呢？

如果实在太简单了，推荐给我需要恶补书的篇章也行，拜托。。。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。