我想从 Perl 脚本中的数组元素中删除第一个字符。
我有这行脚本:
@dash = split /\s+/, $dash;
变量“破折号”是从我的文件的特定行中读取的:示例
21 A10 A11 A12 A13 ..
然后我尝试将这些值推送到我的名为“flowers”的哈希中
for $i (1..$#dash) {
push(@flowers, $line[$i]);
}
这似乎适用于我在后续脚本行中需要的内容,但我发现$dash
每个值前面都包含不需要的字符:
A10 A11 A12 A13 ..
代替
10 11 12 13 .....
但我想@flowers
包含:
10 11 12 13 ....
在将第一个字符推送到我的哈希之前如何删除它(@flowers)
chop(@flowers);
本来可以,但它只会砍掉最后一个字符。当我尝试使用
substr($dash, 0, 2)
它确实产生10
了,但所有其余的值A11 A12 A13
都不再在 my @flowers
.
任何帮助表示赞赏。