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

我目前使用这个

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

哪个打印

 $-8.2

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

-$8.2

最佳答案

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

5.14+：

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