回复：请教Perl高手

来源: 于 2006-09-24 10:28:19 [旧帖] [给我悄悄话] 本文已被阅读：次

while()
{
/(.+)=(.+)/;
$$1 = $2;
}

或用hash table，这是比较正统的方法