blocks|key|3591062|text|您可以使用“shift”运算符从数组的前面删除元素。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3591063|但我认为问题比这更深，你看错了。如果你在数组中存储未知的“不想要的”值，你需要找出这种情况发生的位置和原因，并防止它发生，而不仅仅是绕过这些来找到你正在寻找的东西。|3591064|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

You can remove elements from the front of an array with the 'shift' operator.

But I think the problem is deeper than that and you're looking at it the wrong way. If you are storing unknown, 'unwanted' values in an array, you need to figure out where and why that is happening and prevent it, not just bypass those to find what you are looking for.

blocks|key|1233455|text|while+(+value_meets_shubster_s_definition_of_crap($array[0])+)+{
++shift+@array;
}

sub+value_meets_shubster_s_definition_of_crap+{
++my+$value+=+shift;
++&helip;
++return+true+or+false;
}|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1233456|…但是，最好在一开始就避免将“垃圾”值放到数组中。|unstyled|1233457|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|J|8|@]|9|@]|A|$]]|$1|G|3|-4|5|F|7|K|8|@]|9|@]|A|$]]]|H|$]]

<pre><code>while ( value_meets_shubster_s_definition_of_crap($array[0]) ) {
 shift @array;
}

sub value_meets_shubster_s_definition_of_crap {
 my $value = shift;
 &amp;helip;
 return true or false;
}
</code></pre>

&hellip; but it would be better to avoid putting "crap" values onto the array in the first place.

blocks|key|1233530|text|您是如何创建数组的？使用我惊人的ESP能力，我将猜测您在某个地方有一个split，它保留了前导空字段。如果我错了，你必须告诉我们更多关于你在做什么。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1233531|您在这里遇到了一点XY问题。您问我们如何实现您已经选择的解决方案，而不是让我们实际解决问题。|1233532|entityMap|0|LINK|mutability|MUTABLE|url|http://www.perlmonks.org/index.pl?node_id=542341^0|Z|5|0|9|2|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@$9|Q|A|R|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|S|8|@]|D|@$9|T|A|U|1|V]]|E|$]]|$1|H|3|-4|5|6|7|W|8|@]|D|@]|E|$]]]|I|$J|$5|K|L|M|E|$N|O]]]]

How are you creating the array? Using my amazing powers of ESP, I'm going to guess that you have a <code>split</code> somewhere that is keeping leading empty fields. If I'm wrong, you'll have to tell us more about what you are doing.

You have a bit of an <a href="http://www.perlmonks.org/index.pl?node_id=542341" rel="nofollow noreferrer">XY</a> problem here. You're asking us how to implement a solution you've already chosen rather than letting us actually fix the problem.

blocks|key|5059415|text|如果您想要消除所有不需要的值：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|5059416|@array+=+grep+{+not+value_meets_shubster_s_definition_of_crap($_)+}+@array;|code-block|syntax|javascript|5059417|然而，正如David+Dorward所指出的，这也消除了数组中间不需要的值。要只去掉开头的值，可以使用List::MoreUtils中的first_index，这可能比shifts循环更有效：|offset|length|style|CODE|5059418|#!/usr/bin/perl

use+strict;
use+warnings;

use+List::MoreUtils+qw(+first_index+);

my+@array+=+(+0,+1,+0,+2+);
my+$begin+=+first_index+{+not+is_unwanted($_)+}+@array;

