perl 匹配递增数

bintre

今天遇到个问题，如下
ABC： ABC为递增号码，例：123、234...678；
如写一个正则式匹配一下呢？
我写了好一会都没有搞定。

bintre

回复 2# 99超人


    谢谢，学习了。

珞水的大叔

代码如下：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $lala = '1452905789321790';
   
6. 
   
7. if ($lala =~ /(\d)((??{$1+1}))((??{$1+2}))/){
   
8.     print "$1$2$3\n";
   
9. }

复制代码

这里用了一个(??{$1+1})
这个(??{CODE}) 表示把CODE的执行结果插入正则表达式做匹配，$1是前面(\d)的匹配结果.
程序结果如下：

1. 789

复制代码

所以说，perl很能干，嘿嘿

bintre

回复 4# 珞水的大叔


    漂亮。不错，所以我就喜欢用perl。

leigh111

LZ不妨看看这个：
?: 表示非捕获符号。就是什么也不匹配。
(?!pattern) 如果正则表达式在后面不匹配 pattern ，才会开始匹配。如/foo(?!bar)/，只有当出现 foo，并且后面不出现 bar 时才开始匹配.
Type                       Regex            Successful if the enclosed subexpression ...

Positive Lookbehind       (?<=......)        successful if can match to the left                        #例子："abcdefg" =~ m/(?<=c)/;
                                                                                                                print $`，$&,$';

Negative Lookbehind       (?<!......)        successful if can not match to the left

Positive Lookahead        (?=......)         successful if can match to the right                       #例子: "abcdefg" =~ m/(?=c)/;
                                                                                                                print $`,$&,$';

Negative Lookahead        (?!......)         successful if can not match to the right


函数substr 也能达到目的

珞水的大叔

回复 6# 99超人


    Programming Perl第三版上看到的，具体位置见：
         Chapter 5: Pattern Matching 里面的 Table 5.6. Extended Regex Sequences

              (??{...})     Match regex from embedded Perl code

shangat

试一下这个：

1. use strict;
   
2. use warnings;
   
3. 
   
4. my $nums = "123456789";
   
5. while ( my $input = <> ) {
   
6.         chomp $input;
   
7.         print "$input\n\n";
   
8.         if ( $nums =~ $input && rindex ($input."\$","\$") == 3 ) {
   
9.                 print "$input been matched \n\n";
   
10.         }
    
11. }
    

复制代码

这里用了一个(??{$1+1})
这个(??{CODE}) 表示把CODE的执行结果插入正则表达式做匹配，$1是前面(\d)的匹配结果.
程序结果如下：

学习了

bintre

回复 9# shangat


if ( $nums =~ $input && rindex ($input."\$","\$") == 3 )
rindex ($input."\$","\$") 如何理解？