点击运行
#!/uer/bin/perl %data = (-taobao => 45, -google => 30, -jiyik => 40); @array = @data{-taobao, -jiyik}; print "Array : @array\n";
运行结果 :
正在执行...
