获取命令行perl命令以报告所做的更改

您可以通过以下方式获得每个文件的替换计数：

find . -type f -exec perl -pi -e '
    $count{$ARGV} += s/http//g;
    END {for (keys %count) {print "$_: $count{$_}\n" if $count{$_}}}' {} +

请注意，在那种情况下以及在您的原始解决方案中，perl无论是否在文件中进行替换，都将重写文件。

不要;用来终止-exec命令。perl一次可以处理多个文件，而无需为每个文件调用一个perl。

如果只希望该输出而没有实际进行替换，则只需在上面的命令中替换-pi为即可-n。

您也可以这样做：

find . -type f -exec grep -c http /dev/null {} +

计算包含的行数http（不一定与http出现的次数相同）。