在 Perl 中如何计算字符串中的链式表达式？

Question

我不太确定如何称呼这些类型的表达式，所以一个例子会更容易...

Perl 中有没有一种方法可以计算像 a a a a a a a a b <= c？我有一个配置文件，允许用户为某些操作提供条件表达式。如果可能的话，我不想将条件分成两部分（就像我通常在代码中所做的那样），而是想以这种方式表示它。

Answer 1

Perl 6 中肯定会出现这种情况。但不幸的是，我不认为这是 Perl 5.10 借用的 Perl 6 的东西之一。

Answer 2

链式比较是 Perl 6 中的特色功能。

现在，是否可以创建菊花链子例程Perl 5.x？这是一个有趣的问题...

Answer 3

这可读性稍差，但可以实现您想要的： a a a a a a a a a乙&& b <= c

Answer 4

正如其他人提到的，Perl5（还）没有链式比较。

但是，如果您正在从配置文件解析“a < b <= c”并且只想评估它，那么也许这可能是您的转向之后的结果？

use strict;
use warnings;
use 5.010;

my ($a, $b, $c) = (10, 20, 30);

say 'Its true!'  if comparison( $a, '<', $b, '<=', $c );

sub comparison {
    my $left = shift;

    while (my $cmp = shift) {
        my $right = shift;
        compare( $cmp, $left, $right ) or return;
        $left = $right;
    }

    return 1;
}

sub compare {
    my $op = shift;
    given ($op) {
        when ( '<'  ) { return $_[0] <  $_[1] }
        when ( '<=' ) { return $_[0] <= $_[1] }
        default       { die "Invalid comparison operator" }
    }
}

它只是一个基本的示例（即不完整且没有错误检查），但我认为您明白了。

您可能已经在 CPAN 上找到类似的内容。像 Parse::RPN 之类的东西可能是一个有用的建筑堵塞。

现在，如果您的问题是如何从字面上解析 a a a a a a a a a a < b <= c 那么那就又是一锅鱼了！

/I3az/

Answer 5

暂时忽略任何输入验证或最终比较的执行，以下代码（或其较小的变体）应该能够重写您的语句：

sub rewrite {
    my $str = shift;
    my $ops = join "|" => qw/ < > <= >= == != /;
    1 while $str =~ s/ ($ops) \s* (\w+?) \s* ($ops) /$1 $2 && $2 $3/xg;
    $str
}

print rewrite "a < b < 5 < c != d";
# prints a < b && b < 5 && 5 < c && c != d