R, 174172 bytes (thanks Razetime for corrections)
Takes input as a list of strings, returns a named vector. Just eval in R with aggressive escaping using the A character.
function(i){i=paste(gsub('([a-z_])', '\1円.''A\1円',i)[grepl('=',i)],collapse=';')
eval(parse(text=i))
rm("i")
u=ls()
x=sapply(u,function(name)get(name))
names(x)=gsub('\\.''A','',u)
x}
R, 174 bytes (thanks Razetime for corrections)
Takes input as a list of strings, returns a named vector. Just eval in R with aggressive escaping.
function(i){i=paste(gsub('([a-z_])', '\1円.',i)[grepl('=',i)],collapse=';')
eval(parse(text=i))
rm("i")
u=ls()
x=sapply(u,function(name)get(name))
names(x)=gsub('\\.','',u)
x}
R, 172 bytes
Takes input as a list of strings, returns a named vector. Just eval in R with aggressive escaping using the A character.
function(i){i=paste(gsub('([a-z_])', 'A\1円',i)[grepl('=',i)],collapse=';')
eval(parse(text=i))
rm("i")
u=ls()
x=sapply(u,function(name)get(name))
names(x)=gsub('A','',u)
x}
R, 115174 bytes - INCORRECT (thanks Razetime for corrections)
Takes input as a list of strings, returns a named vector. Just eval in R with aggressive escaping.
function(i){i=paste(i[greplgsub('([a-z_])', '\1円.',i)[grepl('=',i)],collapse=';')
eval(parse(text=i))
rm("i")
sapply(lsu=ls()
x=sapply(u,function(name)get(name))
names(x)=gsub('\\.','',u)
x}
R, 174 bytes (thanks Razetime for corrections)
Takes input as a list of strings, returns a named vector. Just eval in R with aggressive escaping.
function(i){i=paste(gsub('([a-z_])', '\1円.',i)[grepl('=',i)],collapse=';')
eval(parse(text=i))
rm("i")
u=ls()
x=sapply(u,function(name)get(name))
names(x)=gsub('\\.','',u)
x}
R, 115 bytes
Takes input as a list of strings, returns a named vector. Just eval in R.
function(i){i=paste(i[grepl('=',i)],collapse=';')
eval(parse(text=i))
rm("i")
sapply(ls(),function(name)get(name))}