extrair caracteres entre duas vírgulas?

Como cutimprime linhas não delimitadas por padrão, o seguinte funciona

cut -f2 -d, file

awk -F, 'NF > 1 { $1 = $2 } { print $1 }' file

Isso usa awkpara analisar o arquivo como linhas que consistem em campos delimitados por vírgulas.

O código detecta quando há mais de um campo em uma linha e, quando há, o primeiro campo é substituído pelo segundo campo. O primeiro campo, não modificado ou modificado pelo código condicional, é então impresso.

awk -F, 'NF == 1 {print $1}
         NF > 1 { print $2}' filename

Isso imprimirá apenas a primeira string se não houver vírgula, a segunda string se houver uma ou mais vírgulas.

Você pode fazer isso com Perlo seguinte.

Linha de comando:

$ perl -F, -pale '$_ = $F[1] // $_' out.txt

Explicação:

• -plerá os registros linha por linha E imprimirá automaticamente antes de ler o próximo ou eof.
• -lfazIRS = ORS = "\n"
• -F,faz FSuma vírgula.
• -adivide cada registro $_no separador de campo, no nosso caso uma vírgula, e vai em frente e armazena os campos assim gerados no array @F, que é indexado a zero.
• -eimplica, o que se segue é o Perlcódigo, que deve ser aplicado a cada registro.
• $_ = $F[1] // $_expressão é a seguinte: se o 2º campo $F[1]não estiver definido, use o registro atual $_. E então o resultado desta expressão é atribuído ao registro atual $_.
• devido à -pmudança de perlestar em uso, antes que o novo registro seja lido, o registro atual é levado para stdout.

Resultado:

NA
NA
NA
NA
NA
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85752
gene85752

Você também pode fazer isso com a versão GNU do sededitor, conforme mostrado abaixo:

$ sed -ne '
    s/,/\n/
    s/.*\n//
    s/,/\n/
    P
' out.txt