2

我有 data.txt 的数据，如下所示。我有大约一百个名字，有 3 个常量 id 100、200、300，每个名字都有 32 个数据值。

NAME: xyz
ID: 100
DATA: 10 15 99 13 ...
ID: 200
DATA: 23 45 78 90..
ID: 300
DATA: 45 67 89 56
NAME: abc
ID: 100
DATA: 2 4 787 8..
ID: 200
DATA: 12 14 17..
ID: 300
DATA: 45 34 22..

我需要将此数据写入另一个文件，看起来像

xyz_100, xyz_200,xyz_300,abc_100,...
10     , 23     , 45     ,2
15     , 45     ,67       ,4

我构建了一个散列来存储值，但现在我的代码会覆盖前两个条目并存储最后一个条目。我怎样才能保存前两个条目，如果我可以简化代码，请告诉我。

#!/usr/local/bin/perl
use diagnostics;
use strict;
use warnings;

my @avar_names;
my %record;

local $/ = '';
open my $fh, '<', 'datalog.dat' or die "failed: $!";
while (<$fh>) {
  chomp;
   my %avar;
   while (/^([A-Z:]+):\s*(.*)/mg) {
      $avar{$1} = $2;
   }
   my $avar_name = "$avar{NAME}_$avar{ID}";

   push @avar_names, $avar_name;
   $record{$avar_name} = $avar{DATA};

use Data::Dumper;
print Dumper \%record;
}
4

2 回答 2

2

存在一致性问题：该local行使第一个while将整个 NAME/ID 数据作为一个整体进行处理（然后，由于while(//mg)循环），但代码原样需要逐行处理。

我建议简单：由于当前行上的正则表达式，逐行处理文件行，对于每一行，识别“NAME/ID”对（ID 可以是 DATA）。

为了让它工作，%avar不需要在whileon本地<$fh>，因为它必须跟踪它从文件的最后几行获得的最后一个 NAME/ID 引用。

@avar_names未使用该数组。

最后，您想在最后打印结果记录（我想），但这是您的选择。

这是您的程序，我试图从中仅更改上述内容：

#!/usr/local/bin/perl
use diagnostics;
use strict;
use warnings;

my @avar_names;
my %record;

#local $/ = ''; ## commented out
open my $fh, '<', 'datalog.dat' or die "failed: $!";

my %avar; ## moved here

while (<$fh>) {
   chomp;
   if (m/^([A-Z]+):\s*(.*)/) {  ## if, not a while
      $avar{$1} = $2;

      ## ensure we have at least our 3 keys, process only if we met DATA
      if (exists($avar{NAME}) && exists($avar{ID}) && exists($avar{DATA}) && $1 eq 'DATA') { 
         my $avar_name = "$avar{NAME}_$avar{ID}";

         push @avar_names, $avar_name;  ## not used
         $record{$avar_name} = $avar{DATA};
      }
   }
}

use Data::Dumper;
print Dumper \%record;

输出：

$VAR1 = {
          'xyz_100' => '10 15 99 13 ...',
          'xyz_300' => '45 67 89 56',
          'abc_200' => '12 14 17..',
          'abc_300' => '45 34 22..',
          'abc_100' => '2 4 787 8..',
          'xyz_200' => '23 45 78 90..'
        };
于 2013-05-31T06:20:01.147 回答
1

你需要这样的东西：

my @avars;
# ... some code
while (<$fh>) {
  # more code
  my %curr;
  while (/^([A-Z:]+):\s*(.*)/mg) {
    $curr->{$1} = $2;
  }
  if (%curr) {
     push @avars, \%curr;
     my $avar_name = "$curr{NAME}_$curr{ID}";
     push @avar_names, $avar_name;
     $record{$avar_name} = $avar{DATA};
  }
  # ....
于 2013-05-31T05:28:01.917 回答