Você pode obter uma contagem de substituições por arquivo com:
find . -type f -exec perl -pi -e '
$count{$ARGV} += s/http//g;
END {for (keys %count) {print "$_: $count{$_}\n" if $count{$_}}}' {} +
Observe que, nessa e na sua solução original, perl
reescreverá os arquivos, independentemente de fazer ou não substituições.
Não use ;
para finalizar o comando -exec
. perl
pode manipular vários arquivos por vez, não é necessário chamar um perl por arquivo.
Se você quiser apenas a saída sem realmente fazer as substituições, basta substituir -pi
por -n
no comando acima.
Você também pode fazer:
find . -type f -exec grep -c http /dev/null {} +
Para obter uma contagem de linhas contendo http
(não necessariamente o mesmo que o número de http
ocorrências).