如何解决正则表达式解析字符串替换问题
| 我想知道是否有一种简单的方法来解析这样的字符串set PROMPT = Yes,Master?
我想做的是将这个字符串的一部分解析为等号,然后将等号之后的第二部分解析为另一个字符串。
解决方法
就像是...
$phrase = \'set PROMPT = Yes,Master?\';
@parts = split /=/,$phrase;
要么
($set,$value) = split /=/,$phrase,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?
,while ($subject =~ m/([^\\s]+)\\s*=\\s*([^\\$]+)/img) {
# $1 = $2
}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。