regex - 我们如何在 Perl 中提取字符串的一部分？

Question

我是 Perl 的新手。我有一个这种格式的字符串:
[时间戳|整数 | string ] 这里有一些其他的字符串

示例字符串:

[ 2013/05/28 21:39:02 | 2212 | MALFUNCTION  ] Please check for malfunction

timestamp 实际上是一个时间戳，例如2013/05/28 20:38:02
整数是一个数字，字符串可以是单词序列中的特定单词。
我有兴趣提取其中的字符串部分。

在 Java 中我会做的很简单:

String s = sentence.substring(line.lastIndexOf("|") + 1, line.lastIndexOf("]")).trim();  

这只是逐个字符地遍历字符串并获取感兴趣的部分。
但我不知道如何在 Perl 中解决这类“问题”。
我该怎么做？仅通过正则表达式？

Answer 1

它不一定是正则表达式，但在 Perl 中它非常方便:

my $str = "[ timestamp | integer | string ] Some other string here";
my ($timestamp, $integer, $string, $other)
   = ($str =~ /\[(.*?)\|(.*?)\|(.*?)\](.*)/);