我想要一个带参数的子，并打印以其原始形式提供的参数以及对参数的求值。
在这种情况下，对参数的求值很简单，这是默认设置！它很难获得原始形式的实际输入。
use strict;
use warnings;
sub echo {
my ($input) = @_;
# print "5 + 10 =";
print $input;
print "\n";
}
echo 5 + 10;
这将输出15。
我希望它输出 5 + 10 = "15"
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';
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句