Как получить содержимое аргумента в подпрограмму 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'; 

Answer 2

Самое лучшее, что вы можете сделать, это передать строку, а затем оценить его с eval. Пример:

use strict; 
use warnings; 

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

echo "5 + 10"; 

Но всегда будьте осторожны с eval: не используйте свою функцию с пользовательским вводом.