Question

我期待了解一些管理属性文件的最佳方法。

我们有一套设备（比如说N）。每个设备都具有某些属性。例如设备A具有属性

A.a11 = valuea11

A.a12 = valuea12

设备B具有属性

B.b11 = valueb11

B.b12 = valueb12

除此之外，它们还有一些适用于所有设备的通用属性。

X.x11 = valuex11

X.x12 = valuex12

我正在为这些设备上运行一些测试套件编写自动化程序。一次，在单个设备上运行测试脚本。设备名称将作为参数传递。根据设备名称，代码将获取相应的属性和公共属性，并使用这些属性更新设备。例如对于设备A，代码将获取A.a11，A.a12（特定设备A）和X.x11，X.x12（常见）属性，并在运行测试脚本之前将其上传到设备。

因此，在代码中，我需要管理这些属性，以便只将设备特定和公共属性上传到设备，而忽略其余属性。我像这样管理它

if ($device eq 'A') then
    upload A's properties
elsif ($device eq 'B') then
    upload B's properties
endif

upload Common (X) properties.

随着设备数量不断增加，以这种方式管理设备变得有点困难。

所以我期待其他一些管理这些属性的最佳方法。

Answer 1

这是一个很好的案例，其中v（在广义OOP文献中也称为特征）将是有用的。

而不是经典对象是类，角色是对象* 做* 角色。

查看相应的Moose文档以获取更多信息。

示例：

package Device::ActLikeA;
use Moose::Role;

has 'attribute' => (
    isa => string,
    is  => 'rw',
    default => 'Apple',
);

sub an_a_like_method {
    my $self = shift;

    # foo
}

1;

所以现在我有一个名为Device::ActLikeA的角色，我该怎么办呢？

好吧，我可以将角色应用到一个类中，ActLikeA中定义的代码和属性将在类中提供：

package Device::USBButterChurn;
use Moose;

does 'Device::ActLikeA';

# now has an attribute 'attribute' and a method 'an_a_like_method'
1;

您还可以将角色应用于班级的各个实例。

package Device;
use Moose;

has 'part_no' => (
  isa => 'Str',
  is  => 'ro',
  required => 1,
);

has 'serial' => {
  isa  => 'Str',
  is   => 'ro',
  lazy => 1,
  build => '_build_serial',
);

1;

然后查看该部分并应用适当角色的主要代码：

my @PART_MATCH = (
    [ qr/Foo/,              'Device::MetaSyntacticVariable' ],
    [ qr/^...-[^_]*[A][^-], 'Device::ActLikeA; ],
    [ qr/^...-[^_]*[B][^-], 'Device::ActLikeB; ],
# etc
);

my $parts = load_parts($config_file);

for my $part ( @$parts ) {

    my $part_no = $part->part_number();

    for my $_ (@PART_MATCH) {
        my ($match, $role) = @$_;
        $part->apply_role($role)
           if $part_no =~ /$match/;
    }

}

Answer 2

这是一种非常直接的方法。

首先，你需要一种方法来表明A“是-a”X和B“是-a”X，即X是A和B的父亲。

然后你的upload_device例程看起来像这样：

sub upload_properties {
  my $device = shift;
  ... upload the "specific" properties of $device ...
  for my $parent (parent's of $device) {
    upload_properties($parent);
  }
}

一种实施方式：

用配置文件中的一行表示“is-a”关系，如：

A.isa = X

（请随意使用其他语法 - 您使用的内容取决于您要如何解析文件。）

从配置文件中，创建所有设备的哈希值：

$all_devices = {
  A => { a11 => valuea11, a12 => valuea12, isa => [ 'X' ]},
  B => { b11 => valueb11, b12 => valueb12, isa => [ 'X' ] },
  X => { x11 => valuex11, x12 => valuex12, isa => [] },
}

upload_properties例程：

sub upload_properties {
  my ($device) = @_;
  for my $key (keys %$device) {
    next if $key eq "isa";
    ... upload property $key => $device->{$key} ...
  }
  my $isa = $device->{isa};  # this should be an array ref
  for my $parent_name (@$isa) {
  my $parent = $all_devices->{$parent_name};
    upload_properties($parent);
  }
}

# e.g. to upload device 'A':

upload_properties( $all_devices->{'A'} );

Answer 3

您可以通过将设备属性存储在哈希中来消除大型if-else链。然后，您只需要确保特定$设备出现在该哈希值中。

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

my %vals = (
    A => {
        a11 => 'valuea11',
        a12 => 'valuea12',
    },
    B => {
        b11 => 'valueb11',
        b12 => 'valueb12',
    },
);

foreach my $device qw(A B C) {
    if (exists $vals{$device}) {
        upload_properties($vals{$device});
    }
    else {
        warn "'$device' is not a valid device\n";
    }
}

sub upload_properties {
    my($h) = @_;
    print "setting $_=$h->{$_}\n" for sort keys %$h; # simulate upload
    print "\n";
}

管理和加载属性的最佳实践

3 个答案: