Perl 生成复杂记录的哈希

Question

我似乎无法弄清楚的大问题。 我需要输入这个复杂的哈希（数组？）：

my $raterequest =  
{
    Shipment =>
    {
        Shipper =>
        {
            (static data here)
        },
        ShipTo =>
        {
            (static data here too)
        },
        Package =>
        [
            {
                PackagingType =>
                {
                    Code => '02',
                    Description => 'Package'
                },
                PackageWeight =>
                {
                    UnitOfMeasurement =>
                    {
                        Code => 'LBS'
                    },
                    Weight => $boxWt
                },
            },

            {
                PackagingType =>
                {
                    Code => '02',
                    Description => 'Package'
                },
                PackageWeight =>
                {
                    UnitOfMeasurement =>
                    {
                        Code => 'LBS'
                    },
                    Weight => $boxWt
                },
            }
        ],
    }
};

我需要输入的是 Package 数组中的所有内容。

我有一个生成如下输出的 LoH：

my %carton_specs = 
    (
        25 => {
            boxQty  =>  25,
            boxWt   =>  4,
            boxNo   =>  2
        },
        50 => {
            boxQty  =>  50,
            boxWt   =>  8,
            boxNo   =>  17
        },
);

我需要在Package中重复匿名数组的地方

{
    PackagingType =>
    {
        Code => '02',
        Description => 'Package'
    },
    PackageWeight =>
    {
        UnitOfMeasurement =>
        {
            Code => 'LBS'
        },
        Weight => $boxWt
    },
},

乘以从$boxNo 返回的数字。唯一变化的变量是Weight => $boxWt

请原谅我可能命名错误的任何内容。我已经为此奋斗了 2 天，我的头要爆炸了。

Answer 1

在我看来，您正在寻找push 以及来自perlreftut 的信息（可能还有.. range operator）。我希望我正确理解了您的规格：

use warnings;
use strict;
use Data::Dump;

my $raterequest = {
    Shipment => {
        Package => [ ],
    } };

my %carton_specs =  (
    25 => { boxQty => 25, boxWt => 4, boxNo =>  2 },
    50 => { boxQty => 50, boxWt => 8, boxNo => 17 },
);

for my $carton (sort keys %carton_specs) {
    for ( 1 .. $carton_specs{$carton}{boxNo} ) {
        push @{ $raterequest->{Shipment}{Package} }, {
            PackagingType => {
                Code => '02',
                Description => 'Package',
            },
            PackageWeight => {
                UnitOfMeasurement => { Code => 'LBS' },
                Weight => $carton_specs{$carton}{boxWt},
            },
        };
    }
}

dd $raterequest;

输出：

{
  Shipment => {
    Package => [
      {
        PackageWeight => { UnitOfMeasurement => { Code => "LBS" }, Weight => 4 },
        PackagingType => { Code => "02", Description => "Package" },
      },
      {
        PackageWeight => { UnitOfMeasurement => { Code => "LBS" }, Weight => 4 },
        PackagingType => { Code => "02", Description => "Package" },
      },
      {
        PackageWeight => { UnitOfMeasurement => { Code => "LBS" }, Weight => 8 },
        PackagingType => { Code => "02", Description => "Package" },
      },
      # ... omit 16 repetitions of the previous hashref ...
    ],
  },
}