两种写法输出相同，求解释

1034745512

#!/usr/bin/perl
$n=-12345678.9;
my $num= sprintf "%.2f",$n;
1 while $num =~ s/^(-?\d+)(\d\d\d)/$1,$2/;
#$num =~ s/^(-?)/\$$1/;      #  $-12,345,678.90
$num =~ s/^(-?)/$1\$/;        #   -$12,345,678.90
print "$num \n";
========================================
两个输出不同，我自己已经搞清楚了- -

sunzhiguolu

把结果看差了吧.

L_WC

回复 1# 1034745512

真不相同

1034745512

好吧，我自己糊涂了，此贴终结