perl - 用两个不同的定界符将一条线分成几部分

Question

我有以下结构的行:

STRING1 space STRING2 space FREETEXT

STRING1 和 STRING2 都可以是:

1. "space* slash space*"\s*/\s* 分隔的单词，例如word1/word2/word3.
2. 或一个单字。正则表达式:\w+
3. FREETEXT 是任何字符串... (.*)

我知道如何匹配:

* one word such `\w+`
* two delimited words: `\w+\s*/\s*\w+'

但不知道如何匹配由 \s*/\s* 分隔的“1 或 更多”单词，例如像 /(\w+(\s*/\s*)?)/

这样的东西

也许更容易理解的定义:

line: string space string space freetext;
string: \w+
        ||
        string \s*/\s* \w+
space: \s+
freetext: .*

需要获取所有 3 个部分，例如以下代码

use 5.014;
use warnings;
my $slash_string = qr(\w+|\w+\s*/\s*);                     #<- help1 here
while(<DATA>) {
    if( m{^($slash_string)+\s+($slash_string)+\s+(.*)$} ) {  #<- help2 here
        say join ' | ', $1, $2, $3;
    }
}
__DATA__
magnam est dolorem ea est
non / ipsum harum asperiores nesciunt voluptatem
nunt / harum / dicta nisi minus quo similique unde
porro inventore / repudiandae dolorem ipsum
enim  ipsam / aut / numquam illum vero eveniet
natus / voluptas aut / deserunt et nisi sequi est
sed / quam / magni ex / assumenda / et eaque cum et modi

应该产生想要的输出

magnam | est | dolorem ea est
non / ipsum | harum | asperiores nesciunt voluptatem
nunt / harum / dicta | nisi | minus quo similique unde
porro | inventore / repudiandae | dolorem ipsum
enim | ipsam / aut / numquam | illum vero eveniet
natus / voluptas | aut / deserunt | et nisi sequi est
sed / quam / magni | ex / assumenda / et | eaque cum et modi

Answer 1

这将按照您的要求进行。我已将 $slash_string 更改为一个单词，后跟零次或多次出现的斜线，然后是另一个单词。

我还从你的 ($slash_string)+ 中去掉了 + 量词(因为我们在这里只需要一个斜线分隔的单词序列)并添加了 /x 修饰符，以便通过添加无关紧要的空格使模式更具可读性。

我很确定输出符合您的要求，但我只是用眼睛检查过。

use 5.014;
use warnings;

my $slash_string = qr/ \w+ (?: \s* \/ \s* \w+ )* /x;

while ( <DATA> ) { 
    if ( / ^ ($slash_string) \s+ ($slash_string) \s+ (.*) /x ) {
        say join '  ', map "[$_]", $1, $2, $3;
    }
}

__DATA__
magnam est dolorem ea est
non / ipsum harum asperiores nesciunt voluptatem
nunt / harum / dicta nisi minus quo similique unde
porro inventore / repudiandae dolorem ipsum
enim ipsam / aut / numquam illum vero eveniet
natus / voluptas aut / deserunt et nisi sequi est
sed / quam / magni ex / assumenda / et eaque cum et modi

输出

[magnam]  [est]  [dolorem ea est]
[non / ipsum]  [harum]  [asperiores nesciunt voluptatem]
[nunt / harum / dicta]  [nisi]  [minus quo similique unde]
[porro]  [inventore / repudiandae]  [dolorem ipsum]
[enim]  [ipsam / aut / numquam]  [illum vero eveniet]
[natus / voluptas]  [aut / deserunt]  [et nisi sequi est]
[sed / quam / magni]  [ex / assumenda / et]  [eaque cum et modi]