Perl简单入门

使用正则表达式匹配文本

向更实用的程序前进

成功匹配的副作用 捕获型括号

错综复杂的正则表达式 第一个开括号，第二个开括号，第三个开括号

[.@]*

(.*|@*)他们是不一样的P46

浮点数的例子

邮件解析的例子

环视功能

解决jeffs问题的几种办法

美元金额添加逗号

例子

$pop = 298444215;
@H_301_58@

$pop =~ s/(?<=\d)(?=([0-9]{3})+$)/,/g;
@H_301_58@

$pop =~ s/(?<=\d)(?=(\d\d\d)+$)/,/g; @H_301_58@

print$pop; @H_301_58@

上述两个正则表达式输出结果都是298,444,215 @H_301_58@