如果替换成功则执行命令

Question

我想用 sed 从 perl 脚本中删除 \"，

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

是否可以只在第一次替换完成的行上用" 替换\"？换句话说，将这个脚本放在一行中？

分支并不酷，因为如果已经完成了未列出的先前替换，则条件被认为是真实的（但尚未完成最新的替换）......

示例：

#! /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 后面没有标签）

（代码审查由于对其他替代的不同解释）