常规写法
#!/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 = join ":",1,2,3,4,5;
($a) = split ":", $a;
print "head=" . $a . "\n";
执行结果如下:
1:2:3:4:5
head=1
2、获取尾元素
#!/usr/bin/perl
my $a = join ":",1,2,3,4,5;
$a = split ":", $a;
print "tail=" . $a . "\n";
执行结果如下:
1:2:3:4:5
tail=5