fork download
copy 
  1. a <- c('"You Are There" (1953) {The Death of Socrates (399 B.C.) (#1.14)}', 'Þegar það gerist (1998/I) (TV)', 'Johannes Passion, BWV. 245 (1725 Version) (1996) (V)')
  2. sub("^.*?\\((\\d{4})(?:/[^)]*)?\\).*", "\\1", a)
  3.  
  4. regmatches(a, regexpr("\\(\\K\\d{4}(?=(?:/[^)]*)?\\))", a, perl=TRUE))
Success #stdin #stdout 0.15s 176448KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "1953" "1998" "1996"
[1] "1953" "1998" "1996"
https://ideone.com/DCRdGM
language:
R (R 3.5.2)
created:
8 years ago
visibility:
public

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!