点击运行
#!/usr/bin/perl %data = ('google'=>'google.com', 'jiyik'=>'jiyik.com', 'taobao'=>'taobao.com'); @names = keys %data; print "$names[0]\n"; print "$names[1]\n"; print "$names[2]\n";
运行结果 :
正在执行...
