我如何将 append 或 hash 推到 ZF83A0AA1F9CA79F7DD59944DE 中的多维 hash 上

Question

The following code creates a multidimensional hash of hashes, if that's the correct phrase. (Is there a better description?)

Each new subhash of $CRIT{sourcefile}{raw} is created by 4 lines of code. (The chunk subhash is included only as a reminder that there will be several other hashes inside this array.)

#!/usr/bin/perl
use strict; use warnings;
use Data::Dumper qw(Dumper);
my $index=0;
my %CRIT;
$CRIT{chunk}{raw}{1}{ANDOR} = 'ORNOT';
$index++;
$CRIT{sourcefile}{raw}{$index}{ANDOR} = 'OR';
$CRIT{sourcefile}{raw}{$index}{regex} = 'Woody\s+Guthrie';
$CRIT{sourcefile}{raw}{$index}{mod} = '';
$index++;
$CRIT{sourcefile}{raw}{$index}{ANDOR} = 'ANDNOT';
$CRIT{sourcefile}{raw}{$index}{regex} = '((Seeger)|(Baez))';
$CRIT{sourcefile}{raw}{$index}{mod} = 'i';
print Dumper \%CRIT;
my %NOWhash;
%NOWhash = (
   'ANDOR' => 'OR',
   'regex' => '\bUtah\s*Phill?ips\b',
   'mod' => 'i',
);
print Dumper \%NOWhash;

But consider %NOWhash , created at the bottom. Is there a way to push or otherwise add %NOWhash to $CRIT{sourcefile}{raw} ? If so, is there a way to assign a specific $index to it?

Answer 1

When one has a sequence of items, an array is usually the most appropriate structure.

my %CRIT;
$CRIT{chunk}{raw} = [
   {
      ANDOR => 'ORNOT',
   },
   {
      ANDOR => 'OR',
      regex => 'Woody\s+Guthrie',
      mod   => '',
   },
   {
      ANDOR => 'ANDNOT',
      regex => '((Seeger)|(Baez))',
      mod   => 'i',
   },
];

push @{ $CRIT{chunk}{raw} }, {
   ANDOR => 'OR',
   regex => '\bUtah\s*Phill?ips\b',
   mod   => 'i',
);

See:

• perlreftut
• perldsc
• perllol