Perl的数组操作有四大常用函数,分别是:
1、push:从数组的末尾加入元素
#!/usr/bin/perl
use strict;
use warnings;
my @array = ();
for ( my $i = 1 ; $i<= 5 ; ++$i ) {
}
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( 1, 2, 3, 4, 5, 6);
while (@array) {
}
3、shift:
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( 1, 2, 3, 4, 5, 6);
while (@array) {
}
#!/usr/bin/perl
use strict;
use warnings;
my @array = ();
for ( my $i = 1; $i<= 5; ++$i ) {
}
另外,perl的数组还有其它重要函数,如splice、subtr、split、join、sort等。
5、splice操作数组中间部分的函数,该函数主要有2个作用:
5.1、向数组中间插入内容
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( 0 .. 6 );
my @array1 = ( 'a' .. 'd' );
my @replaced = splice( @array, 3,2, @array1 );
print "replaced:
#!/usr/bin/perl
use strict;
use warnings;
my @array
my @array1 = ( 'a' .. 'd' );
my @replaced = splice( @array, 3,2 );
print "replaced:
#!/usr/bin/perl
use strict;
use warnings;
my @array
my @array1 = ( 'a' .. 'd' );
my @replaced = splice( @array, 3);
print "replaced:
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( 0 .. 6 );
my $replaced = join("\n", @array);
print "$replaced\n",
test
/var
8、scalar:统计数组的长度,一般我们不用这个,直接将数组赋值给标量即可。
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( 0 .. 6 );
my $count1 = @array;
my $count2 = scalar @array;
print "$count1\n";
print "$count2\n";
9、sort:对数组元素进行排序
#!/usr/bin/perl
use strict;
use warnings;
my @array
my @reversed = reverse @array;
print "Original:
print "Reversed:
# create an unsorted array ofnumbers and sort it
my @array2
my @sortedLexically
my @sortedNumerically = sort { $a <=>$b } @array2;
print "Unsorted:
print "Lexically:
print "Numerically: @sortedNumerically\n"; // 1 2 5 7 9 10 23 40 50 75 96 100