删除Perl中数组元素的第一个字符

这将对 @dash 阵列:

@dash = split /\s+/, $dash;
shift @dash;
@dash = map { substr($_, 1) } @dash;

你的 substr($dash, 0, 2) 是作为一个字符串对行进行操作的,而不是其中的每个元素。

而且,除非您需要索引进行其他操作:

push @flowers, @dash

这将推动 @仪表板 向 @flowers 。看起来像你在做什么。

为什么不直接更改拆分中的正则表达式?

split /\s+\D?/, $dash;

如果你愿意,可以通过这种方式将它们添加到@flowers中:

push( @flowers, split(/\s+\D?/, $dash) );

你需要某种循环,因为你想对 @dash 除了第一个。 map 在这里很方便。

my @flowers = map substr($dash[$_], 1), 1..$#dash;

哪种书写方式比较短

my @flowers;
for (1..$#dash) {
   push @flowers, substr($dash[$_], 1);
}

我建议你把所有的数字序列都从 $dash ,如下所示:

my $dash = '21 A10 A11 A12 A13 .. ';

my @flowers = $dash =~ /\d+/g;
shift @flowers;

print "@flowers";

输出

10 11 12 13

这是一个可能的解决方案:

use strict;
use warnings;

my $dash = "21 A10 A11 A12 A13"; #test data
my @dash = split /\s+/, $dash; #split into @dash array
shift @dash; #delete first array value
$_ = substr($_,1) for @dash; #for each item in array, remove the first character
print "@dash\n"; #prints: 10 11 12 13