fork download 
  1. #!/bin/bash
  2. s='"1"|"Text"|"a"
  3. "2"|""Text in quotes""|"ab"
  4. "3"|"Text "around" quotes"|"abc"
  5. "4"|""Text `in` quotes""|"ab"
  6. '
  7. perl -pe 's/(?:^|\|)(")?\K(.*?)(?=\1(?:$|\|))/$2=~s#"|(`)#`$1#gr/ge' <<< "$s"
  8.  
Success #stdin #stdout 0s 19632KB
comments (?)
stdin 
Standard input is empty
stdout 
"1"|"Text"|"a"
"2"|"`Text in quotes`"|"ab"
"3"|"Text `around` quotes"|"abc"
"4"|"`Text ``in`` quotes`"|"ab"
https://ideone.com/LqIdYQ
language:
Bash (bash 5.0.3)
created:
6 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!