perl - 如何获取 Perl 子例程的参数内容

Question

我想要一个 sub 接受一个参数并打印以原始形式提供的参数以及参数的评估。

在这种情况下，参数的评估很容易，这是默认设置!很难以原始形式获取实际输入。

use strict;
use warnings;

sub echo {
    my ($input) = @_;
    # print "5 + 10 =";
    print $input;
    print "\n";
}

echo 5 + 10;

这将输出 15。

我希望它输出 5 + 10 = "15"

Answer 1

sub echo {
    my ($expr, $result) = @_;
    print "$expr = $result\n";
}

echo '5 + 10', 5 + 10;

或

sub echo {
    my ($expr) = @_;
    my $result = eval($expr);
    die $@ if $@;
    print "$expr = $result\n";
}

echo '5 + 10';