如何在下一行解析包含相关数据的数组

Question

打开我的 $outfile、'>'、$outpath 或 $logger->logdie("Error: Can't open $outpath. It may be open.:$!");我有一个命令，其输出被读入一个数组（按换行符分割），然后进行解析。 当我过去从文件中获取它并仅使用本地 $/ = ""; 时，它工作得非常完美。但我读到拥有中间文件是浪费，并更改了它。现在我根本无法阅读下一行！ 以下是需要解析的不同类型的数据输出：

fcalias name DA540_MAE_I0032 vsan 24
pwwn X0:00:00:63:ab:03:86:e1

fcalias name NAEMS02_DH6_AUX0 vsan 53

fcalias name NRTMF02_DM3_BE0 vsan 53

fcalias name DMSRT56-777_09C0 vsan 53
interface fc2/33 swwn 20:13:ev:0d:ed:3e:da:00

当 pwwn 出现时，我希望将其添加到 fcalias 中，变量“type”= pwwn/swwn/none 取决于数据。

这是我的代码，

sub fcalias 
   { my ($path, $commandfile, $switch_ip, @data) = @_;
     my $outpath = "$path${switch_ip}_${commandfile}.csv";  
     open my $outfile, '>', $outpath or $logger->logdie("Error: Can't open $outpath. It   may be open.:$!");    
     my ($type, $fcalias, $vsan);

     while  (@data) 
    { $_ = shift(@data); 
      s/^\s+//;       # Delete leading whitespaces
      next if (/^$/); # Skip empty lines

      if  (/^fcalias name (\S+) vsan (\S+)/) 
         {($fcalias, $vsan) = ($1, $2);next;} 

      elsif (/^pwwn (\S+)/) 
           {$type = "pwwn"; my $pwwn = $1; 
            print ($outfile, "$fcalias;$vsan;$type;$pwwn;;;$switch_ip\n");
           } 

      elsif  (/interface (\S+) swwn (\S+)/) 
            {$type = "interface"; 
            my ($interface,$swwn) = ($1,$2); 
            print ($outfile, "$fcalias;$vsan;$type;;$swwn;$interface;$switch_ip\n");
            } 

      else  {$type = "none";
            print ($outfile, "$fcalias;$vsan;$type;;;;$switch_ip\n");
           # print "$_ \n";
            }
    }
    print "..................DONE\n";
}

当然，正如您可能已经注意到的那样，其他根本不起作用，我得到了 fcalias 双打。但无论我尝试什么，我都无法添加获得我需要的输出。这个子例程是一个更大的脚本的一部分，该脚本已经过优化，只是缺少这一部分......帮助！

作为参考，这是旧的代码循环。请原谅冗长的帖子和代码格式。我试过。谢谢！

local $/ = "";
while (<DATA>) 
{ if  ($_ =~ m/^fcalias name (\S+) vsan (\S+)\s+pwwn (\S+)/) 
     { my ($fcalias, $vsan, $pwwn) = ($1, $2, $3);
       my $type = "pwwn";
       print (OUTFILE "$fcalias;$vsan;$type;$pwwn;;;$switch_ip\n");  
      } 

  elsif  ($_ =~ m/^fcalias name (\S+) vsan (\S+)\s+interface (\S+) swwn (\S+)/) 
      { my ($fcalias, $vsan, $interface, $swwn) = ($1, $2, $3 ,$4);
        my $type = "interface"; 
        print (OUTFILE "$fcalias;$vsan;$type;;$interface;$swwn;$switch_ip\n");
       } 

  else  ($_ =~ m/^fcalias name (\S+) vsan (\S+)/) 
       { my ($fcalias, $vsan) = ($1, $2);
         my $type = "none";
         print (OUTFILE "$fcalias;$vsan;$type;;;;$switch_ip\n");
       }
}

Answer 1

要回答标题中的问题，您可以

1. 向前看下一行，或者

2. 在阅读下一行时修补阅读上一行的结果 当您读取下一行时

对于根本不起作用的else，您是否知道您已经注释掉了其中的一半？并且它不写入 OUTFILE ？ 您提供的输入都不会到达它吗？您正在跳过空行并匹配所有其他行。当匹配到^fcalias（或者数据用完）时执行else的主体，发现它设置的变量还没有被重置；另外，在 pwwn|interface 情况下重置这些变量。

要避免使用中间文件但仍使用旧代码，请使用带有管道的 open 。例如，

open DATA, "fcalias-stuff |" or die $!;

Answer 2

如果逐行读取数据会让你的工作变得更加困难，你为什么要这么做呢？ slurping 的问题在于所有内容都会同时进入内存。如果您的文件足够小，这应该不是问题。

对您的风格的附加评论。您不应使用全局文件句柄 (OUTFILE)。这些是全局变量，伴随着它们带来的所有问题。如果您在递归函数中打开了全局文件句柄，例如您将始终关闭并重新打开文件句柄。

最好使用本地文件句柄，如 open my $outfile, '>', $outpath or die。