fork(1) download
copy 
  1. t <- "Current CPU load - jvm machine[example network-app_svc_group_mem4]@server101.example.com"
  2. pattern="@([^.]+)"
  3. m <- regmatches(t,regexec(pattern,t))
  4. result = unlist(m)[2]
  5. result
  6.  
  7.  
Success #stdin #stdout 0.22s 60752KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
[1] "server101"
https://ideone.com/FadWnS
language:
R (R 3.5.2)
created:
8 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!