Question

我在perl中有一个2D数组。我想删除所有具有模式＆lt;＆lt;＆lt;＆lt;或＆gt;＆gt;＆gt;。我编写了一个perl代码，它在匹配模式之前工作正常，但它不能删除该元素，会发生一些错误。

 foreach my $x(@array)
   { 
     foreach my $y(@$x)
     {
        if($y =~ (m/^(\<+)|(\>+)$/ig))
         {
            delete $y;
         }
     }
   }

您能否帮我删除与该模式匹配的特定元素。（我想删除并从数组中删除，而不是取消它）

Answer 1

假设您的数组看起来像这样：

1  2  3  4
5  X  6  7
8  9  A  B

您想要删除X。你想要发生什么？删除后你的新数组应该是什么样的？

你喜欢这个：

1  2  3  4
4  6  7
8  9  A  B

还是这个？

1  2  3  4
5  9  6  7
8     A  B

这是你需要决定的第一件事。其次，您无法使用delete。 delete命令从哈希而不是数组中删除键控值。如果您有这样的数组：

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

如果要删除X（$array[6]），请使用splice命令：

splice @array, 6, 1;

最后，Perl没有2维数组，因此您无法从2维数组中删除值。

你拥有的是第二个数组的引用数组。想一想：

my @row0 = qw(1 2 3 4);
my @row1 = qw(5 X 6 7);
my @row2 = qw(8 9 A B);

my @two_d_array = (\@row0, \@row1, \@row2);

或者，我可以通过专栏来做到这一点：

my @col0 = qw(1 5 8);
my @col1 = qw(2 X 6);
my @col2 = qw(2 6 A);
my @col3 = qw(4 7 B);

my @two_d_array = (\@col0, \@col1, \@col2, \@col3);

当你谈论。

if ( $two_d_array[1][1]` eq "X" ) {

Perl正在弄乱你的想法。它让你觉得有一个二维数组，但它并不存在。

更准确的写作方式是：

if ( ${ $two_d_array[1] }[1] eq "X" ) {

或更干净：

if ( $two_d_array[1]->[1] eq "X" ) {

首先，通过删除值来确定您的意思。在二维数组中，如果您实际删除该值，则最终会破坏该数组的维度结构。也许你可以用undef来替换那个值。

一旦你这样做，你必须了解你实际处理的内容：一组引用到数组。

for my $array_reference ( @two_d_array ) {
    for my $value ( @{ $array_reference } ) {
        if ( $value =~ /^(<+|>+)$/ ) {
            $value = undef;   #See Note #1
        }
    }
}

注意＃1 ：使用for循环时，数组的索引是指向数组中实际值的链接。因此，当您更改索引时，您将更改实际值。这就是为什么这会起作用。

如果您确实想要使用splice删除元素，则必须决定是否希望元素向上移动以替换已删除的值或向左移动以替换已删除的值。如果希望值向左移动，则需要一个数组或对行数组的引用。如果您想要向上移动以填充已删除的值，则需要一个对列数组的引用数组。

请记住，计算机将完全按照您的要求执行，而不是您希望他们执行的操作。确保你完全理解你想要的东西。

Answer 2

您正在将delete应用于标量值$y，而删除仅适用于哈希和数组。你需要做的事

for my $x (0 .. $#array) {
    for my $y (0 .. $#{$array[$x]}) {
        if (...) { delete $array[$x][$y]; }

我认为最佳解决方案是在将值存储到数组之前删除该值。我猜你从一些数据源（如文件）中读取它，这将是过滤它的最佳位置。 E.g。

while (<$fh>) {
    ....
    @values = grep !/^[<>]+/, @values;    # filtering
    push @array, \@values;                # storing
}

在那个注释中，之后也可以这样做，当然，还有以下内容：

for (@array) {
    @$_ = grep !/^[<>]+/, @$_;
}

Answer 3

您可以通过splice函数从数组中删除元素：此示例中的splice(@array, $index, 1); 1是要删除的元素数量 delete函数仅将数组值设置为undef

Answer 4

delete不会改变数组索引，因此它不是您想要的。如果要按值删除元素，请使用以下内容：

foreach my $x(@array)
   {   
       $x = [ grep { $_ !~ (m/^(\<+)|(\>+)$/ig)} @$x ];
       print join(",", @$x), "\n";
   }

或者，使用拼接。但是，您需要使用索引而不是值来迭代数组。

另见Perl-delete，Perl-splice。

Perl从数组中删除元素

4 个答案: