本文共 1531 字，大约阅读时间需要 5 分钟。

???Arrays?

??????????????????????????????????????????????

????

my @array1 = (1, "apple", $out); # 1 ????"apple" ?????$out ?????

??????

my $array1_join = join("\t", @array1); # ???????????????

????????

my $len_array1 = $#array1 + 1; # ?????1????

????????

my $len_array2 = scalar @array1; # ????????

????????

foreach (@array1) { print "$_\n"; }

????????

foreach (0..$#array1) { print "$array1[$_] \n"; }

?????????push

my $array_push = "coco"; push(@array1, $array_push); # ???????

?????????pop

my $pop_v = pop @array1; # ?????????
print "$pop_v\n"; print "@array1\n";

?????????unshift

my $array_unshift = "rose"; unshift(@array1, $array_unshift); # ???????

?????????shift

my $shift_v = shift @array1; # ?????????
print "$shift_v\n"; print "@array1\n";

?????????reverse

my @array2 = reverse @array1; # ???????????
print "@array1\n"; print "@array2\n";

???????sort ???????

my @array3 = sort @array1; # ???ASCII ????
my @array4 = sort { $b cmp $a } @array1; # ???????

???????

my @array6 = sort { length($b) <=> length($a) } (1, 5, 11, 14);

??????????

???Hash?

???Hash??????????????????????????

????

my %hash1 = ("chr13" => "T13", "chr18" => "T18", "chr21" => "T21");

??????

print "$hash1{'chr13'}\n";

????????

$hash1{'chr13'} = "chr13+"; print "$hash1{'chr13'}\n";
$hash1{'chr16'} = "T16"; print "$hash1{'chr16'}\n";

?????????

my @k = keys %hash1; my @v = values %hash1; print "@k\n"; print "@v\n";

???????

my ($k1, $v1); while (($k1, $v1) = each %hash1) { print "$k1 => $v1\n"; }

???????????

print "Exists\n" if exists $hash1{'chr13'};

转载地址：http://dbmwz.baihongyu.com/