小编Sai*_*mma的帖子

我想将一个字符串数组与另一个字符串数组进行比较；如果匹配，则打印匹配。

例子：

@array = ("R-ID 1.0001", "RA-ID 61.02154", "TCA-ID 49.021456","RCID 61.02154","RB-ID 61.02154");
@var = ("TCA-ID 49", "R-ID 1");

for (my $x = 0; $x <= 4; $x++)
{
  $array[$x] =~ /(.+?)\./;
  if( ($var[0] eq $1) or ($var[1] eq $1) )
  {
    print "\n deleted rows are :@array\n";
  }
  else
  {
    print "printed rows are : @array \n";
    push(@Matrix, \@array);
  }

然后我需要@var与@array;进行比较 如果匹配，则打印匹配的模式。

这里，整个逻辑位于一个 hiartical for 循环中，它在每次迭代中给出一个新的 @array。所以每次执行这个逻辑时@array都有不同的字符串。

然后附带@var，它是用户输入字段，这个@var可以是任意大小。因此，为了根据这些约束运行逻辑，例如，当用户输入 @var 大小为 3 时，我需要迭代 if 循环内的条件。

因此，目标是使用上述逻辑来匹配和删除用户输入字符串。但不幸的是，逻辑不起作用。您能帮我解决这个问题吗？