выполнить команду, если замена

Question

преуспели я хотел бы, чтобы удалить \" из PERL скрипт с СЕПГ,

sed -ne ' 
    #(here some substitutions...) 
    s/print "\(.*[^"]\)"/\1/p; 
' | \ 
sed -e 's/\\"/"/g' 

Можно только заменить \" по " на линиях, где была сделана первая замена? Иными словами, чтобы сделать этот скрипт в одной строке?

Ветвление это не круто, потому что, если не указана предыдущая замена была сделана, то условие считается истинным (но последняя замена не было сделано) ...

Exemple:

#! /usr/bin/perl 
(...) 
while (@someArray) { 
    print "la variable \"$_\" est cool!\n"; 
    syslog ('info|machin', "la variable \"$_\" est cool!"); 
} 

к

"la variable "$_" est cool!\n" 

, но не возможно замещение в

syslog ('info|machin', "la variable \"$_\" est cool!"); 

Если эта линия была выбрана ранее.

Answer 1

sed -ne ' 
# if other substitution are to be made without regarding of s/print.... 
#(here some substitutions...) 

    s/print "\(.*[^"]\)"/\1/; 
    t bs 

# if other substitution are to be made if /print... is NOT found 
#(here some substitutions...) 
    b 

: bs 
# if other substitution are to be made if /print... is found 
#(here some substitutions...) 
    s/\\"/"/g 
    p 
' 

после s//, есть t это означает испытание и Гота метка (bs в данном случае), если верно.

Так вот, заменить, если происходящей, перейдите bs и сделать другую замену, чем напечатать результат, если не верно, то идти до конца (b без этикетки ниже)

(обзор кода из-за различной интерпретации о другая замена)