regex - Perl 从数组中删除元素

Question

我在 perl 中有一个二维数组。我想删除所有具有 <<< 或 >>> 模式的元素。我写了一个 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 命令从 hash 而不是 array 中删除键控值。如果你有这样的数组:

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

如果您想删除 X(即 $array[6])，您可以使用 splice 命令:

splice @array, 6, 1;

最后，Perl 没有二维数组，所以你不能从二维数组中删除一个值。

您拥有的是对第二个数组的引用 数组。这样想:

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 删除元素，您将必须决定是要让元素向上移动以替换已删除的值还是向左移动以替换已删除的值.如果您想要向左移动的值，则需要一个数组或对行数组的引用。如果您希望值向上移动以填充已删除的值，您需要一个对列数组的引用数组。

请记住，计算机会完全按照您的指示执行，而不是您希望它们执行的操作。确保您确切了解自己想要什么。