论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2008-09-12 16:06 |只看该作者 |倒序浏览

例1
#!/usr/bin/perl
use strict;
my $bb = 147.00;
$bb=~/^(\d+).(\d+)/;
print "$1\n";
print "$2\n";

输出: 1
      7
                                 为什么会出这个结果!
例2
#!/usr/bin/perl
use strict;
my $bb = "147.00";
$bb=~/^(\d+).(\d+)/;
print "$1\n";
print "$2\n";

输出: 147
      00

      如果$bb是从mysql取出又是数值型的,那要转换成字符型才行哦!请问perl把数字转换字符型的函数是什么..我在google找了很久..都不到!谢谢!

文库|博客

MMMIX

广告杀手

论坛徽章:: 95

2楼 [报告]

发表于 2008-09-12 17:04 |只看该作者

貌似楼主是要 sprintf

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

ly5066113

巨富豪门

论坛徽章:: 23

3楼 [报告]

发表于 2008-09-12 17:05 |只看该作者

原帖由 topstar_allan 于 2008-9-12 16:06 发表
例1
#!/usr/bin/perl
use strict;
my $bb = 147.00;
$bb=~/^(\d+).(\d+)/;
print "$1\n";
print "$2\n";

输出: 1
7
为什么会出这个结果!
例2
#!/u ...

printf "%d" ,$bb
或者
$bb = int($bb)
print $bb

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

cocao

白手起家

论坛徽章:: 0

4楼 [报告]

发表于 2008-09-12 17:33 |只看该作者

修改后的源码

#!/usr/bin/perl
use strict;
my $bb = 14788.00;
my $cc = sprintf "%.2f",$bb;
$cc=~/(\d+)\.(\d+)/;
print "$1\n";
print "$2\n";

楼主要匹配 . 有用 \ 的，你的正则表达式有问题