Perl Regex: Extract Key Value Pair

来源:互联网 发布:山东软件开发公司 编辑:程序博客网 时间:2024/06/07 05:32
#! 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;
原创粉丝点击