Perl简单入门
使用正则表达式匹配文本
向更实用的程序前进
成功匹配的副作用 捕获型括号
错综复杂的正则表达式 第一个开括号，第二个开括号，第三个开括号
[.@]*
(.*|@*)他们是不一样的P46
浮点数的例子@H_404_36@
邮件解析的例子@H_404_36@
环视功能@H_404_36@
解决jeffs问题的几种办法
美元金额添加逗号
例子
$pop = 298444215;
$pop =~ s/(?<=\d)(?=([0-9]{3})+$)/,/g;
$pop =~ s/(?<=\d)(?=(\d\d\d)+$)/,/g;
print$pop;
上述两个正则表达式输出结果都是298,444,215
环视功能@H_404_36@
解决jeffs问题的几种办法
美元金额添加逗号
例子
$pop = 298444215;
$pop =~ s/(?<=\d)(?=([0-9]{3})+$)/,/g;
$pop =~ s/(?<=\d)(?=(\d\d\d)+$)/,/g;
print$pop;
上述两个正则表达式输出结果都是298,444,215
解决jeffs问题的几种办法
美元金额添加逗号
例子
$pop = 298444215;
$pop =~ s/(?<=\d)(?=([0-9]{3})+$)/,/g;
$pop =~ s/(?<=\d)(?=(\d\d\d)+$)/,/g;
print$pop;
上述两个正则表达式输出结果都是298,444,215
