SED: erro de sintaxe na linha 19 do script.pl, próximo a “; $ '”

Eu estou usando este comando para excluir várias ocorrências de uma linha no meu script e ele só funciona bem quando eu executá-lo no prompt de comando. No entanto, quando eu uso essa linha no meu script perl, ele gera um erro SED: syntax error no script.pl linha 19, próximo a "; $ '". Abaixo está a linha no meu script. Eu tentei escapar, mas essa ajuda

sed '/<\/data_item>/{N;/<\/data_item>$/{N;$'!'{s/\n//;D}}}' $WX;

OK, dando-lhe o benefício da dúvida (que você definiu sua própria sub-rotina chamada sed ), sua instrução "Perl" é dividida da seguinte maneira:

sed                                           # A call to a subroutine called "sed"
                                              # that you've defined ?

'/<\/data_item>/{N;/<\/data_item>$/{N;$'   # A string surrounded by single quotes

!                        # an exclamation mark

'{s/\n//;D}}}'           # another string surrounded by single quotes

$WX;                     # a scalar variable called "WX"

O erro de sintaxe real que você está recebendo é por causa do ponto de exclamação. Em Perl, você não pode simplesmente colocar caracteres fora de strings e fazer com que eles se concatenem com as strings circunvizinhas, como acontece com shell.

Mesmo no shell, não tenho certeza se a linha como você citou funcionaria. Então eu acho que você realmente precisa expandir sua pergunta original para progredir isso.