点击运行
#!/usr/bin/perl @names = ('google', 'jiyik', 'taobao'); @copy = @names; # 复制数组 $size = @names; # 数组赋值给标量，返回数组元素个数 print "名字为 : @copy\n"; print "名字数为 : $size\n";
运行结果 :
正在执行...
