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

正�出�的原因：
$ 於正�中是�法之一，如�作一般字元使用，需要增加跳逸符 "\"
把 $ �成 \$ 即可

split出�的原因
split（\$, @lines） ��是
foreach $line (@lines) {
split（/\$/, $line);
}
�用loop 把�料一行行的做

另外一次�始多��案，�分��出�也是使用 loop�做

-------- Original Message --------
Subject: [PerlChina] 菜鸟请教编字典的程序
From: xuanshi <xuanbonn@googlemail.com>
To: PerlChina Mongers 讨论组 <perlchina@googlegroups.com>
Date: 15/6/2010 22:23
> 目前，我手头上有若干.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 访问此网上论坛。