sed找不到字符串时用警告替换字符串

问题描述

我想使用sed更改一堆类似脚本中的一行。其中一些脚本实际上并不包含我要更改的行。但是，sed不会告诉我它没有更改线路，因为它不在那儿。关于如何使sed发出警告的任何想法？ 说，我有一个剧本

    log export ALBET=0.155
    log export ALBEG=0.218
    log export RADGHGCOEF=1.0

和两个脚本

    log export ALBET=0.168
    log export ALBEG=0.201

然后

    sed -i 's/RADGHGCOEF=.*/RADGHGCOEF=2.0/' script

对它们都进行处理，但是我想知道实际上没有包含RADGHGCOEF的行要在脚本2中进行更改。 谢谢！

解决方法

使用此Perl单线版：

Help

Perl单行代码使用以下命令行标志：
perl -i -pe '$found++ if s/RADGHGCOEF=.*/RADGHGCOEF=2.0/; END { warn "$ARGV: not found\n" if !$found; }' script ：告诉Perl在代码中而不是在文件中查找代码。
-e：一次循环输入一行，默认情况下将其分配给-p。每次循环迭代后添加$_。
print $_：就地编辑输入文件（覆盖输入文件）。

-i：当前输入的文件名。

$ARGV：将$found++ if s/.../.../变量从其$found的初始值增加1，使其现在变为1（或更多，取决于替换发生的次数）。 br /> undef：读取整个输入文件后执行代码。 END { ... }：如果替换从未发生过，则if !$found在布尔上下文中为$found，否则为false。

另请参见：

perldoc perlrun: how to execute the Perl interpreter: command line switches
perldoc perlvar: Perl predefined variables

,

您可以使用此awk解决方案来代替sed：

awk '{n += sub(/RADGHGCOEF=.*/,"RADGHGCOEF=2.0")} 1; END{exit !n}' file &&
echo 'search string found!' || echo 'search string not found!'

如果发生替换，此命令将以1退出，否则将以0退出。

,

在grep之前使用sed进行测试（如注释中建议的@Sundeep）比操作sed的怪异选项要好。这个解决方案只是为了好玩：

您可以让sed在stderr找到字符串时写一些东西：

sed 's/RADGHGCOEF=.*/RADGHGCOEF=2.0/; /RADGHGCOEF/e echo yes >&2' script

我喜欢在stderr上安装它，避免在添加-i时将其写入文件中。
当您想要test输出时，您想要将stderr转换回stdout。
放在一起：

 test -z "$(sed -i 's/RADGHGCOEF=.*/RADGHGCOEF=2.0/;
                     /RADGHGCOEF/e echo yes >&2' script 2>&1)" && echo "Nothing found"

,

进行必要替换的代码段，默认输出到屏幕（最终消息打印到STDERR）。

运行带有选项-i的脚本以进行就地替换-perl -i script.pl file_name

use strict;
use warnings;
use feature 'say';

my $count;

while( <> ) {
    chomp;
    $count ++ if s/RADGHGCOEF=.*/RADGHGCOEF=2.0/;
    say;
}

if( $count ) {
    say STDERR "Info: replaced $count time(s)";
} else {
    say STDERR "Info: nothing to replace";
}

输入文件some_data

log export ALBET=0.155
log export ALBEG=0.218
log export RADGHGCOEF=1.0

以./script.pl some_data身份运行

log export ALBET=0.155
log export ALBEG=0.218
log export RADGHGCOEF=2.0
Info: replaced 1 time(s)

以perl -i script.pl some_data身份运行

Info: replaced 1 time(s)