Question

我的数据文件有一个常规模式，我需要从中提取信息。每个部分由空行分隔。因此，我想知道是否可以基于空行拆分文件进行处理。

为了更好地解释我的问题，让我分享一下示例结构：

 Block: A1
 -----------------------------------
 Height:                       24.00
 Width:                         0.79
 Depth:                         0.04
 -----------------------------------

 Block: A2
 -----------------------------------
 Height:                       20.00
 Width:                         1.00
 Depth:                         0.54
 -----------------------------------

 Block: B1
 -----------------------------------
 Height:                        4.00
 Width:                         4.50
 Depth:                         0.87
 -----------------------------------

在此数据库中，我需要通过创建多个列来简化报告。我想要实现的算法是，如果我可以根据空行将文件拆分成更小的部分，我可以将数据库读入一个二维数组，最后将数据转储为我选择的格式。因此，第一个要求是在我可以基于空行拆分文件以进行进一步处理的情况下。

我预期的最终结果是

              A1      A2     B1
 Height:     24.00  20.00   4.00
 Width:       1.00   4.00   4.50
 Depth:       0.04   0.54   0.87

任何建议/线索将不胜感激。

Answer 1

使用＆＃34;段落模式＆＃34;可以很容易地将文件拆分为基于空行的处理。

local $/ = "";
while (my $block = <>) {
   ...
}

但是不容易。

my $block;
my $data;
while (<>) {
   if (/^Block:\s*(\S+)/) {
      $block = $1;
   }
   elsif (/^(\S+):\s*(\S+)/) {
      $data{$1}{$block} = $2;
   }
}

Answer 2

while(<>)
{
push @B,$1 if(/Block:\s*(\S*)/);
push @H,$1 if(/Height:\s*(\S*)/);
push @W,$1 if(/Width:\s*(\S*)/);
push @D,$1 if(/Depth:\s*(\S*)/);
}

print "\t\t @B \n";
print "Height @H \n";
print "Width @W \n";
print "Depth @D \n";

经过测试Here

Perl：基于空白行拆分文件进行处理

2 个答案: