fork(1) download
copy 
  1. x <- c('qux$foo$bar','qux$foo$bar; input$test$a$a','qux$`foo`; bar$`baz`; x$uvw','qux$`fo o`')
  2. gsub('(\\w*)(?|\\$(\\w+)|\\$`([^`]*)`)', '\\1[["\\2"]]', x, perl=TRUE)
  3.  
Success #stdin #stdout 0.22s 38832KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
[1] "qux[[\"foo\"]][[\"bar\"]]"                                     
[2] "qux[[\"foo\"]][[\"bar\"]]; input[[\"test\"]][[\"a\"]][[\"a\"]]"
[3] "qux[[\"foo\"]]; bar[[\"baz\"]]; x[[\"uvw\"]]"                  
[4] "qux[[\"fo o\"]]"
https://ideone.com/Xfblk5
language:
R (R 3.5.2)
created:
3 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!