@array+=+@array[+$begin+..+$#array+];

print+"@array\n";

sub+is_unwanted+{
++++my+($v)+=+@_;
++++return+if+$v;
++++return+1;
}

__END__|5059419|输出：|5059420|C:Temp>+yjk
1+0+2|5059421|更新：我的直觉似乎错了：|BOLD|5059422|#!/usr/bin/perl

use+strict;
use+warnings;

use+Benchmark+qw(+cmpthese+);
use+List::MoreUtils+qw(+first_index+);

my+@array+=+(+0,+1,+0,+2,+3,+4,+5,+6,+7,+8,+9+);

cmpthese+-10,+{
++++'first_index'+=>+\&using_first_index,
++++'shift'+++++++=>+\&using_shift,
++++'nop'+++++++++=>+\&nop,
};

sub+using_first_index+{
++++my+@result+=+@array;
++++my+$begin+=+first_index+{+not+is_unwanted($_)+}+@result;
++++@result+=+@result[+$begin+..+$#result+];
}

sub+using_shift+{
++++my+@result+=+@array;
++++shift+@result+while+is_unwanted($result[0]);
}

sub+nop+{+my+@result+=+@array;+}

sub+is_unwanted+{
++++my+($v)+=+@_;
++++return+if+$v;
++++return+1;
}|5059423|结果：|5059424|++++++++++++++++Rate+first_index+++++++shift+++++++++nop
first_index++75767/s++++++++++--++++++++-71%25++++++++-89%25
shift+++++++258810/s++++++++242%25++++++++++--++++++++-61%25
nop+++++++++664021/s++++++++776%25++++++++157%25++++++++++--|5059425|entityMap|0|LINK|mutability|MUTABLE|url|http://search.cpan.org/perldoc?List::MoreUtils^0|0|0|1W|B|2C|5|1F|F|0|0|0|0|0|0|3|0|0|0|0^^$0|@$1|2|3|4|5|6|7|19|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|1A|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|1B|8|@$I|1C|J|1D|K|L]|$I|1E|J|1F|K|L]]|9|@$I|1G|J|1H|1|1I]]|A|$]]|$1|M|3|N|5|D|7|1J|8|@]|9|@]|A|$E|F]]|$1|O|3|P|5|6|7|1K|8|@]|9|@]|A|$]]|$1|Q|3|R|5|D|7|1L|8|@]|9|@]|A|$E|F]]|$1|S|3|T|5|6|7|1M|8|@$I|1N|J|1O|K|U]]|9|@]|A|$]]|$1|V|3|W|5|D|7|1P|8|@]|9|@]|A|$E|F]]|$1|X|3|Y|5|6|7|1Q|8|@]|9|@]|A|$]]|$1|Z|3|10|5|D|7|1R|8|@]|9|@]|A|$E|F]]|$1|11|3|-4|5|6|7|1S|8|@]|9|@]|A|$]]]|12|$13|$5|14|15|16|A|$17|18]]]]

If you want to eliminate all unwanted values:

<pre><code>@array = grep { not value_meets_shubster_s_definition_of_crap($_) } @array;
</code></pre>

However, as pointed out by David Dorward, this eliminates unwanted values from the middle of the array as well. To get rid of only the values at the beginning, you can use <code>first_index</code> from <a href="http://search.cpan.org/perldoc?List::MoreUtils" rel="nofollow noreferrer">List::MoreUtils</a> which might be more efficient than a loop of <code>shift</code>s:

<pre><code>#!/usr/bin/perl

use strict;
use warnings;

use List::MoreUtils qw( first_index );

my @array = ( 0, 1, 0, 2 );
my $begin = first_index { not is_unwanted($_) } @array;

@array = @array[ $begin .. $#array ];

print "@array\n";

sub is_unwanted {
 my ($v) = @_;
 return if $v;
 return 1;
}

__END__
</code></pre>

Output:

<pre><code>C:Temp&gt; yjk
1 0 2
</code></pre>

Update: My hunch seems to have been wrong:

<pre><code>#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw( cmpthese );
use List::MoreUtils qw( first_index );

my @array = ( 0, 1, 0, 2, 3, 4, 5, 6, 7, 8, 9 );

cmpthese -10, {
 'first_index' =&gt; \&amp;using_first_index,
 'shift' =&gt; \&amp;using_shift,
 'nop' =&gt; \&amp;nop,
};

sub using_first_index {
 my @result = @array;
 my $begin = first_index { not is_unwanted($_) } @result;
 @result = @result[ $begin .. $#result ];
}

sub using_shift {
 my @result = @array;
 shift @result while is_unwanted($result[0]);
}

sub nop { my @result = @array; }

sub is_unwanted {
 my ($v) = @_;
 return if $v;
 return 1;
}
</code></pre>

Results:

<pre><code> Rate first_index shift nop
first_index 75767/s -- -71% -89%
shift 258810/s 242% -- -61%
nop 664021/s 776% 157% --
</code></pre>

I am storing values in an array using the <code>push</code> function. The first value in array is being stored at 4 element instead of first element. For instance, after storing values when I print first element <code>$array[1]</code> it prints space/nothing but when I print the fourth element <code>$array[4]</code> it prints the first value. Any suggestions on how to remove unwanted values in beginning of array?

How do I remove unwanted values from the begining of an array in Perl?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

我使用push函数将值存储在数组中。数组中的第一个值存储在4个元素中，而不是第一个元素中。例如，在存储值之后，当我打印第一个元素$array[1]时，它会打印空格/不打印任何内容，但当我打印第四个元素$array[4]时，它会打印第一个值。关于如何删除数组开头不需要的值，有什么建议吗？

问如何在Perl中删除数组开头不需要的值？
EN

回答 4

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Perl中删除数组开头不需要的值？EN

回答 4

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Perl中删除数组开头不需要的值？
EN