使用Perl正则表达式返回子字符串

Question

我正在玩Perl并试图更好地理解它的子串/正则表达式功能.

说我有一个字符串,如

[48:31.8]已发送:> 33*1311875297587*eval*0*frame [0]*"A"<

并希望返回1311875297587.它将始终采用该格式.我如何使用Perl做到这一点？

谢谢

Answer 1

假设"[48:31.8] ..."在$ string中,那么:

my ($number) = $string =~ /\*(\d+)\*eval\*/;

$number将是不确定的,如果字符串不匹配,否则它将会包含的数字"*"和"*eval*".