fork(1) download
copy 
  1. a <- c("I Like What I Know 1959 02e pdfDrama (amazon.com)","My Life 1993 07e pdfDrama (amazon.com)")
  2. sub("\\b(\\d{4})(\\s+)(\\d+e)(\\s+)([a-zA-Z]+)(\\s+\\([^()]*\\))", "(\\1)\\2(\\3)\\4(\\5)\\6", a)
Success #stdin #stdout 0.22s 60752KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "I Like What I Know (1959) (02e) (pdfDrama) (amazon.com)"
[2] "My Life (1993) (07e) (pdfDrama) (amazon.com)"
https://ideone.com/kE6JLe
language:
R (R 3.5.2)
created:
7 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!