主页 / user-4279387

olivierg's questions

Martin Hope
olivierg
Asked: 2024-12-26 22:56:50 +0800 CST
  • 6

我有一个像这样的数据结构（具有许多哈希和数组，包含不同的环境、用户、配置文件、访问权限等）：

%AR = (
'prod' => {
                   'username' => {
                                        'access_profile1' => [
                                                             'accessright1',
                                                             'accessright2',
                                                             'accessright3',
                                                             'accessrightN',
                                                            ],
                                        'access_profile2' => [
                                                             'accessright7',
                                                             'accessright8',
                                                             'accessright9',
                                                            ],
                                        'access_profileN' => [
                                                             'accessrightX',
                                                             'accessrightX',
                                                             'accessrightX',
                                                            ],
                                       },
                   },
);

我想给我的脚本一个选项，当启用时，它必须强制结构中的所有配置文件名称都使用标准名称（例如 default_profile）（重新生成它） - 当然这意味着所有访问权限都是唯一的，否则有些可能会覆盖其他访问权限 -

我知道我可以通过简单地循环这个结构并填充一个“新”结构来做到这一点，如下所示：

my $newAR;

foreach my $env ( keys %AR ) {
   foreach my $user ( keys %{ $AR{$env} } ) {
      foreach my $profile ( keys %{ $AR{$env}{$user} } ) {

         # fill the new data structure
         foreach my $accessright (@{ $AR{$env}{$user}{$profile} }) {
            push (@{ $newAR{$env}{$user}{'default_profile'} }, $accessright);
         }

      }
   }
}

最后给出了正确的结果：

$VAR1 = {
          'prod' => {
                      'username' => {
                                      'default_profile' => [
                                                             'accessrightX',
                                                             'accessrightX',
                                                             'accessrightX',
                                                             'accessright7',
                                                             'accessright8',
                                                             'accessright9',
                                                             'accessright1',
                                                             'accessright2',
                                                             'accessright3',
                                                             'accessrightN'
                                                           ]
                                    }
                    }
        };

在 Perl 中，难道没有一种“更干净”的方式来做到这一点吗？我不太擅长所有映射等，我相信一定有一种更简洁的方式来编写这些嵌套循环。

perl
Martin Hope
olivierg
Asked: 2024-02-20 21:07:01 +0800 CST
  • 6

总结一下：

  • 我有一个主脚本，里面有一个哈希值
  • 这个主脚本调用一个包，其中我有一个子例程，我想从中修改这个全局哈希的内容（向其中添加元素）

这是我放入 /tmp 中的代码的极其简化的提取，以说明我的问题：

主脚本（/tmp/nonstdtest.pl）：

#!/usr/bin/perl

use lib '/tmp';

use TEST;
use Data::Dumper;

my %nonstd;

tNumber(\%nonstd);

print Dumper(\%nonstd);

包（/tmp/TEST.pm）：

package TEST;

use strict;
use warnings;

use Exporter;

our @ISA= qw( Exporter );
our @EXPORT_OK = qw( tNumber );
our @EXPORT = qw( tNumber );

sub tNumber {

   my $nonstd      = shift;
   $nonstd      = %$nonstd;

   $nonstd{'example'} = 'test_here';

}

问题，输出是：

Global symbol "%nonstd" requires explicit package name at /tmp/TEST.pm line 15.
Compilation failed in require at /tmp/nonstdtest.pl line 5.
BEGIN failed--compilation aborted at /tmp/nonstdtest.pl line 5.

问题：如何使用包中定义的子例程修改 %nonstd （在主脚本中定义）的内容？

我尝试在没有包的情况下（在同一脚本内）执行此操作，并且它运行正常（只要我在子例程中保留具有相同名称的哈希值），所以我在这里做错了。

我在上面的示例中期望的结果只是让 %nonstd 填充 1 个键/值对 (example/test_here)

perl