Answers:
是。使用拼接方法:
my @s = <3 18 4 8 92 14 30>;
my $item = 8;
my $index = @s.first($item, :k);
@s.splice($index,1);
say @s; # [3 18 4 92 14 30]
或者您可以使用Adverb :: Eject模块,因此可以将上面的代码编写为:
use Adverb::Eject;
my @s = <3 18 4 8 92 14 30>;
my $item = 8;
my $index = @s.first($item, :k);
@s[$index]:eject;
say @s; # [3 18 4 92 14 30]