请教split函数的使用

HawaiiLeo

#!/usr/bin/perl

open (PH, "test.split.txt") or die "Cannot open test.split.txt!\n";

while (<PH>) {
    chomp;

    ($number,$mail)=(split(/\s+[()]?/,$_))[1,2];
    $Phone{$number}=$_;
    $Email{$mail}=$_;
}
close PH;

foreach(keys %Phone)
{
  print "\$number:\t$_\n";
  print "\$Phone{\$number}:$Phone{$_}\n";
}

我改进了一下，把所以的$number都给打印出来了，不过不明白为什么给
$Phone{$number}，$Email{$mail}设置同样的值，而且还是读进来的整行的内容

[[i] 本帖最后由 HawaiiLeo 于 2008-12-25 12:06 编辑 [/i]]