perl返回哈希和的鍵和值

#!/usr/bin/perl
#!/usr/bin/perl

%data = ('google'=>'google.com', 'runoob'=>'runoob.com', 'taobao'=>'taobao.com');

@names = keys %data;#該函數返回所有哈希的所有key的數組
#注意是數組
print "$names[0]\n";
print "$names[1]\n";
print "$names[2]\n";

%data2 = ('google'=>'google.com', 'runoob'=>'runoob.com', 'taobao'=>'taobao.com');

@urls = values %data2;#該函數返回所有哈希的所有value的數組
#注意是數組
print "$urls[0]\n";
print "$urls[1]\n";
print "$urls[2]\n";