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

Question

我正在使用 Perl 并试图更好地理解它的子字符串/正则表达式功能。

假设我有一个字符串，例如

[48:31.8] Sent: >33*1311875297587*eval*0*frame[0]*"A"<

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

谢谢

Answer 1

假设“[48:31.8]...”在$string中，那么：

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

如果字符串不匹配，$number将是未定义的，否则它将包含”之间的数字*” 和 “*eval*”。

Answer 2

if ($str =~ /\*(\d+)\*/ ) {
    print $1;
}

Answer 3

my ($num) = '>33*1311875297587*eval*0*frame[0]*"A"<' =~ /(\d{3,})/;
print $num;

Answer 4

就其价值而言，我认为这是一个更可靠的答案：

while(<STDIN>)
{
    @fields = split(/\*/,$1) if(/(?<=>)([^<>])+(?><)/);
    print "$fields[1]\n";
}

如果您需要的话，这允许访问所有字段，并且不依赖于固有顺序来解析特定字段。

将 while 循环替换为您想要的任何逐行迭代。不过，为了进行测试，请将其作为 Perl 脚本运行，然后粘贴到您的行 [48:31.8] Sent: >33*1311875297587*eval*0*frame[0]*"A"<或其他什么。