cab5的博客

常规写法 #!/usr/bin/perl my $a = join ":",1,2,3,4,5; print $a . "\n"; my @a = split ":", $a; my $head = @a[0]; print "head=" . $head. "\n"; my $tail = @a[$#a]; print "tail=" . $tail. "\n"; 执行结果如下： 1:2:3:4:5 head=1 tail=5 简化写法 1、获取首值 #!/usr/bin/perl my $a = j