Вопрос о подстановке регулярного выражения

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
}