情人节快乐!
2007-02-14送给我最爱的妻子!
老公想对你说,宝贝,好多个情人节没有能同你在一起渡过了,老公很抱歉!对不起!
Perl 转换数字到人民币金额
2007-02-08
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
#!/usr/bin/perl -w # # Xueron Nee Blog:http://www.xueron.com/ # # PHP版本作者 cyman20 Blog:http://blog.csdn.net/cyman20/ # use strict; my $num = 123308840; print "num: $numn"; print num2rmb($num) . "n"; sub num2rmb { my $num = shift or return ''; my @c1 = qw/零 壹 贰 叁 肆 伍 陆 柒 捌 玖/; my @c2 = qw/分 角 元 拾 佰 仟 万 拾 佰 仟 亿/; $num = 100 * (sprintf "%.2f", $num); return '' if length($num) > 12; print "dbg: $numn"; my $i = 0; my $c = ''; while (1) { my $n; if ($i == 0) { $n = substr $num, -1; } else { $n = $num % 10; } my $p1 = $c1[$n]; my $p2 = $c2[$i]; if ($n ne '0' || ($n eq '0' && ($p2 eq '亿' || $p2 eq '万' || $p2 eq '元'))) { $c = $p1 . $p2 . $c; } else { $c = $p1 . $c; } $i ++; $num = sprintf "%d", $num / 10; if ($num == 0) { last; } } print "dbg: before: $cn"; # 去掉多余的'零', UTF-8 版本的汉字字符长是3, GB2312汉字字符长是2 my $j = 0; my $slen = length($c); while ($j < $slen) { my $m = substr($c, $j, 6); # UTF-8 print "dbg: temp = $mn"; if ($m eq '零元' || $m eq '零万' || $m eq '零亿' || $m eq '零零') { my $left = substr($c, 0, $j); my $right = substr($c, $j + 3); # UTF-8 $c = $left . $right; $j -= 3; # UTF-8 $slen -= 3; # UTF-8 } $j += 3; # UTF-8 } # 去掉最后的'零', UTF-8 版本的汉字字符长是3, GB2312汉字字符长是2 if (substr($c, -3) eq '零') { # UTF-8 $c = substr($c, 0, -3); # UTF-8 } print "dbg: result: $c" . "整n"; return $c . "整"; } |
一句话哲学
2007-02-07当我们在迫不得已的情况下,必须去做你不愿意做的事,何不干脆孤注一掷,也许反而能从中得到意想不到的结果。
绝地重生秘诀[垃圾邮件里面的故事]
2007-02-06绝地重生秘诀
一头驴子不小心掉到一口井里,牠哀怜的叫喊求救,期待主人把牠救出去。驴子的主人召集了数字亲邻帮忙,但都想不出好的办法,大家倒是认定,反正驴子已经老了,〝人道毁灭〞也不为过,况且这口枯井迟早也是要填上的。
于是,人们拿起铲子开始填井。当第一铲泥土落到枯井中时,驴子当然叫的更恐怖了!
牠显然明白了主人的意图。又一铲泥土落到枯井中,驴子出乎意料的安静了。
人们发现,此后每一铲泥土打在牠背上的时候,驴子都做了一件令人惊奇的事情:
把泥土踩在脚下,使自己垫高一点。当人们不断的把泥土往井里铲时,驴子也就不停的抖落那些打在背上的泥土,使自己再升高一点。就这样,驴子慢慢地升到枯井口,在旁人惊奇的目光中,驴子轻松的走出来了。假如我们现在就身处枯井中,求救的哀鸣也许换来的只是埋葬我们的泥土。但驴子教会了我们,走出绝境的秘诀便是拼命抖落打在背上的泥土,那么本来埋葬我们的泥土便可成为自救的台阶。
您可以感动~也可不为所动~但你一定要行动!!
生命的宝石[垃圾邮件中的故事]
2007-02-06一大早,太阳还没有出来,一个渔夫来到了海边,
在岸上他感觉到有什么东西在脚底下,后来发现是一小袋的石头。
他捡起袋子,放在一旁,坐在岸边等待日出…
他在等待黎明,以便开始一天的工作,
他懒洋洋地从袋子里拿出一块块的石头丢进水里。
实在没有其它的事可做,他继续把石头一一丢进水里。
慢慢地,太阳升起,大地重现光明,
这时除了一块石头之外其它的石头都丢光了,
最后一块石头在他的手里。
当他藉着白天的光看到了他手中所拿的东西时,
心跳几乎要停止了,那是一颗宝石!
原来在黑暗中,
他把整袋的宝石都丢光了!
在不知不觉当中,他的损失有多少!
他充满懊悔,咒骂着自己,伤心地哭得几乎要失去理智。
渔夫在无意间碰到的财富足够丰富他的生活好几倍,
然而在不知不觉当中,又从他手中消失了…
就某方面来讲,他还是幸运的…
至少还有一颗宝石留了下来,在他将那颗宝石丢掉之前,天已经亮了。
在我们生活中,大多数的人甚至不会那么地幸运。
周围一片漆黑,而时间又过得很快,
太阳尚未升起时我们就已经浪费掉所有生命中的宝石…
生命中拥有很多机会,如果没有好好利用它,只是白白地将它浪费掉,
等到我们知道了生命的重要时,已经将时光消磨殆尽。
机会只要把握住一个便能拥有一切!
生活的财富、秘密、奥妙、快乐、解脱与智慧…
都期待我们的好好掌握和利用,请不要把一切都丢尽了。
aka
2007-02-01在国外的maillist和document里面常看到这么个词:aka,金山词霸2003说查不到。baidu了一下,原来是这个意思,记录一下。
aka
abbr.
1. =also known as 亦称为,又叫做