perl - 打印负美元价值的快速方法

Question

我目前使用这个

 $Profit = -8.2 ;
 printf("%8s",sprintf("\$%0.2f",$Profit)).

哪个打印

 $-8.2

有没有快速简便的打印方法

-$8.2

Answer 1

sprintf("%s\$%0.2f", $Profit >=0 ? "" : "-", abs($Profit))

5.14+：

sprintf("%0.2f", $Profit) =~ s/^-?\K/\$/r