printf 如果过滤掉 $

perlplus33

没入门呢，请教。

如果用printf命令将 $34.666666 输出成 $34.67?

可以将 34.666666输出成$34.67, 但是不知道对 $34.666666如何处理。谢谢啦。

jason680

没入门呢，请教。

如果用printf命令将 $34.666666 输出成 $34.67?

可以将 34.666666输出成$34.67, 但 ...
perlplus33 发表于 2011-04-08 15:28

$ cat dollar.pl

1. use strict;
   
2. use warnings;
   
3. 
   
4. $_=20/3;
   
5. print "now=$_,dollar=" . dollar($_,2). "\n";
   
6. $_ = "\$$_";
   
7. print "now=$_,dollar=" . dollar($_). "\n";
   
8. 
   
9. sub dollar{
   
10.   my($sValue)= @_;
    
11.   my $sPoint = $_[1] || 2;
    
12.   $sValue =~ s/^\$//;
    
13.   return sprintf("\$%.${sPoint}f",$sValue);
    
14. 
    
15. }

复制代码

$ perl dollar.pl
now=6.66666666666667,dollar=$6.67
now=$6.66666666666667,dollar=$6.67

perlplus33

谢谢啦。
我的windows下的perl执行后，第二行输出不正常.
第一行正常；
第二行：now=$_; dollar=$0.00

另外弱弱的文一下，这个题目是在刚刚学习printf后的练习，是否是说不用这么复杂？

perlplus33

第二行的输出解决了。
原来的 $_="\$_" 改为 $_="\$$_"就行了。

只是，能否不那么复杂？谢谢。

perlplus33

这个也能简单实现格式化，不过好像还是复杂了。等待高手看看能否只用printf来搞定？

chomp($myorg=<STDIN>);
$myorg_1=substr($myorg, 1, length($myorg));
print "the input is: \$";
printf "%.2f", $myorg_1;
print "\n";

jason680

第二行的输出解决了。
原来的 $_="\$_" 改为 $_="\$$_"就行了。

只是，能否不那么复杂？谢谢。
perlplus33 发表于 2011-04-08 16:12

\$_问题改了....
(post \$$_自动会变\$_....)

$_="\$6.66667";
s/^\$//;
printf("\$%.2f",$_);
这样吗?....

perlplus33

这样简单多了，谢谢了。

will.ni

试试这样

1. #! perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my $str ='$123.5566';
   
7. my $format= substr($str, 0, 1).'%.2f';
   
8. 
   
9. printf($format,substr($str, 1, length($str) -1 ) + 0);

复制代码

perlplus33

谢谢Will, 这个的灵活性更好好些。