正则表达式解析字符串替换问题

Question

我想知道是否有一种简单的方法来解析这样的字符串

set   PROMPT = Yes, Master?

我想做的就是解析该字符串的一部分直到等号并将等号之后的第二部分解析为另一个字符串。

Answer 1

类似...

$phrase = 'set   PROMPT = Yes, Master?';
@parts = split /=/, $phrase;

或

($set, $value) = split /=/, $phrase, 2;

[更新]每个评论的更改。

Answer 2

尝试匹配此正则表达式 /\s*set\s*(\w+)\s*=\s*(.*)\s*$/ 并使用 $1 设置部分代码> 和 <代码>$2：

my $str = 'set   PROMPT = Yes, Master?';
my ($k, $v) = ($1, $2) if $str =~ /\s*set\s*(\w+)\s*=\s*(.*)\s*$/;
print "OK: k=$k, v=$v\n"; OK: k=PROMPT, v=Yes, Master?

Answer 3

while ($subject =~ m/([^\s]+)\s*=\s*([^\$]+)/img) {
    # $1 = $2
}