Regex 超过了处的复杂正则子表达式递归限制（32766）

我有一个perl脚本，它执行

pgrep

，如下所示：

use warnings;

my  @instance = `pgrep -fl varnish`;
foreach my $line (@instance) {
my $ip;
        my $port;
        my $pid;
        my $pidfile;
        my $fileconfiguration;
        my $bakendhost;
        my $bakendport;
        my $sharememory;
        my $user;

        chomp $line;
        if ($line =~ m/-T\s+([0-9]+.*)+:(\d+)\s+/) {
           $ip = $1;
           $port = $2;
        }
}

但是，启动脚本时，我出现以下错误/警告：

超过了处的复杂正则子表达式递归限制（32766） /home/k.sewnundun/test.pl第16行

在/home/k.sewnundun/test.pl行超过了复杂正则子表达式递归限制（32766） 十六,

请在下面找到调试：

Loading DB routines from perl5db.pl version 1.32
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(/home/k.sewnundun/test.pl:3):
3:      my  @instance = `pgrep -fl varnish`;
  DB<1> n
main::(/home/k.sewnundun/test.pl:4):
4:      foreach my $line (@instance) {
  DB<1> n
main::(/home/k.sewnundun/test.pl:5):
5:      my $ip;
  DB<1> print $line
3066 /opt/rh/varnish4/root/usr/sbin/varnishd -P /var/run-daemon/varnishd-toto4.pid -a 0.0.0.0:8080 -f /etc/varnish/etc/toto4/toto4-current.vcl -u varnish4-toto4 -g varnish4-toto4 -l 80M -T 0.0.0.0:38080 -p thread_pool_min=50 -p thread_pool_max=1000 -p thread_pool_timeout=120 -p vcl_dir=/etc/varnish/etc/toto4 -n /home/varnish/toto4/working -s malloc, -S /etc/varnish/etc/toto4/toto4.secret

  DB<2> n
main::(/home/k.sewnundun/test.pl:6):
6:              my $port;
  DB<2> n
main::(/home/k.sewnundun/test.pl:7):
7:              my $pid;
  DB<2> n
main::(/home/k.sewnundun/test.pl:8):
8:              my $pidfile;
  DB<2> n
main::(/home/k.sewnundun/test.pl:9):
9:              my $fileconfiguration;
  DB<2> n
main::(/home/k.sewnundun/test.pl:10):
10:             my $bakendhost;
  DB<2> n
main::(/home/k.sewnundun/test.pl:11):
11:             my $bakendport;
  DB<2> n
main::(/home/k.sewnundun/test.pl:12):
12:             my $sharememory;
  DB<2> n
main::(/home/k.sewnundun/test.pl:13):
13:             my $user;
  DB<2> n
main::(/home/k.sewnundun/test.pl:15):
15:             chomp $line;
  DB<2> n
main::(/home/k.sewnundun/test.pl:16):
16:             if ($line =~ m/-T\s+([0-9]+.*)+:(\d+)\s+/) {
  DB<2> n
main::(/home/k.sewnundun/test.pl:17):
17:                $ip = $1;
  DB<2> n
main::(/home/k.sewnundun/test.pl:18):
18:                $port = $2;
  DB<2> n
main::(/home/k.sewnundun/test.pl:5):
5:      my $ip;
  DB<2> print $line
3078 /opt/rh/varnish4/root/usr/sbin/varnishd -P /var/run-daemon/varnishd-toto4.pid -a 0.0.0.0:8080 -f /etc/varnish/etc/toto4/toto4-current.vcl -u varnish4-toto4 -g varnish4-toto4 -l 80M -T 0.0.0.0:38080 -p thread_pool_min=50 -p thread_pool_max=1000 -p thread_pool_timeout=120 -p vcl_dir=/etc/varnish/etc/toto4 -n /home/varnish/toto4/working -s malloc, -S /etc/varnish/etc/toto4/toto4.secret

  DB<3> n
main::(/home/k.sewnundun/test.pl:6):
6:              my $port;
  DB<3> n
main::(/home/k.sewnundun/test.pl:7):
7:              my $pid;
  DB<3> n
main::(/home/k.sewnundun/test.pl:8):
8:              my $pidfile;
  DB<3> n
main::(/home/k.sewnundun/test.pl:9):
9:              my $fileconfiguration;
  DB<3> n
main::(/home/k.sewnundun/test.pl:10):
10:             my $bakendhost;
  DB<3> n
main::(/home/k.sewnundun/test.pl:11):
11:             my $bakendport;
  DB<3> n
main::(/home/k.sewnundun/test.pl:12):
12:             my $sharememory;
  DB<3> n
main::(/home/k.sewnundun/test.pl:13):
13:             my $user;
  DB<3> n
main::(/home/k.sewnundun/test.pl:15):
15:             chomp $line;
  DB<3> n
main::(/home/k.sewnundun/test.pl:16):
16:             if ($line =~ m/-T\s+([0-9]+.*)+:(\d+)\s+/) {
  DB<3> n
main::(/home/k.sewnundun/test.pl:17):
17:                $ip = $1;
  DB<3> n
main::(/home/k.sewnundun/test.pl:18):
18:                $port = $2;
  DB<3> n
main::(/home/k.sewnundun/test.pl:5):
5:      my $ip;
  DB<3> print $line
3200 /opt/rh/varnish4/root/usr/bin/varnishncsa -a -n toto4 -w /home/logs/varnish/toto4/access.log -D -P /var/run-daemon/varnishncsa-toto4.pid -F %{X-Forwarded-For}i %h %l %u %t "%r" %s %b "%{Referer}i" "%{User-agent}i"

  DB<4> n
main::(/home/k.sewnundun/test.pl:6):
6:              my $port;
  DB<4> n
main::(/home/k.sewnundun/test.pl:7):
7:              my $pid;
  DB<4> n
main::(/home/k.sewnundun/test.pl:8):
8:              my $pidfile;
  DB<4> n
main::(/home/k.sewnundun/test.pl:9):
9:              my $fileconfiguration;
  DB<4> n
main::(/home/k.sewnundun/test.pl:10):
10:             my $bakendhost;
  DB<4> n
main::(/home/k.sewnundun/test.pl:11):
11:             my $bakendport;
  DB<4> n
main::(/home/k.sewnundun/test.pl:12):
12:             my $sharememory;
  DB<4> n
main::(/home/k.sewnundun/test.pl:13):
13:             my $user;
  DB<4> n
main::(/home/k.sewnundun/test.pl:15):
15:             chomp $line;
  DB<4> n
main::(/home/k.sewnundun/test.pl:16):
16:             if ($line =~ m/-T\s+([0-9]+.*)+:(\d+)\s+/) {
  DB<4> n
main::(/home/k.sewnundun/test.pl:5):
5:      my $ip;
  DB<4> print $line
9803 varnishd -P /var/run-daemon/varnishd-varnish.pid -a 0.0.0.0:80 -f /etc/varnish/varnish.com/varnish.vcl -u varnish-varnish -l 80M -T 127.0.0.1:33080 -w 200,500,120 -n /home/varnish/varnish/working -s malloc,1G -p user varnish-varnish -p acceptor_sleep_decay 0.9 -p acceptor_sleep_incr 0.001 -p acceptor_sleep_max 0.05 -p auto_restart on -p ban_lurker_sleep 0.0 -p between_bytes_timeout 60.0 -p cli_buffer 8192 -p cli_timeout 5 -p clock_skew 10 -p connect_timeout 0.4 -p critbit_cooloff 180.0 -p default_grace 10 -p default_ttl 120 -p diag_bitmap 0x0 -p esi_syntax 0 -p expiry_sleep 1.0 -p fetch_chunksize 128 -p first_byte_timeout 60.0 -p group varnish-varnish -p http_range_support off -p listen_depth 1024 -p log_hashstring off -p log_local_address off -p lru_interval 2 -p max_esi_depth 5 -p max_restarts 4 -p ping_interval 3 -p pipe_timeout 60 -p prefer_ipv6 off -p queue_max 100 -p rush_exponent 3 -p saintmode_threshold 10 -p send_timeout 600 -p sess_timeout 5 -p sess_workspace 16384 -p session_linger 50 -p session_max 10000 -p shm_reclen 255 -p shm_workspace 8192 -p syslog_cli_traffic on -p vcl_trace off -p vcl_dir  -p waiter default

  DB<5> n
main::(/home/k.sewnundun/test.pl:6):
6:              my $port;
  DB<5> n
main::(/home/k.sewnundun/test.pl:7):
7:              my $pid;
  DB<5> n
main::(/home/k.sewnundun/test.pl:8):
8:              my $pidfile;
  DB<5> n

main::(/home/k.sewnundun/test.pl:9):
9:              my $fileconfiguration;
  DB<5> main::(/home/k.sewnundun/test.pl:10):
10:             my $bakendhost;
  DB<5> n
main::(/home/k.sewnundun/test.pl:11):
11:             my $bakendport;
  DB<5> n
main::(/home/k.sewnundun/test.pl:12):
12:             my $sharememory;
  DB<5> n
main::(/home/k.sewnundun/test.pl:13):
13:             my $user;
  DB<5> n
main::(/home/k.sewnundun/test.pl:15):
15:             chomp $line;
  DB<5> n
main::(/home/k.sewnundun/test.pl:16):
16:             if ($line =~ m/-T\s+([0-9]+.*)+:(\d+)\s+/) {
  DB<5> n
Complex regular subexpression recursion limit (32766) exceeded at /home/k.sewnundun/test.pl line 16.
 at /home/k.sewnundun/test.pl line 16
main::(/home/k.sewnundun/test.pl:17):
17:                $ip = $1;
  DB<5> q

从perl5db.pl 1.32版加载数据库例程
编辑器支持可用。
输入h或“h”以获取帮助，或输入“man perldebug”以获取更多帮助。
main:（/home/k.sewnundun/test.pl:3）：
3:my@instance=`pgrep-fl varnish`；
分贝
main:（/home/k.sewnundun/test.pl:4）：
4:foreach my$行（@instance）{
分贝
main:（/home/k.sewnundun/test.pl:5）：
5：我的$ip；
DB打印$行
3066/opt/rh/varnish4/root/usr/sbin/varnishd-P/var/run daemon/varnishd-toto4.pid-a 0.0.0.0:8080-f/etc/varnish/etc/totototo4/tototo4-current.vcl-u varnish4-toto4-g varnish4-tototototo4-l-l80m-t0.0.0.0.0.0.0:38080-P线程池最小值=50-P线程池最大值=1000-P线程池超时=120-P-vcl-dir=/etc/totototototototototototo4-home/co4-workingc、 -S/etc/varnish/etc/toto4/TOTOTO4.secret
分贝
main:（/home/k.sewnundun/test.pl:6）：
6：我的$port；
分贝
main:（/home/k.sewnundun/test.pl:7）：
7：我的$pid；
分贝
main:（/home/k.sewnundun/test.pl:8）：
8：我的$pidfile；
分贝
main:（/home/k.sewnundun/test.pl:9）：
9:my$fileconfiguration；
分贝
main:（/home/k.sewnundun/test.pl:10）：
10：我的$bakendhost；
分贝
main:（/home/k.sewnundun/test.pl:11）：
11：我的$bakendport；
分贝
main:（/home/k.sewnundun/test.pl:12）：
12：我的$sharememory；
分贝
main:（/home/k.sewnundun/test.pl:13）：
13：我的$user；
分贝
main:（/home/k.sewnundun/test.pl:15）：
15：chomp$行；
分贝
main:（/home/k.sewnundun/test.pl:16）：
16:if（$line=~m/-T\s+（[0-9]+.*）+：（\d+）\s+/）{
分贝
main:（/home/k.sewnundun/test.pl:17）：
17:$ip=1美元；
分贝
main:（/home/k.sewnundun/test.pl:18）：
18:$port=$2；
分贝
main:（/home/k.sewnundun/test.pl:5）：
5：我的$ip；
DB打印$行
3078/opt/rh/varnish4/root/usr/sbin/varnishd-P/var/run daemon/varnishd-toto4.pid-a 0.0.0.0:8080-f/etc/varnish/etc/totototo4/tototo4-current.vcl-u varnish4-toto4-g varnish4-tototototo4-l80m-T 0.0.0.0.0.0.0:38080-P线程池最小值=50-P线程池最大值=1000-P线程池超时=120-P-vcl-dir=/etc/totototototototo4-home/totototototototo-co4-co4-cosc、 -S/etc/varnish/etc/toto4/TOTOTO4.secret
分贝
main:（/home/k.sewnundun/test.pl:6）：
6：我的$port；
分贝
main:（/home/k.sewnundun/test.pl:7）：
7：我的$pid；
分贝
main:（/home/k.sewnundun/test.pl:8）：
8：我的$pidfile；
分贝
main:（/home/k.sewnundun/test.pl:9）：
9:my$fileconfiguration；
分贝
main:（/home/k.sewnundun/test.pl:10）：
10：我的$bakendhost；
分贝
main:（/home/k.sewnundun/test.pl:11）：
11：我的$bakendport；
分贝
main:（/home/k.sewnundun/test.pl:12）：
12：我的$sharememory；
分贝
main:（/home/k.sewnundun/test.pl:13）：
13：我的$user；
分贝
main:（/home/k.sewnundun/test.pl:15）：
15：chomp$行；
分贝
main:（/home/k.sewnundun/test.pl:16）：
16:if（$line=~m/-T\s+（[0-9]+.*）+：（\d+）\s+/）{
分贝
main:（/home/k.sewnundun/test.pl:17）：
17:$ip=1美元；
分贝
main:（/home/k.sewnundun/test.pl:18）：
18:$port=$2；
分贝
main:（/home/k.sewnundun/test.pl:5）：
5：我的$ip；
DB打印$行
3200/opt/rh/varnish4/root/usr/bin/varnishncsa-a-n toto4-w/home/logs/varnish/toto4/access.log-D-P/var/run daemon/varnishncsa-toto4.pid-F%{X-Forwarded-For}i%h%l%u%t“%r”%s%b“%{Referer}i”“{User-agent}i”
分贝
main:（/home/k.sewnundun/test.pl:6）：
6：我的$port；
分贝
main:（/home/k.sewnundun/test.pl:7）：
7：我的$pid；
分贝
main:（/home/k.sewnundun/test.pl:8）：
8：我的$pidfile；
分贝
main:（/home/k.sewnundun/test.pl:9）：
9:my$fileconfiguration；
分贝
main:（/home/k.sewnundun/test.pl:10）：
10：我的$bakendhost；
分贝
main:（/home/k.sewnundun/test.pl:11）：
11：我的$bakendport；
分贝
main:（/home/k.sewnundun/test.pl:12）：
12：我的$sharememory；
分贝
main:（/home/k.sewnundun/test.pl:13）：
13：我的$user；
分贝
main:（/home/k.sewnundun/test.pl:15）：
15：chomp$行；
分贝
main:（/home/k.sewnundun/test.pl:16）：
16:if（$line=~m/-T\s+（[0-9]+.*）+：（\d+）\s+/）{
分贝
main:（/home/k.sewnundun/test.pl:5）：
5：我的$ip；
DB打印$行
9803 varnishd-P/var/run daemon/varnishd-varnish.pid-a 0.0.0.0:80-f/etc/varnish/varnish.com/varnish.vcl-u varnish varnish varnish-l 80M-T 127.0.0.0.1:33080-w 200500120-n/home/varnish/varnish/varnish/working/working-s malloc，1G-P用户清漆-P接受器睡眠0.9-P接受器睡眠0.9-P接受器睡眠0.001-P接受器睡眠0.05-P自动重启urker\u sleep 0.0-p字节间\u超时60.0-p cli\u缓冲区8192-p cli\u超时5-p时钟偏移10-p连接\u超时0.4-p critbit\u冷却180.0-p默认\u grace 10-p默认\u ttl 120-p诊断位图0x0-p esi\u语法0-p过期\u睡眠1.0-p获取\u区块大小128-p第一字节\u超时60.0-p组清漆-p http\u范围\u支持关闭-p列表en_depth 1024-p log_hashstring off-p log_local_address off-p lru_interval 2-p max_esi_depth 5-p max_重新启动4-p ping_interval 3-p pipe_超时60-p preference_ipv6 off-p queue_max 100-p rush指数3-p saintmode_阈值10-p发送超时600-p sess_超时5-p sess_工作空间16384-p session(逗留50-p session(max 10000-p shm(reclen 255-p shm_工作区8192-p syslog_cli_通信打开-p vcl_跟踪关闭-p vcl_目录-p默认值
分贝
main:（/home/k.sewnundun/test.pl:6）：
6：我的$port；
分贝
main:（/home/k.sewnundun/test.pl:7）：
7:
#!/usr/bin/env perl
use strict;
use warnings; 
use Data::Dumper; 
use Proc::ProcessTable; 

my $ps = Proc::ProcessTable -> new; 

foreach my $proc ( grep { $_ -> {cmndline} =~ m/varnish/ } @{$ps->table} ) {
    my %opts = $proc -> {cmndline} =~ m/\-(\w) (\S+)/g;
    print Dumper $proc; 
    print Dumper \%opts;

    my ( $IP, $port ) = split ( ':', $opts{'T'});
}