点击运行
#!/usr/bin/perl %data = ('google'=>'google.com', 'jiyik'=>'jiyik.com', 'taobao'=>'taobao.com'); while(($key, $value) = each(%data)){ print "$data{$key}\n"; }
运行结果 :
正在执行...
