Perl中数组的使用

　　my @h=(1,2,3);

　　scalar(@h);

　　将可以得到3。但是我们经常不这么用，因为在将数组向标量转换时就会返回数组的长度，例如下面的操作就可以。

　　my @i=(1,2,3,4);

　　print @i." ";

　　将会打印出4。 好了，今天就到这里吧，最后是一个概括了今天大部分内容的程序。我写的。中间会输出很多错误信息。呵呵。

　　　#!/user/bin/perl -w
　　　 use strict;
　　　 { $|=" ";
　　　 my @a;
　　　 @a=(1,2,3);
　　　 @a[4,6]=(23,34);
　　　 #print $a[5];
　　　 #quoted because it would cause error
　　　 my @b;
　　　 @b=("because","haul");
　　　 push(@b,"grand");
　　　 print @b;
　　　 print "
";
　　　 push(@b,("puppy","kitty"));
　　　 print @b;
　　　 print "
";
　　　 push(@b,@a);
　　　 print @b;
　　　 print "
";
　　　 push(@a,@b);
　　　 print @a;
　　　 print "
";
　　　 my @c;
　　　 @c=(1,2,3,"hello");
　　　 print @c;
　　　 print "
";
　　　 pop(@a);
　　　 print @a;
　　　 print "
";
　　　 my @d;
　　　 @d=(1..9);
　　　 print @d;
　　　 print "
";
　　　 my @e=("a".."f");
　　　 splice(@d,2,2,@e);
　　　 print @d;
　　　 print "
";
　　　 splice(@d,2,6);
　　　 print @d;
　　　 print "
";
　　　 }

　　嘻嘻，程序很长，不过试着运行一下，全是上面所讲的内容的应用，加深一下你的印象吗。