Perl Regex: Extract Key Value Pair

EricYeung

于 2005-12-23 11:12:00 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl 文章标签： perl regex pair

本文链接：https://blog.youkuaiyun.com/EricYeung/article/details/559935

Perl 专栏收录该内容

19 篇文章

订阅专栏

博客展示了Perl代码，通过正则表达式解析键值对。代码定义字符串，使用正则匹配提取键和值，并打印结果，还给出了单行版本代码，体现了Perl结合正则表达式处理键值对的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#! perl -w
$/ = "/n";

$str = "Color=red";

($k, $v) = ($str =~ m/(/w+)=(/w*)/);
$ret = ($str =~ m/(/w+)=(/w*)/);
print "Key = $k, Value = $v";
print $ret;

# one liner version
$ret = (($k, $v) = $str =~ m/(/w+)=(/w*)/ );
print "Key = $k, Value = $v";
print $ret;