使用 use re debug 查看正则表达式的匹配过程
(编辑:jimmy 日期: 2024/11/3 浏览:3 次 )
复制代码 代码如下:
#!/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();
下一篇:perl pop push shift unshift实例介绍