2

我在 perl 中有一个二维数组。我想删除所有具有 <<< 或 >>> 模式的元素。我写了一个 perl 代码，在匹配模式之前它工作得很好，但是它不能删除那个元素，会发生一些错误。

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

你能帮我删除与模式匹配的特定元素吗？（我想从数组中删除和删除，而不是取消它）

4

4 回答 4

4

假设您的数组如下所示：

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 没有二维数组，所以你不能从二维数组中删除一个值。

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

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

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

于 2013-04-16T14:03:50.807 回答
2

您正在应用delete标量值$y，而 delete 仅适用于散列和数组。你需要做

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

在我看来，最好的解决方案是在将值存储到数组之前删除它。我猜您是从某个数据源（例如文件）中读取它的，那将是过滤掉它的最佳位置。例如

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

在那张纸条上，您当然也可以在之后执行此操作，例如：

for (@array) {
    @$_ = grep !/^[<>]+/, @$_;
}
于 2013-04-16T12:33:11.350 回答
1

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

于 2013-04-16T12:23:06.260 回答
0

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

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

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

另请参阅Perl-delete、Perl-splice。

于 2013-04-16T12:25:23.317 回答