perl expect匹配问题(perl expect模块通配符是什么)

perl expect匹配问题(perl expect模块通配符是什么)

perl expect模块中要匹配“---- More ( Press CTRL_C to break ) ----”,总匹配不上,如果只匹配其中的Press CTRL_C,如何写?

QUOTE:
[ qr/^---- More ( Press CTRL_C to break ) ----/, sub { my $self = shift; $self->send(" "); exp_continue; }],

正则里面小括号要转义

PS: 用不着匹配这么精确, 只要能匹配且不重复即可
谢谢大侠指点,请问通配符是什么?
qr用的就是正则
汗颜,回去好好读书!

谢谢大侠指点!