arrays - 哈希的键作为数组，匹配后将键值放入数组

Question

我已将显示的文件作为脚本的输入并创建了一个哈希值。我想将键作为数组，并在匹配后将相应的键值放入该数组中。

我已经创建了哈希，但发现将键创建为数组并将其值创建到相应数组中时出现问题。非常感谢任何帮助。

预期输出如下

@school = (STRING_x, STRING_y, STRING_z,STRING_k)
@University = (STRING_a, STRING_b, STRING_c)s
@College = (STRING_d, STRING_e, STRING_f)

输入文件

begin_
No,59,Type:,School,Authors:,,,,
Local,config
0,0,0,STRING_x,256
1,0,1,STRING_y,256
2,0,2,STRING_z,256
3,0,3,STRING_k,256
end,,,,,

begin_
No,99,Type:,University,Authors:,,,
Local,config
0,0,0,STRING_a,64
0,0,0,STRING_b,64
0,0,0,STRING_c,64
end,,,,,

begin_
No,234,Type:,College,Authors:,,,
Local,config
0,0,0,STRING_d,32
0,0,0,STRING_e,32
0,0,0,STRING_f,32
end,,,,,

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use feature qw(say);

my $csv= "./file.txt";  

die "cannot open csv\n" if (!open(CSV, "<$csv" ));

my %storage;
my $compiler;
my $macro;

my @bil = qw(
  STRING_a STRING_b STRING_c STRING_d STRING_e
  STRING_f STRING_x STRING_y STRING_z STRING_k
);

while (<CSV>){
    chomp(my $line =$_);
    next if ($line !~ /^No|^\d+/ );
    $compiler = $1 if ($line =~ /No,\d+,Type:,(\w+)/);

    if ($line =~ /\d+,\d+,\d+,(\w+),/){
        $macro=$1;
        push @{$storage{$compiler}},$1;
    }
}

close CSV;
print Dumper \%storage;

for my $bil(@bil) {
    while (my ($k,$v) =each%storage ){
        print "Line-----$bil,,,, $v\n";
        if ($bil =~$v){
            #Need help (I want to store the $v into an array having the name $k)
        }
    }
}

Answer 1

也许是这样的。它分两个阶段处理文件。

第 1 阶段解析输入数据，提取对我们有用的信息并将其存储在哈希中。哈希的键是数组名称，哈希中的值是包含数组元素的数组引用。

第 2 阶段遍历我们在第 1 阶段构建的内容并将其转换为所需的输出。

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

# Where we're going to store the useful bits of the
# data during the parsing stage
my %data;
# Where we store the name of the current hash key.
my $key;

# Stage 1: Parsing
while (<>) {
  # This looks for the array name record, extracts the
  # string from between "Type" and "Authors" and stores that
  # string as $key
  if (/Type:,(\w+),Authors:/) {
    $key = $1;
  }

  # This looks for "STRING" record, extracts that from the input
  # line and pushes that onto the end of the current array reference
  if (/(STRING[^,]+)/) {
    push @{$data{$key}}, $1;
  }
}

# Stage 2: Output
# For each key in the data hash...
for (keys %data) {
  # ... extract the data we want and print it
  say '@', "$_ = (", join(', ', @{$data{$_}}), ')';
}

更新:好的，让我们更详细地看看最终的循环。

我们有一个名为 %data 的哈希值，其中包含我们从输入文件中解析的信息。键是“School”和“College”之类的内容，值是数组引用。

我们首先循环该哈希的键。我们可以打印这些 key 。

foreach (keys %data) {
  say $_;
}

请注意，每次我们进行此循环时，变量 $_ 都包含哈希中的键之一。由于哈希值是随机排序的，因此我们每次都会以随机顺序获取这些 key 。

您希望键名称前面带有“@”。这很简单:

foreach (keys %data) {
  say '@', $_;
}

将其放入双引号字符串("@$_")中可能很诱人，但 Perl 会将“@”解释为数组变量的开头(它不是'那里)。因此，最简单的解决方法是将字符串分成两部分。

然后我们希望字符串包含“=(STUFF)” - 所以让我们添加它。

foreach (keys %data) {
  say '@', "$_ = (STUFF)";
}

当然，“STUFF”有点复杂。我们可以从打印哈希值开始:

foreach (keys %data) {
  say '@', "$_ = ($data{$_})";
}

但这并没有给我们想要的东西:

@College = (ARRAY(0x55c35f9c8fd0))
@University = (ARRAY(0x55c35f9c8e68))
@School = (ARRAY(0x55c35f9d23e8))

那是因为我们拥有的是一个数组引用。所以我们需要取消引用它。

for (keys %data) {
  say '@', "$_ = (@{$data{$_}})";
}

这让我们更接近:

@University = (STRING_a STRING_b STRING_c)
@School = (STRING_x STRING_y STRING_z STRING_k)
@College = (STRING_d STRING_e STRING_f)

但是您要求在列表中的元素之间使用逗号。我们可以使用 join() 来做到这一点，但我们需要拆分输出字符串的各个位 - 因为您无法在字符串内调用函数。如果我们将输出字符串的每个部分放在单独的行上可能会更容易理解:

for (keys %data) {
  say '@',
      "$_ = (",
      join(', ', @{$data{$_}}),
      ')';
}

我们在这里打印四个部分:

1. 首字母“@”
2. 键名称(在 $_ 中)以及字符串的下一个固定部分
3. 我们通过调用 join() 生成的字符串，传递“,”和我们的解引用数组
4. 最后一个“)”作为我们列表的结尾

将这些放在一起，得到以下输出:

@College = (STRING_d, STRING_e, STRING_f)
@School = (STRING_x, STRING_y, STRING_z, STRING_k)
@University = (STRING_a, STRING_b, STRING_c)

我忘记提及的一件事是，我删除了对输入文件名进行硬编码并打开文件的代码。从命令行读取数据更简单、更灵活。就是这样

while (<>) {
  ...
}

是的。它只是从命令行上传递的文件名中读取数据，并将每一行依次放入 $_ 中。

我希望这能让事情变得更清楚。