打印負美元快速路值

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