复制代码 代码如下:
#!/usr/bin/perl
use strict;
use warnings;
use re 'debug';
sub test {
my $str = "123456789";
print join(":", split /(?<=...)/, $str);
}
test();
#!/usr/bin/perl
use strict;
use warnings;
use re 'debug';
sub test {
my $str = "123456789";
print join(":", split /(?<=...)/, $str);
}
test();
标签：
re,debug,正则表达式
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
内蒙古资源网 Copyright www.nmgbbs.com
暂无“使用 use re debug 查看正则表达式的匹配过程”评论...