获取由“#$”分隔的单词

Question

如何将以下字符串中的三个单词与 Perl 兼容的正则表达式匹配？

word1#$word2#$word3

我事先不知道实际的单词“word1、word2和word3”。 我只知道分隔符，即#$。

而且我无法使用字边界，因为我有多字节编码。 例如，这意味着字符串可以包含 \w 控制字符无法检测到的非 ASCII 字符，例如变音符号。

Answer 1

/([^#]*?)#\$([^#]*?)#\$([^#]*)/

Answer 2

这适用于任何具有 2 个 # 的字符串

/([^#]+)\#\$([^#]+)\#\$([^#]+)/

Answer 3

分割函数可能很有用，尽管它取决于您想对线路执行什么操作。

不过，这是一个例子。

my $line = "word1#$word2#$word3"
my @words = split('#
, $line)

Answer 4

$str = explode('#
正则表达式对此来说太过分了。
, $str);

正则表达式对此来说太过分了。

Answer 5

#!/usr/bin/perl

use strict;
use warnings;

my $x = 'word1#$word2#$word3';
print $_, "\n" for split /#\$/, $x;

Answer 6

试试这个正则表达式：

/(\w+)#\$(\w+)#\$(\w+)/

---

编辑   在您向我们提供更多信息后（请参阅对此答案的评论）：

/((?:[^#]+|#[^$])*)#\$((?:[^#]+|#[^$])*)#\$((?:[^#]+|#[^$])*)/