Perl:如何在命令中进行数学运算？

Question

我正在尝试使用 print 定位终端光标和\e

语法:print "\e[<row>;<col>H";

但是，我想使用 row 的值乘以 2。

我可以在 perl 中执行此操作而不需要额外的变量赋值吗？如果不能，我猜想乘以 row在不同的线路上相差 2 并不是最糟糕的事情......

$row = 1; $col = 1;
print "\e[$row;${col}H";     # Correct syntax, works fine.
print "\e[$row*2;${col}H";   # Does not work
print "\e[($row*2);${col}H"; # Does not work

<小时/>

Bash 等效项:echo -ne "\e[$(($row*2));${col}H"

Answer 1

printf可用于将计算与打印格式完全分开:

$row = 1; $col = 1;
printf "\e[%d;%dH", $row, $col;
printf "\e[%d;%dH", $row*2, $col;