请教一个字符串匹配的问题

很宅的男

       大家好，请教大家一个字符串匹配的问题，就是比如我匹配到了一个字符串叫做K001，然后我想用这个字符串再去匹配K001-2，那应该怎么匹配呢？多谢啦

jason680

回复 1# 很宅的男

$ perldoc perlre

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. local $_ = '|        K01        K02 K01-0001                K01 K03 K01-0002  |';
   
6. while(/(K01)/g){
   
7.         print("\$1 => $1");
   
8.         if(/($1-\d+)/g){
   
9.                 print(", \$1 => $1");
   
10.         }
    
11.         print("\n");
    
12. }

复制代码