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

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