2

我选择使用 tie 并找到这个：

package Galaxy::IO::INI;
sub new {
    my $invocant = shift;
    my $class = ref($invocant) || $invocant;
    my $self = {']' => []}; # ini section can never be ']'
    tie %{$self},'INIHash';
    return bless $self, $class;
}

package INIHash;
use Carp;
require Tie::Hash;

@INIHash::ISA = qw(Tie::StdHash);

sub STORE {
    #$_[0]->{$_[1]} = $_[2];
    push @{$_[0]->{']'}},$_[1] unless exists $_[0]->{$_[1]};
    for (keys %{$_[2]}) {
        next if $_ eq '=';
        push @{$_[0]->{$_[1]}->{'='}},$_ unless exists $_[0]->{$_[1]}->{$_};
        $_[0]->{$_[1]}->{$_}=$_[2]->{$_};
    }
    $_[0]->{$_[1]}->{'='};
}

如果我删除最后一个“$ [0]->{$ [1]}->{'='};”，它将无法正常工作。为什么 ？

我知道需要返回值。但是“$ [0]->{$ [1]};” 也无法正常工作，并且 $ [0]->{$ [1]}->{'='} 不是全部。

旧帖：

我正在用 Perl 编写一个包来解析 INI 文件。只是基于Config::Tiny.

我想保持部分和键的顺序，所以我使用额外的数组来存储顺序。

但是当我使用“ $Config->{newsection} = { this => 'that' }; # Add a section”时，我需要重载' ='，以便可以将“newsection”和“this”推入数组。

这是否可以使“ $Config->{newsection} = { this => 'that' };”工作而不影响其他部分？

部分代码是：

sub new {
    my $invocant = shift;
    my $class = ref($invocant) || $invocant;
    my $self = {']' => []}; # ini section can never be ']'
    return bless $self, $class;
}
sub read_string {
    if ( /^\s*\[\s*(.+?)\s*\]\s*$/ ) {
        $self->{$ns = $1} ||= {'=' => []};  # ini key can never be '='
        push @{$$self{']'}},$ns;
        next;
    }
    if ( /^\s*([^=]+?)\s*=\s*(.*?)\s*$/ ) {
        push @{$$self{$ns}{'='}},$1 unless defined $$self{$ns}{$1};
        $self->{$ns}->{$1} = $2;
        next;
    }
}
sub write_string {
    my $self = shift;
    my $contents = '';
    foreach my $section (@{$$self{']'}}) {
}}
4

3 回答 3

8

重载的特殊符号 列出了 '=' 的 Perl 重载行为。

“=”的值是对具有三个参数的函数的引用，即，它看起来像使用重载中的其他值。但是，它不会重载 Perl 赋值运算符。这将不利于骆驼毛。

因此，您可能需要重新考虑您的方法。

于 2009-09-27T12:08:04.187 回答
5

这不仅仅是运算符重载，但如果您绝对需要此功能，您可以尝试 perl tie： http: //perldoc.perl.org/functions/tie.html

于 2009-09-27T16:05:19.890 回答
5

你知道Config::IniFiles吗？在你离开并重新发明它之前，你可能会考虑这一点。通过一些适当的子类化，您可以为其添加排序。

另外，我认为您的界面错误。您正在暴露对象的内部结构并通过神奇的分配对其进行修改。使用方法会让你的生活更轻松。

于 2009-09-27T20:49:29.473 回答