点击运行
#!/usr/bin/perl %data = ('google'=>'google.com', 'jiyik'=>'jiyik.com', 'taobao'=>'taobao.com'); @keys = keys %data; $size = @keys; print "1 - 哈希大小: $size\n"; @values = values %data; $size = @values; print "2 - 哈希大小: $size\n";
运行结果 :
正在执行...
