以函数式解析嵌套/相关值字符串

Question

$tasks->{t1}{cmdline} = "convert -f %FONT% %1%";
$tasks->{t1}{report} = "Launched as %CMD% by %USER%";
$tid = 't1';
foreach my $parm (keys %{$tasks->{$tid}}) {
    $tasks->{$tid}{$parm}=~s/%FONT%/$tasks->{$tid}{font}/g; # may evaluate if $parm == 'cmdline';
    $tasks->{$tid}{$parm}=~s/%CMD%/$tasks->{$tid}{cmdline}/g;
}

该代码很糟糕，因为它需要在 foreach 之外进行另一个循环（以确保替换所有复制的值），并且还包含太多文本数据。目前重写的最佳方法如下所示：

foreach my $parm (keys %{$tasks->{$tid}}) {
 &lookupValues(\$tasks->{$tid}{&parm}); # or ($parm) if strict refs?
}

但是它仍然需要对键进行排序以便检测优先级（如果在 %FONT% 之前替换 %CMD%，则 $tasks->{$tid}{report} 是错误的）。

foreach my $parm ( &SORTME($tasks->{$tid}) ) {&lookupValuesFor($tid,$parm); }

根据指定变量的数量及其关系进行排序的最佳方法是什么？原生的（大量循环和哈希），或expat [相关问题以某种方式将我指向expat，也会调查它：解析嵌套模式的字符串]或其他解析器？

现在不喜欢 $object->value('cmdline') 的 OOP 方式。

Answer 1

这段代码“有效” - 并且对我来说看起来更干净。它是否能达到你想要的效果更有争议。

use strict;
use warnings;

my $tasks;

# Demonstration setup
$tasks->{t1}{cmdline} = "convert -f %FONT% %1%";
$tasks->{t1}{report}  = "Launched as %CMD% by %USER%";
$tasks->{t1}{maps} = {
    '%USER%'    => 'user-expansion',
    '%1%'       => 'one-expansion',
    '%FONT%'    => 'font-expansion',
    '%CMD%'     => 'cmd-expansion',
};

# Do the substitutions
foreach my $tid (keys %$tasks)
{
    my $task = $tasks->{$tid};
    my $maps = $task->{maps};
    foreach my $map (keys %$maps)
    {
        foreach my $key (keys %{$task})
        {
            next if ref $task->{$key};
            $task->{$key} =~ s/$map/$maps->{$map}/g;
        }
    }
}

# Demonstration printing
foreach my $tid (keys %$tasks)
{
    my $task = $tasks->{$tid};
    foreach my $key (keys %{$task})
    {
        next if ref $task->{$key};
        printf "%s: %-8s = %s\n", $tid, "$key:", $task->{$key};
    }
}

在 MacOS X (10.6.4) 上使用 Perl 5.13.4 的输出是：

t1: report:  = Launched as cmd-expansion by user-expansion
t1: cmdline: = convert -f font-expansion one-expansion

三重循环几乎是不可避免的；您希望将每个映射应用于每个任务的每个字符串。一般来说，每个任务都可以有自己的映射。