点击运行
#!/usr/bin/perl # 定义数组 @sites = qw(google taobao jiyik facebook); print "网站: @sites\n"; # 设置数组的第一个索引为 0 $[ = 0; print "\@sites[1]: $sites[1]\n"; print "\@sites[2]: $sites[2]\n";
运行结果 :
正在执行...
