Question

如何检查是否定义了变量并使用perl regex在数组中搜索两个模式？

$/ = ""; # paragraph mode

__Data__
#SCSI_test         # put this line into  @arrayNewLines      
kdkdkdkdkdkdkdkd
dkdkdkdkdkdkdkdkd
- ccccccccccccccc  # put this line into @arrayNewLines


  while(<FILEREAD>)
  {
      chomp;
      my @arrayOld = split('\n',$_);

      foreach my $i (0 .. $#arrayOld) # using the foreach of index to remove the lines.
      {
            if($arrayOld[$i] =~ /-(.*)/ || /\#(.*)/)
            {
                 my @arrayNewLines = $arrayOld[$i];
                 splice @arrayOld,$i,1;             # remove lines from arrayOld
                 print "@arrayNewLines\n";
            }
                 print "@arrayOld\n";
      }
   }

此代码在将每种类型的 - 或＃行放入相同的@arrayNewLines数组方面不起作用。它仅适用于第一个（/-(.)/）模式，并且不适用于第二个（/#(.）/）。我需要它来搜索这两种模式并定义$ arrayOld [i]变量以防止使用uninitiilize消息。我想定义

Answer 1

if($arrayOld[$i] =~ /-(.*)/ || /\#(.*)/)

这不会像您认为的那样起作用，原因与此相反：

if($x == 1 || 2)

请改用：

if($arrayOld[$i] =~ /-(.*)/ || $arrayOld[$i] =~ /\#(.*)/)

就像你使用它一样：

if($x == 1 || $x == 2)

如何检查是否定义了变量并使用perl regex在数组中搜索两个模式？

1 个答案: